*------------------------------------------*
User Function ExecInvAuto()
*------------------------------------------*
Local aCab := {}, aItem := {}, aItens := {}
Local nOpcAuto := 3
Private lMsErroAuto := .F. /******* Montagem dos Arrays *******/
// CAPA (aCab)
aAdd(aCab, {"ELA_FILIAL" , xFilial("ELA") , NIL})
aAdd(aCab, {"EJW_IMPORT" , "01" , NIL})
aAdd(aCab, {"EJW_LOJIMP" , "01" , NIL})
aAdd(aCab, {"ELA_NRINVO" , "INV545" , NIL})
aAdd(aCab, {"ELA_PROCES" , "0100" , NIL})
aAdd(aCab, {"ELA_ORIGEM" , "EXECAUTO" , NIL})
aAdd(aCab, {"ELA_DTEMIS" , dDataBase , NIL})
aAdd(aCab, {"ELA_CONDPG" , "01" , NIL})
aAdd(aCab, {"ELA_MOEDA" , "US$" , NIL})
aAdd(aCab, {"ELA_TX_MOE" , 4 , NIL})
aAdd(aCab, {"ELA_COMPL" , "Geração via ExecAuto" , NIL})
aAdd(aCab, {"ELA_DOC" , "NF069" , NIL})
aAdd(aCab, {"ELA_SERIE" , "B" , NIL})
aAdd(aCab, {"ELA_MODELO" , "1" , NIL}) // ITENS (aItens)
aAdd(aItem, {"ELB_FILIAL" , xFilial("ELB") , NIL})
aAdd(aItem, {"ELB_PROCES" , aCab[5][2] , NIL})
aAdd(aItem, {"ELB_IMPORT" , "01" , NIL})
aAdd(aItem, {"ELB_LOJIMP" , "01" , NIL})
aAdd(aItem, {"ELB_NRINVO" , "INV540" , NIL})
aAdd(aItem, {"ELB_SEQPRC" , "0001" , NIL})
aAdd(aItem, {"ELB_VLCAMB" , 50.00 , NIL})
aAdd(aItem, {"ELB_VLEXT" , 0.00 , NIL})
aAdd(aItens,aItem) /******* Execução do ExecAuto *******/
MSExecAuto({|a,b,c,d,e,f,g| ESSIS400(a,b,c,d,e,f,g)},"ELA", NIL, NIL, "V", aCab, aItens, nOpcAuto) /******* Tratamento de Erro *******/
If lMsErroAuto
MostraErro()
Else
MsgInfo("Registro manipulado com sucesso.")
EndIf Return NIL |
