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.)
