- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Problemas com execAuto FINA080
×
Linguagem de Programação ADVPL
Perguntas Problemas com execAuto FINA080
- hbaldin
- Autor do Tópico
- Desconectado
- Membro Dourado
Menos
Mais
- Postagens: 266
- Obrigados Recebidos: 0
9 anos 8 meses atrás #27513
por hbaldin
Problemas com execAuto FINA080 foi criado por hbaldin
Galera quando baixo um titulo via ExecAuto FINA080 , o mesmo não preenche os dados do Banco, agencia e conta na SE5,
Esse eh meu ExecAuto , Se alguém tiver uma dica ou visualizar onde estou errando.
AAdd( aBaixa , {"E2_FILIAL" ,xFilial("SE2") , Nil})
AAdd( aBaixa , {"E2_PREFIXO" ,SE2->E2_PREFIXO , Nil})
AAdd( aBaixa , {"E2_NUM" ,SE2->E2_NUM , Nil})
AAdd( aBaixa , {"E2_PARCELA" ,SE2->E2_PARCELA , Nil})
AAdd( aBaixa , {"E2_TIPO" ,SE2->E2_TIPO , Nil})
AAdd( aBaixa , {"E2_FORNECE" ,SE2->E2_FORNECE , Nil})
AAdd( aBaixa , {"E2_LOJA" ,SE2->E2_LOJA , Nil})
AAdd( aBaixa , {"E2_NATUREZ" ,SE2->E2_NATUREZ , Nil})
AAdd( aBaixa , {"E2_EMISSAO" ,SE2->E2_EMISSAO , Nil})
AAdd( aBaixa , {"E2_VENCTO" ,SE2->E2_VENCTO , Nil})
AAdd( aBaixa , {"E2_VENCREA" ,SE2->E2_VENCREA , Nil})
AAdd( aBaixa , {"E2_VALOR" ,SE2->E2_VALOR , Nil})
AAdd( aBaixa , {"AUTVLRPG" ,nVl10925 , Nil})
AAdd( aBaixa , {"AUTMOTBX" ,"NORNORMAL" , Nil})
// dados banco Pamcard
AADD( aBaixa, { "AUTBANCO" ,"001" , Nil})
AADD(aBaixa, {"AUTAGENCIA" ,"3404 " , Nil})
AADD(aBaixa, {"AUTCONTA" ,"5918" , Nil})
AAdd( aBaixa , {"AUTDTBAIXA" ,STOD(aGrv[nFor,27]) , Nil})
AAdd( aBaixa , {"AUTDTCREDITO" ,STOD(aGrv[nFor,27]) , Nil})
AAdd( aBaixa , {"AUTHIST" ,"Valor pago via ROADCARD" , Nil})
AADD( aBaixa , {"AUTJUROS" ,nJuros , Nil})
AADD( aBaixa , {"AUTDESCONT" ,nDesc , Nil})
xOpc := 3 // 3=Baixa; 5=Cancelamento
lNoMBrowse := .F.
nOpbaixa := 1
lExibeLanc := .F.
lOnline := .T.
MSExecAuto({| a,b,c,d,e,f | FINA080(a,b,c,d,e,f)} ,aBaixa,xOpc,lNoMBrowse,nOpbaixa,lExibeLanc,lOnline)//3 para baixar ou 5 para cancelar a baixa.
Abraços.
Esse eh meu ExecAuto , Se alguém tiver uma dica ou visualizar onde estou errando.
AAdd( aBaixa , {"E2_FILIAL" ,xFilial("SE2") , Nil})
AAdd( aBaixa , {"E2_PREFIXO" ,SE2->E2_PREFIXO , Nil})
AAdd( aBaixa , {"E2_NUM" ,SE2->E2_NUM , Nil})
AAdd( aBaixa , {"E2_PARCELA" ,SE2->E2_PARCELA , Nil})
AAdd( aBaixa , {"E2_TIPO" ,SE2->E2_TIPO , Nil})
AAdd( aBaixa , {"E2_FORNECE" ,SE2->E2_FORNECE , Nil})
AAdd( aBaixa , {"E2_LOJA" ,SE2->E2_LOJA , Nil})
AAdd( aBaixa , {"E2_NATUREZ" ,SE2->E2_NATUREZ , Nil})
AAdd( aBaixa , {"E2_EMISSAO" ,SE2->E2_EMISSAO , Nil})
AAdd( aBaixa , {"E2_VENCTO" ,SE2->E2_VENCTO , Nil})
AAdd( aBaixa , {"E2_VENCREA" ,SE2->E2_VENCREA , Nil})
AAdd( aBaixa , {"E2_VALOR" ,SE2->E2_VALOR , Nil})
AAdd( aBaixa , {"AUTVLRPG" ,nVl10925 , Nil})
AAdd( aBaixa , {"AUTMOTBX" ,"NORNORMAL" , Nil})
// dados banco Pamcard
AADD( aBaixa, { "AUTBANCO" ,"001" , Nil})
AADD(aBaixa, {"AUTAGENCIA" ,"3404 " , Nil})
AADD(aBaixa, {"AUTCONTA" ,"5918" , Nil})
AAdd( aBaixa , {"AUTDTBAIXA" ,STOD(aGrv[nFor,27]) , Nil})
AAdd( aBaixa , {"AUTDTCREDITO" ,STOD(aGrv[nFor,27]) , Nil})
AAdd( aBaixa , {"AUTHIST" ,"Valor pago via ROADCARD" , Nil})
AADD( aBaixa , {"AUTJUROS" ,nJuros , Nil})
AADD( aBaixa , {"AUTDESCONT" ,nDesc , Nil})
xOpc := 3 // 3=Baixa; 5=Cancelamento
lNoMBrowse := .F.
nOpbaixa := 1
lExibeLanc := .F.
lOnline := .T.
MSExecAuto({| a,b,c,d,e,f | FINA080(a,b,c,d,e,f)} ,aBaixa,xOpc,lNoMBrowse,nOpbaixa,lExibeLanc,lOnline)//3 para baixar ou 5 para cancelar a baixa.
Abraços.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Problemas com execAuto FINA080
Tempo para a criação da página:0.096 segundos