× Linguagem de Programação ADVPL

Perguntas MsExecAuto FINA050

Mais
9 anos 2 meses atrás #27447 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?

Por favor Acessar ou Registrar para participar da conversa.

Mais
9 anos 2 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.085 segundos
Joomla templates by a4joomla