Rotina Automática ATFA321 - Bens em Terceiros

INCLUSÃO

User Function MyATFA321()

Local aCab := { {'NP_FILIAL' ,'D MG 01 ' ,NIL},;

{'NP_CODIGO' ,'000002' ,NIL},;
{'NP_CBASE' ,'ATFPT0002 ' ,NIL},;
{'NP_ITEM' ,'0001' ,NIL},;
{'NP_FORNEC' ,'ATF004' ,NIL},;
{'NP_LOJA' ,'01' ,NIL},;
{'NP_TIPCES' , 'L' ,NIL} }

Local aItens := { }

Private lMsErroAuto := .F.
Private lAutoErrNoFile := .T.

aAdd(aItens,{ {'NP_SEQ' ,'001' , NIL},;
{'NP_STATUS' ,'1' , NIL},;
{'NP_VIGINI' ,CTOD('20/11/18'), NIL},;
{'NP_VIGFIM' ,CTOD('20/11/20'), NIL},;
{'NP_CONTATO' ,'JOSE' ,NIL} } )

//-- Agrupar
MSExecAuto( {|a,b,c,x,y,z| ATFA321(a,b,c,x,y,z)} ,"SNP",0,3,3,aCab,aItens)

Return

If lMsErroAuto 
    lRetorno := .F. 
    MostraErro() 
Else 
    lRetorno:=.T. 
EndIf 
 
Return