*------------------------------------------* 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 |