Cross Segmento - Backoffice Linha Protheus - ADVPL - GERAÇÃO DE ROTINA AUTOMÁTICA DE CUSTO MÉDIO MATA338

Tempo aproximado para leitura: 00:01:00 min

Dúvida

Boa tarde.

Estamos fazendo alguns lançamentos automáticos de alguns custo médio via uma rotina desenvolvida que utiliza o execauto da mata338.

Ambiente
PROTHEUS – ADVPL – A partir da versão 11.80

Solução

#include"Protheus.ch"
#include"tbiconn.ch"

function U_xMata338

local aItem := {}
PRIVATE lMsErroAuto := .F.
 prepare environment empresa "99" filial "01"
 
 AAdd(aItem,{"DQ_COD","P002 ",Nil})
 AAdd(aItem,{"DQ_LOCAL","01" ,Nil})
 AAdd(aItem,{"DQ_DATA",dDATABASE ,Nil})
 AAdd(aItem,{"DQ_CM1",150 ,Nil})
 AAdd(aItem,{"DQ_CM2",160 ,Nil})
 AAdd(aItem,{"DQ_CM3",165 ,Nil})
 AAdd(aItem,{"DQ_CM4",170 ,Nil})
 
 
 MSExecAuto({|x,y,z| MATA338(x,y)},aItem,3)//3-Inclusão, 4-Alteração e 5-Exclusão 
 If !lMsErroAuto 
 ConOut("Incluido com sucesso! ") 
 Else 
 ConOut("Erro na inclusao!")
 EndIf
 ConOut("Fim : "+Time())
 reset environment
 
Return Nil