Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Descrição

Rotina Automática ATFA321 - Bens em Terceiros

Exemplos

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




Idioma

Português(Brasil)

Versões

12.1.6 e superiores

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Programa Fonte

ATFA321.PRW