×
Linguagem de Programação ADVPL
Perguntas MsExecAuto FINA050
- joaocarloscorrea
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 23
- Obrigados Recebidos: 0
9 anos 8 meses atrás #27447
por joaocarloscorrea
MsExecAuto FINA050 foi criado por joaocarloscorrea
Boa tarde, estou fazendo uma customização onde vou transformar em um titulo a pagar uma requisicao avulsa, porem não estou conseguindo fazer o MsExecAuto funcionar, nem utilizando o modelo que a proprio TOTVS disponibiliza:
segue exemplo:
User Function FIN050INC()
Private lMsErroAuto := .F.
aArray := { { "E2_PREFIXO" , "REQ" , NIL },;
{ "E2_NUM" , "0001" , NIL },;
{ "E2_TIPO" , "NF" , NIL },;
{ "E2_NATUREZ" , "001" , NIL },;
{ "E2_FORNECE" , "0001" , NIL },;
{ "E2_EMISSAO" , CtoD("17/02/2012"), NIL },;
{ "E2_VENCTO" , CtoD("17/02/2012"), NIL },;
{ "E2_VENCREA" , CtoD("17/02/2012"), NIL },;
{ "E2_VALOR" , 5000 , NIL } }
MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aArray,, 3) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
If lMsErroAuto
Alert("Erro")
MostraErro()
Else
Alert("Ok")
Endif
Return
executa normal sem gerar erro porem não grava na SE2, alguma dica?
segue exemplo:
User Function FIN050INC()
Private lMsErroAuto := .F.
aArray := { { "E2_PREFIXO" , "REQ" , NIL },;
{ "E2_NUM" , "0001" , NIL },;
{ "E2_TIPO" , "NF" , NIL },;
{ "E2_NATUREZ" , "001" , NIL },;
{ "E2_FORNECE" , "0001" , NIL },;
{ "E2_EMISSAO" , CtoD("17/02/2012"), NIL },;
{ "E2_VENCTO" , CtoD("17/02/2012"), NIL },;
{ "E2_VENCREA" , CtoD("17/02/2012"), NIL },;
{ "E2_VALOR" , 5000 , NIL } }
MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aArray,, 3) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
If lMsErroAuto
Alert("Erro")
MostraErro()
Else
Alert("Ok")
Endif
Return
executa normal sem gerar erro porem não grava na SE2, alguma dica?
Por favor Acessar ou Registrar para participar da conversa.
- joaocarloscorrea
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 23
- Obrigados Recebidos: 0
9 anos 8 meses atrás #27458
por joaocarloscorrea
Respondido por joaocarloscorrea no tópico MsExecAuto FINA050
Descobri o que era, como estou executando uma rotina do financeiro, meu RDMAKE tinha que estar marcado no modulo financeiro! deu certo!
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.103 segundos