Histórico da Página

User Function MyATFA060() 
 
Local aDadosAuto    := {}  // Array com os dados a serem enviados pela MsExecAuto() para gravação automática. 
Local aParamAuto    := {} 
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 parâmetros informados 
 
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ 
//³ O exemplo abaixo foi considerado passando somente dados de conta contábil e centro de custo, caso ³ 
//³ necessário passar os campos referentes a itens contábeis e classes de valores. ³ 
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 

dDatabase := cTod("08/02/2010") 

aDadosAuto:= { {'N3_FILIAL'  ,ALLTRIM(xfilial("SN3")),Nil},; // Código da filial 
               {'N3_CBASE'   , "0000000002"          , Nil},; // Código base do ativo 
               {'N3_ITEM'    , "0001"                , Nil},; // Item sequencial do código base do ativo 
               {'N3_TIPO'    , "10" , Nil},; // Tipo do Ativo  
               {'N4_DATA'    , dDatabase             , Nil},; // Data de aquisição do ativo 
               {'N3_CCUSTO'  , "123"                 , Nil},; // Centro de Custo de Despesa 
               {'N3_CCONTAB' , "123"                 , Nil},; // Conta Contábil 
               {'N3_CCORREC' , "123"                 , Nil},; // Conta de Correção do Bem 
               {'N3_CDEPREC' , "123"                 , Nil},; // Conta Despesa Depreciação 
               {'N3_CCDEPR'  , "123"                 , Nil},; // Conta Depreciação Acumulada 
               {'N3_CDESP'   , "123"                 , Nil},; // Conta Correção Depreciação 
               {'N3_CUSTBEM' , "123"                 , Nil},; // Centro de Custo da Conta do Bem 
               {'N3_CCCORR'  , "123"                 , Nil},; // Centro Custo Correção Monetária 
               {'N3_CCDESP'  , "123"                 , Nil},; // Centro Custo Despesa Depreciação 
               {'N3_CCCDEP'  , "123"                 , Nil},; // Centro Custo Despesa Acumulada 
               {'N3_CCCDES'  , "123"                 , Nil},; // Centro Custo Correção Depreciação 
               {'N1_GRUPO'   , "GR01"                , Nil},; // Código do Grupo do Bem 
               {'N1_LOCAL'   , "LOCAL"               , Nil},; // Localização do Bem 
               {'N1_NFISCAL' , "NF001"               , Nil},; // Número da NF 
               {'N1_NSERIE'  , "SERIE"               , Nil},; // Série da NF 
               {'N1_TAXAPAD' , "999999"              , Nil}},;  // Código da Taxa Padrão   
               {'TPN_CTRAB'  , "CT01  "              , Nil},; // Centro de Trabalho do Bem, utilizado somente quando integrado ao SIGAMNT 
               {'TPN_POSCON' , "150"                 , Nil},; // Primeiro Contador do Bem, utilizado somente quando integrado ao SIGAMNT 
               {'TPN_POSCO2' , "100"                 , Nil}}  // Segundo Contador do Bem, utilizado somente quando integrado ao SIGAMNT 

 
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ 
//³ Caso deseje passar valores para os campos, Grupo, Local, NF/Série Taxa padrão, considerar ³ 
//³ como no exemplo acima utilizando os campos correspondentes da tabela SN1. ³ 
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 

// Parâmetros das perguntas da rotina atfa060 
aAdd( aParamAuto, {"MV_PAR01", 1} ) //Pergunta 01 - Contabiliza ? 1 = Sim ; 2 = Não 
aAdd( aParamAuto, {"MV_PAR02", 2} ) //Pergunta 02 - Mostra Lanc Contab ? 1 = Sim ; 2 = Não 
aAdd( aParamAuto, {"MV_PAR03", 2} ) //Pergunta 02 - Aglut Lançamentos ? 1 = Sim ; 2 = Não 

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ 
// O quarto parâmetro pode ser configurado com os seguintes estados.
//.T. = Espelhar. 
//.F. = Atualizar. 
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 
MSExecAuto({|x, y, w, z| AtfA060(x, y, w, z)},aDadosAuto, 4 ,, .F.) 
 
If lMsErroAuto 
    lRetorno := .F. 
    MostraErro() 
Else 
    lRetorno:=.T. 
EndIf 
 
Return