MSExecAuto({|x, y, z| AtfA060(x, y, z)},aDadosAuto, 4 , aParamAuto)
If lMsErroAuto
lRetorno := .F.
MostraErro()
Else
lRetorno:=.T.
EndIf
Return
TRANSFERENCIA FÍSICA
#Include 'Protheus.ch'
#Include 'Protheus.ch'
#Include 'tbiconn.ch'
User Function MyATFA060()
Local aDadosAuto := {} // Array com os dados á serem enviados pela MsExecAuto() para gravação automática.
Private lMsHelpAuto := .F. // Determina se as mensagens de help devem ser direcionadas para o arq. de log.
Private lMsErroAuto := .F. // Determina se houve alguma inconsistência na execução da rotina em relação aos
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ O exemplo abaixo foi considerado passando somente dados de conta contabil e centro de custo, caso ³
//³ necessário passar os campos referentes a itens contábeis e classes de valores. ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
aDadosAuto:= {{'N3_CBASE' , "TRANSF " , Nil},; // Código base do ativo
{'N3_ITEM' , "001 " , Nil},; // Item sequencial do código bas do ativo
{'N1_FILIAL' , "D MG 02 " , Nil},; // Filial de Destino do Ativo
{'N4_DATA' , DDATABASE , Nil},; // Data de aquisição do ativo
{'N3_CCUSTO' , " " , Nil},; // Centro de Custo de Despesa
{'N3_CCONTAB' , "101010100 " , Nil},; // Conta Contabil
{'N3_CCORREC' , " " , Nil},; // Conta de Correcao do Bem
{'N3_CDEPREC' , "201010100 " , Nil},; // Conta Despesa Depreciação
{'N3_CCDEPR' , "101010300 " , Nil},; // Conta Depreciação Acumulada
{'N3_CDESP' , " " , Nil},; // Conta Correção Depreciação
{'N3_CUSTBEM' , " " , Nil},; // Centro de Custo da Conta do Bem
{'N3_CCCORR' , " " , Nil},; // Centro Custo Correção Monetária
{'N3_CCDESP' , " " , Nil},; // Centro Custo Despesa Depreciação
{'N3_CCCDEP' , " " , Nil},; // Centro Custo Despesa Acumulada
{'N3_CCCDES' , " " , Nil},; // Centro Custo Correção Depreciacão
{'N1_GRUPO' , " " , Nil},; // Código do Grupo do Bem
{'N1_LOCAL' , " " , Nil},; // Localizacao do Bem
{'N1_NFISCAL' , " " , Nil},; // Numero da NF
{'N1_NSERIE' , " " , Nil},; // Serie da NF
{'N1_TAXAPAD' , " " , Nil}} // Codigo da Taxa Padrao
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Caso deseje passar valores para os campos, Grupo, Local, NF/Serie Taxa padrao, considerar ³
//³ como no exemplo acima utilizando os campos correspondentes da tabela SN1. ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
MSExecAuto({|x, y, z| AtfA060(x, y, z)},aDadosAuto, 4)
If