Tempo aproximado para leitura: 00:02:00 min
Dúvida
Qual o exemplo de ExecAuto() para incluir um participante em uma cotação?
Ambiente
Protheus – ADVPL – A partir da versão p12
Solução
Segue Exemplo.
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"
// MATA150 INCLUSÃO DE UM NOVO PARTICIPANTE
User Function PartMat150()
Local aCabec := {}
Local aItens := {}
PRIVATE lMsErroAuto := .F.
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM"
//| Posiciona a cotação em que o novo participante será incluído. |//
dbSelectArea("SC8")
dbSetOrder(1)
dbSeek(xFilial("SC8")+"000053")
aadd(aCabec,{"C8_FORNECE" , "000001"})
aadd(aCabec,{"C8_LOJA" , "02"})
aadd(aCabec,{"C8_COND" , "001"})
aadd(aCabec,{"C8_CONTATO" , "Alt-Exec"})
aadd(aCabec,{"C8_FILENT" , "01"})
aadd(aCabec,{"C8_MOEDA" , 1})
aadd(aCabec,{"C8_EMISSAO" , dDataBase})
aadd(aCabec,{"C8_TOTFRE" , 0})
aadd(aCabec,{"C8_VALDESC" , 0})
aadd(aCabec,{"C8_DESPESA" , 0})
aadd(aCabec,{"C8_SEGURO" , 0})
aadd(aCabec,{"C8_DESC1" , 0})
aadd(aCabec,{"C8_DESC2" , 0})
aadd(aCabec,{"C8_DESC3" , 0})
aadd(aItens,{{"C8_NUMPRO" ,"01" ,Nil},;
{"C8_PRODUTO" ,"COTACAO " ,Nil},;
{"C8_ITEM" ,"0001" ,Nil},;
{"C8_UM" ,"UN" ,Nil},;
{"C8_QUANT" ,10 ,Nil},;
{"C8_PRECO" ,0 ,NIL},;
{"C8_TOTAL" ,0 ,NIL}})
MSExecAuto({|v,x,y| MATA150(v,x,y)},aCabec,aItens,2)
If !lMsErroAuto
ConOut(" Novo participante incluído" )
Else
ConOut("Erro na inclusão!")
EndIf
ConOut("Fim: " + Time())
RESET ENVIRONMENT
Return
Saiba mais
MATA150 - Atualiza Cotação (Rotina Automática - EXECAUTO)
0 Comentários