Jefferson moreira

Atualmente, quando queremos saber a posição de um título ou mesmo seu rastreamento, temos que ir no menu de Consultas e localizar o título. Para facilitar, foi inclusa a chamada dessas funções na rotina de Funções do Pagar ou Receber. Também pode ser utilizado nos botões no enchoicebar:

Abaixo fonte:
#include "rwmake.ch" #include "topconn.ch" #include "ap5mail.ch" #INCLUDE "TBICONN.CH" //Includes utilizados para Consulta do Titulo #INCLUDE "FINC040.CH" #INCLUDE "FINC050.CH" //P.E novo botão na tela (enchoiceBar) do Contas a Receber - FINA040 User Function F040BUT() Local aArea:= getArea() Local aBotoes := {} Public _cVend:= "" // _cVend :=

u_UsrVend()

If !Inclui //Consulta posição do título AADD(aBotoes, {"HISTORIC", {|| Fc040Con() }, "Posicao"}) Endif Return ABotoes //P.E novo botão na tela (enchoiceBar) do Contas a Pagar - FINA050 User Function F050BUT() Local aArea:= getArea() Local aBotoes := {} If !Inclui //Consulta posição do título AADD(aBotoes, {"HISTORIC", {|| Fc050Con() } Endif Return ABotoes

, "Posicao"

})

//Ponto Entrada Funções Contas a Pagar para novos botões no browse User Function F750BROW() , 0 AADD( aRotina, { "Cod. Barras *", "U_STFINA01()" AADD( aRotina, { "Liquidação *", "FINA565()" aAdd( aRotina, { "Canc. Desdobram. *", "FaCanDsd" , 0 aAdd( aRotina, { "Comp. Carteira *", "FINA450()" , 0 AADD( aRotina, { "Manut. Bordero *", "FINA590()" , 0 AADD( aRotina, { "Rastreamento *", "Fin250Pag(2)" , 0 AADD( aRotina, { "Consulta *", "Fc050Con()" aMovBanc :={} AADD( aMovBanc, AADD( aMovBanc, AADD( aMovBanc, AADD( aMovBanc,

, 6}) , , , , , 0 , 6}) 5}) 6}) //"Compensação entre Carteiras" 6}) 6}) , 0 , 6})

{ { { {

"Saldos Bancários", "Movim. Bancários", "Concil. Bancária", "Recalc. Saldos",

"FINA030()", 0 , 6}) "FINA100()", 0 , 6}) "FINA380()", 0 , 6}) "FINA210()", aMovBanc,

0 , 6}) 0 , 6})

AADD( aRotina, { "Movim. Bancos *", aComBanc :={} AADD( aComBanc, AADD( aComBanc, AADD( aComBanc, AADD( aComBanc, AADD( aComBanc,