Perguntas Fonte FINC010

Alguem poderia me disponibilizar o fonte FINC010.
Na verdade, preciso apenas da logica utilizada ao clicar no botão "pedidos", pois preciso customizar uma rotina interna que apresente uma tela parecida com a tela de pedidos mostrando os saldos pendentes.

Desde ja agradeço a colaboração

Acabei de fazer a rotina, mas ainda estou com problemas para atualizar o campo.
Alguem pode dar uma luz....
Abaixo segue a customização que desenvolvi.
Ja fiz o teste do select no meu SQL e os dados que recebo são exatamente o que preciso.


#include "rwmake.ch"
#include "topconn.ch"
#include "tbiconn.ch"


User Function REFAZ()

cQuery := " SELECT C6_CLI,C6_LOJA,SUM(C6_PRCVEN*C6_QTDVEN) AS TOT "
cQuery += " FROM SC6020 "
cQuery += " WHERE "
cQuery += " C6_NFORI = ' ' AND "
cQuery += " C6_QTDENT< C6_QTDVEN AND "
cQuery += " C6_BLQ = ' ' AND "
cQuery += " D_E_L_E_T_ = ' ' "
cQuery += " GROUP BY C6_CLI,C6_LOJA "



TCQUERY cQuery NEW ALIAS "TC6"
TCSETFIELD("TC6","TOT","N",12,2)

While !Eof()

dbSelectArea("SA1")
dbSetOrder(1)
If dbSeek(xFilial("SA1")+TC6->C6_CLI+TC6->C6_LOJA,.F.)
If RecLock("SA1",.F.)
SA1->A1_SALPEDL := TC6->TOT
MsUnLock("SA1")
Endif
EndIf

dbSelectArea("TC6")
dbSkip()
Loop

End

msgstop("Finalizado com Sucesso!!!")

Return

Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.

Precisava atualizar o campo A1_SALPEL com valores de acordo com os pedidos liberados.
Resolvi meu problema da seguinte forma:
Fica a dica ai para quem quiser.



1 - Rotina para refazer o campo de saldo de pedidos liberados !
!+

---

+

---

!
!AUTOR ! KENAZ !
+

---

+

---

+
!DATA DE CRIAÇÃO ! 06/08/2013 !
+

---

+

---

*/


#include "rwmake.ch"
#include "topconn.ch"
#include "tbiconn.ch"


User Function REFAZ()

cQuery := " C6_CLI,C6_LOJA,SUM(C6_PRCVEN*(C6_QTDVEN-C6_QTDENT)) AS TOT "
cQuery += " FROM SC6020, SC5020, SF4020 "
cQuery += " WHERE C6_NFORI = ' ' AND C6_BLQ = ' ' AND C6_QTDENT< C6_QTDVEN AND (C6_QTDEMP > 0) AND C6_NUM = C5_NUM AND C6_CLI = C5_CLIENTE AND C5_DTLIBCR <> ' ' AND C5_LIBEROK = 'S' AND F4_DUPLIC = 'S' AND F4_CODIGO = C6_TES AND F4_FILIAL = C6_FILIAL "
cQuery += " GROUP BY C6_CLI,C6_LOJA "


TCQUERY cQuery NEW ALIAS "TC6"
TCSETFIELD("TC6","TOT","N",12,2)

While !Eof()

dbSelectArea("SA1")
dbSetOrder(1)
If dbSeek(xFilial("SA1")+TC6->C6_CLI+TC6->C6_LOJA,.F.)
If RecLock("SA1",.F.)
SA1->A1_SALPEDL := TC6->TOT
MsUnLock("SA1")
Endif
EndIf

dbSelectArea("TC6")
dbSkip()
Loop

End

msgstop("Finalizado com Sucesso!!!")

Return