*------------------------------------------* User function ExecPedAquis() *------------------------------------------* Local aCab := {}, aItem := {}, aItens := {}, aAnexo := {}, aAnexos := {} Local nOpc := 3 Private lMsErroAuto := .F. /******* Montagem dos Arrays *******/ // CAPA (aCab) aAdd(aCab, {"EJW_FILIAL" , xFilial("EJW") , NIL}) aAdd(aCab, {"EJW_PROCES" , GetSXENum("EJW", "EJW_PROCES") , NIL}) aAdd(aCab, {"EJW_ORIGEM" , "EXECAUTO" , NIL}) aAdd(aCab, {"EJW_DTPROC" , dDataBase , NIL}) aAdd(aCab, {"EJW_EXPORT" , "EXP01" , NIL}) aAdd(aCab, {"EJW_LOJEXP" , "01" , NIL}) aAdd(aCab, {"EJW_MOEDA" , "US$" , NIL}) aAdd(aCab, {"EJW_CONDPG" , "1" , NIL}) aAdd(aCab, {"EJW_COMPL" , "Geração via ExecAuto" , NIL}) // ITENS (aItens) aAdd(aItem, {"EJX_FILIAL" , xFilial("EJW") , NIL}) aAdd(aItem, {"EJX_PROCES" , aCab[2][2] , NIL}) aAdd(aItem, {"EJX_SEQPRC" , "0001" , NIL}) aAdd(aItem, {"EJX_ITEM" , "PRD-01" , NIL}) aAdd(aItem, {"EJX_NBS" , "101011000" , NIL}) aAdd(aItem, {"EJX_PAIS" , "249" , NIL}) aAdd(aItem, {"EJX_MODO" , "1" , NIL}) aAdd(aItem, {"EJX_DTPRIN" , CTOD("01/01/2016") , NIL}) aAdd(aItem, {"EJX_DTPRFI" , CTOD("31/12/2016") , NIL}) aAdd(aItem, {"EJX_DTINI" , CTOD("01/01/2016") , NIL}) aAdd(aItem, {"EJX_QTDE" , 40 , NIL}) aAdd(aItem, {"EJX_PRCUN" , 30.00 , NIL}) aAdd(aItem, {"EJX_TX_MOE" , 2.49 , NIL}) aAdd(aItem, {"EJX_COMPL" , "Geração via ExecAuto" , NIL}) aAdd(aItens,aItem) // ANEXOS (aAnexos) aAdd(aAnexo, {"EL2_FILIAL" , xFilial("EJW") , NIL}) aAdd(aAnexo, {"EL2_PROCES" , aCab[2][2] , NIL}) aAdd(aAnexo, {"EL2_DI" , "16012645212" , NIL}) aAdd(aAnexos,aAnexo) /******* Execução do ExecAuto *******/ MSExecAuto({|a,b,c,d| EICPS400(a,b,c,d)}, aCab, aItens, aAnexos, nOpc) /******* Tratamento de Erro *******/ If lMsErroAuto MostraErro() Else MsgInfo("Registro manipulado com sucesso.") EndIf Return NIL |