Boa tarde pessoal, tudo bem? Alguém já utilizou o ExecAuto da rotina MATA416 ?Enfrentou algum problema na execução?

Utilizei o TDN https://tdn.totvs.com/pages/releaseview.action?pageId=61934540 Quando executo somente a função liberando o orçamento via VS Code, funciona, Quando chamo exatamente a mesma rotina de dentro do Protheus ele da erro de gatilho em uma pancada de gatilho.

Fiz um Upload do vídeo da operação. Eu fiquei sem entender como que o mesmo fonte, inclusive o fonte disponibilizado no TDN da problema chamando dentro do protheus, e via Debug do VS Code não da.

Abri um chamado na TOTVS, pois o erro acontece durante o execauto, e não tem como eu saber o que a rotina está fazendo pra tentar entender onde está o problema, foi falado que como eu mesmo testei via VSCode funciona, então sinal que a rotina ta certa e que tem alguma outra coisa errada. é a mesma função não faz sentido de uma forma dar erro e de outra não. o que eu pedi no chamado então para o suporte validar apneas, não pelo VS Code e sim chamar o execauto de dentro do protheus, mas aparentemente eles não vão testar.

E ainda fiquei por entender, segui exatamente a recomendação que a TOTVS fala e não ta funcionando.

Se alguém puder me dar uma luz de onde está meu erro, ficaria feliz, pois já gastei umas par de horas e não achei nenhuma diferença.

Video da operação em anexo e o fonte é códio é esse abaixo:

User Function AprovaTeste()

Local aCabec := {} Local aItens := {} Local aLinha := {}

Private lMsErroAuto1 := .F.

PREPARE ENVIRONMENT EMPRESA "01" FILIAL "01" MODULO "FAT" TABLES "SC5","SC6","SA1","SA2","SB1","SB2","SF4","SCJ","SCK","SCL"

aCabec := {} aItens := {} aadd(aCabec,{"CJ_NUM" ,"311902" ,Nil}) aadd(aCabec,{"CJ_CLIENTE","C07163" ,Nil}) aadd(aCabec,{"CJ_LOJACLI","01" ,Nil}) aadd(aCabec,{"CJ_CLIENT" ,"C07163" ,Nil}) aadd(aCabec,{"CJ_LOJAENT","01" ,Nil}) aadd(aCabec,{"CJ_CONDPAG","016" ,Nil}) CONOUT("Passou pelo Array do Cabecalho")

aLinha := {} aadd(aLinha,{"CK_ITEM" ,"01" ,Nil}) aadd(aLinha,{"CK_PRODUTO","02051174" ,Nil}) aadd(aLinha,{"CK_QTDVEN" ,50 ,Nil}) aadd(aLinha,{"CK_PRCVEN" ,1.4900 ,Nil}) aadd(aLinha,{"CK_PRUNIT" ,1.4900 ,Nil}) aadd(aLinha,{"CK_VALOR" ,74.50 ,Nil}) aadd(aLinha,{"CK_TES" ,"734" ,Nil}) aadd(aItens,aLinha)

aLinha := {} aadd(aLinha,{"CK_ITEM" ,"02" ,Nil}) aadd(aLinha,{"CK_PRODUTO","02010016" ,Nil}) aadd(aLinha,{"CK_QTDVEN" ,250 ,Nil}) aadd(aLinha,{"CK_PRCVEN" ,5.0040 ,Nil}) aadd(aLinha,{"CK_PRUNIT" ,5.0040 ,Nil}) aadd(aLinha,{"CK_VALOR" ,1251.00 ,Nil}) aadd(aLinha,{"CK_TES" ,"501" ,Nil}) aadd(aItens,aLinha) CONOUT("Passou pelo Array dos itens")

MATA416(aCabec,aItens)

If !lMsErroAuto1 MsgAlert("Baixa efetuada com sucesso!","AVISO - MFAT030") Else MsgAlert("Erro na baixa do Orcamento!","AVISO - MFAT030") MOSTRAERRO() EndIf

RESET ENVIRONMENT

Return(.T.)