Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: Rotina Automática ATFA010 - Atualização de Ativos Imobilizados
Descrição: Esta rotina permite a inclusão de bens de forma automática. Programa Fonte: atfa010.prw Sintaxe: Rotina Automática ATFA010 - Atualização de Ativos Imobilizados ( ) Retorno:
Observações Exemplos User Function Myatfa010()Local aItens := {}Local aDadosAuto := {} // Array com os dados a serem enviados pela MsExecAuto() para gravacao automatica dos itens do ativo Local aCab := { {'N1_FILIAL' ,'01' ,NIL},; {'N1_CBASE' ,'13' ,NIL},; {'N1_ITEM' ,'01' ,NIL},; {'N1_AQUISIC' ,dDataBase ,NIL},; {'N1_DESCRIC' ,'MS EXEC AUTO' ,NIL},; {'N1_QUANTD' , 1 ,NIL},; {'N1_CHAPA' ,'1' ,NIL} } // Array com os dados a serem enviados pela MsExecAuto() para gravacao automatica da capa do bem Private lMsHelpAuto := .f. // Determina se as mensagens de help devem ser direcionadas para o arq. de logPrivate lMsErroAuto := .f. // Determina se houve alguma inconsistencia na execucao da rotina aAdd(aItens,{ {'N3_TIPO' ,'01' , NIL},; {'N3_HISTOR' ,'MS EXEC AUTO TIPO 01' , NIL},; {'N3_TPSALDO' ,'1' , NIL},; {'N3_TPDEPR' ,'1' , NIL},; {'N3_CCONTAB' ,'41101' , NIL},; {'N3_VORIG1' , 10000 , NIL},; {'N3_VORIG2' , 20000 , NIL},; {'N3_VORIG3' , 30000 , NIL},; {'N3_DINDEPR' ,dDataBase ,NIL} } ) //array com os dados a serem enviados pela MsExecAuto() para gravacao automatica do item tipo 01aAdd(aItens,{ {'N3_TIPO' ,'10' , NIL},; {'N3_HISTOR' ,'MS EXEC AUTO TIPO 10' , NIL},; {'N3_TPSALDO' ,'1' , NIL},; {'N3_TPDEPR' ,'1' , NIL},; {'N3_CCONTAB' ,'41101' , NIL},; {'N3_VORIG1' , 10000 , NIL},; {'N3_VORIG2' , 20000 , NIL},; {'N3_VORIG3' , 30000 , NIL},; {'N3_DINDEPR' ,dDataBase ,NIL} } ) //array com os dados a serem enviados pela MsExecAuto() para gravacao automatica do item tipo 10 MSExecAuto( {|X,Y,Z| ATFA010(X,Y,Z)} ,aCab ,aItens, 3) If lMsErroAuto lRetorno := .F. MostraErro()Else lRetorno:=.T.EndIfReturn |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas