*------------------------------------------*
User Function ExecCambAuto()
*------------------------------------------*
Local aEEQAuto := {}
Local nOpcAuto := 3
Private lMsErroAuto := .F. /******* Montagem dos Arrays *******/
// REGISTROS (aEEQAuto)
aAdd(aEEQAuto, {"EEQ_FILIAL" , xFilial("EEQ") , NIL})
aAdd(aEEQAuto, {"EEQ_TPPROC" , "V" , NIL})
aAdd(aEEQAuto, {"EEQ_PREEMB" , "V0100" , NIL})
aAdd(aEEQAuto, {"EEQ_EVENT" , "501" , NIL})
aAdd(aEEQAuto, {"EEQ_IMPORT" , "01" , NIL})
aAdd(aEEQAuto, {"EEQ_IMLOJA" , "01" , NIL})
aAdd(aEEQAuto, {"EEQ_PROCES" , "0100" , NIL})
aAdd(aEEQAuto, {"EEQ_NRINVO" , "INV540" , NIL})
aAdd(aEEQAuto, {"EEQ_PARC" , "01" , NIL})
aAdd(aEEQAuto, {"EEQ_SOURCE" , "EXECAUTO" , NIL})
aAdd(aEEQAuto, {"EEQ_VCT" , CTOD("31/12/2016") , NIL})
aAdd(aEEQAuto, {"EEQ_VL" , 50.00 , NIL})
aAdd(aEEQAuto, {"EEQ_VLSISC" , 50.00 , NIL})
aAdd(aEEQAuto, {"EEQ_MODAL" , "1" , NIL}) /******* Execução do ExecAuto *******/
MSExecAuto({|a,b,c,d,e,f| EECAF500(a,b,c,d,e,f)}, "EEQ", NIL, NIL, aEEQAuto, nOpcAuto, "V") /******* Tratamento de Erro *******/
If lMsErroAuto
MostraErro()
Else
MsgInfo("Registro manipulado com sucesso.")
EndIf Return NIL |
