- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Execauto FINA080 - Cancelamento de Baixa
×
Linguagem de Programação ADVPL
Perguntas Execauto FINA080 - Cancelamento de Baixa
- lalberto
- Autor do Tópico
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 4 meses atrás #23856
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Execauto FINA080 - Cancelamento de Baixa foi criado por lalberto
Galera alguém já teve algum problema com o cancelamento de Baixa no Contas a Pagar via Execauto,
estou apanhando pra caramba, a rotina não cancela a baixa nem a pau, se eu for no titulo, baixa manual cancelar, vai de boa, mas execauto não cancela e também não dá erro.
Qualquer ajuda é bem vinda.
Abraços
lF080Auto := .T.
lMsHelpAuto := .T.
aDados := {}
AADD(aDados,{"E2_FILIAL" , SE2->E2_FILIAL ,Nil})
AADD(aDados,{"E2_PREFIXO" , SE2->E2_PREFIXO ,Nil})
AADD(aDados,{"E2_NUM" , SE2->E2_NUM ,Nil})
AADD(aDados,{"E2_PARCELA" , SE2->E2_PARCELA ,Nil})
AADD(aDados,{"E2_TIPO" , SE2->E2_TIPO ,Nil})
AADD(aDados,{"E2_FORNECE" , SE2->E2_FORNECE ,Nil})
AADD(aDados,{"E2_LOJA" , SE2->E2_LOJA ,Nil})
lMsErroAuto := .f.
MsExecAuto({|x,y| Fina080(x,y)}, aDados, 5, Nil, "01" )
If lMsErroAuto
MostraErro()
Alert("Falha nas Baixas dos Titulos - Pagamento de Fornecedores " + SE2->E2_NUM)
Return .F.
EndIf
estou apanhando pra caramba, a rotina não cancela a baixa nem a pau, se eu for no titulo, baixa manual cancelar, vai de boa, mas execauto não cancela e também não dá erro.
Qualquer ajuda é bem vinda.
Abraços
lF080Auto := .T.
lMsHelpAuto := .T.
aDados := {}
AADD(aDados,{"E2_FILIAL" , SE2->E2_FILIAL ,Nil})
AADD(aDados,{"E2_PREFIXO" , SE2->E2_PREFIXO ,Nil})
AADD(aDados,{"E2_NUM" , SE2->E2_NUM ,Nil})
AADD(aDados,{"E2_PARCELA" , SE2->E2_PARCELA ,Nil})
AADD(aDados,{"E2_TIPO" , SE2->E2_TIPO ,Nil})
AADD(aDados,{"E2_FORNECE" , SE2->E2_FORNECE ,Nil})
AADD(aDados,{"E2_LOJA" , SE2->E2_LOJA ,Nil})
lMsErroAuto := .f.
MsExecAuto({|x,y| Fina080(x,y)}, aDados, 5, Nil, "01" )
If lMsErroAuto
MostraErro()
Alert("Falha nas Baixas dos Titulos - Pagamento de Fornecedores " + SE2->E2_NUM)
Return .F.
EndIf
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- admin
- Desconectado
- Administrador
Menos
Mais
- Postagens: 216
- Obrigados Recebidos: 0
10 anos 4 meses atrás #23859
por admin
Respondido por admin no tópico Execauto FINA080 - Cancelamento de Baixa [RESOLVIDO]
Galera Resolvi o Problema estava usando um ponto de entrada FA080OWN para tratamento diferenciado no cliente e acabei me prejudicando rsrs.
é a vida
é a vida
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Execauto FINA080 - Cancelamento de Baixa
Tempo para a criação da página:0.112 segundos