MSExecAuto FINA040

Produtos da Linha Protheus Sigafin - Financeiro - Backoffice
1

Boa tarde pessoal,

Na versao 12.1.2410 estou tendo problemas com o MSExecAuto FINA040, o sistema nao executa e tambem nao apresenta erro.

_aArray := {,;
			{"E1_PREFIXO"  , C920SERIE          ,Nil},;
			{"E1_NUM"      , C920NOTA           ,Nil},;
			{"E1_PARCELA"  , "   "              ,Nil},;
			{"E1_TIPO"     , C920ESPECI         ,Nil},;
			{"E1_FILIAL"   , xFilial("SE1")	    ,Nil},;
			{"E1_NATUREZ"  , "01001001"         ,Nil},;
			{"E1_HIST"     , "cHistor"          ,Nil},;
			{"E1_CLIENTE"  , C920CLIENT         ,Nil},;
			{"E1_LOJA"     , C920LOJA           ,Nil},;
			{"E1_EMISSAO"  , dDataBase          ,Nil},;
			{"E1_VENCTO"   , dDataBase          ,Nil},;
			{"E1_VALOR"    , 500                ,Nil}}

		MSExecAuto({|x, y| FINA040(x, y)}, _aArray, 3)
		
		If lMsErroAuto

			//função que retorna as informações de erro ocorridos durante o processo da rotina automática
			aLog := GetAutoGRLog()
			For nX := 1 To Len( aLog )
				cRetor += aLog[nX] + "|"
			Next nX
            conout(cRetor)
		Else
			//PUTMV( "ES_NUMNCC" , Soma1( cE1Num ) )
			cRetor := 'Gerado Pref.: ' + cPrefixo + ' | Titulo :' + cE1Num + '.'
            conout(cRetor)

		Endif
1 curtida
2

@rafael_augusto84 boa tarde.

Tive esse problema também em alguns casos.
Fiz os seguintes passos:

  1. Declare o lMsErroAuto como private e inicie ele como False

  2. Antes do execauto inclua o seguinte código:
    cFunBkp := FunName()
    SetFunName(“FINA040”)

  3. Depois do execauto inclua o seguinte código:
    SetFunName(cFunBkp)

3

Obrigado @felipe.caiado irei testar e aviso se deu certo.

1 curtida
4

@felipe.caiado alterado e mesmo assim nao foi, ele comecou apresentar a mensagem sobre estar em outro modulo.

FWAlertInfo → A BO selecionada não pertence ao módulo escolhido.

Entao fiz a configuracao por modulo:

//Aciona a rotina para alterar o módulo
_cModulo := SetModulo(“SIGAFIN”, “FIN”)

// Chamada do MsExecAuto
lRet := MsExecAuto( { |x,y| FINA040(x,y)} , aDados , 3)

Mas aparentemente nao gravou, mas vou apronfundar um pouco mais e volto aqui.

abraços