User Function  MyATFA030()

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

aDadosAuto:= {    {'N3_CBASE'   , "0000000070"    , Nil},;    // Código base do ativo.

{'N3_ITEM'    , "0001"            , Nil},;    // Item sequencial do código base do ativo.

{'AUTDTBX' , CTOD("30/11/11"), Nil},;    // Deverá ser informada a data efetiva da baixa do Bem.

{'AUTMOTBX' , "01", Nil},;    // Deverá ser informado o motivo da baixa. A tabela de motivos poderá ser alterado na rotina Tabela no módulo Configurador (tabela 16).

{'AUTNOTA' , "Nota 10", Nil},;    // Número da Nota Fiscal. Deverá ser informada, caso seja uma venda de Ativo.

{'AUTSERIE' , "3 Serie C", Nil},;    // Série da Nota Fiscal.

{'AUTQUANT' , 1, Nil},;    // Quantidade da baixa. Caso a baixa seja por valor, deverá ser informado 0(zero).Se for pela quantidade, o valor será proporcionalizado pela quantidade baixada.

{'AUTPERCBX' , 100, Nil},;    // Percentual do bem a ser baixado.

{'AUTBXFILHOS' , .F., Nil},;    // Indica se deve ser efetuada a baixa dos filhos

{'AUTVLRVENDA' , 1, Nil}}    // Caso se trate de uma venda de ativo, deverá ser informado o valor da venda do  mesmo.

// Parâmetros das perguntas da rotina atfa030

aAdd( aParamAuto, {"MV_PAR01", 2} ) //Pergunta 01 - Mostra Lanc.Contab ? 1 = Sim   ; 2 = Não

aAdd( aParamAuto, {"MV_PAR02", 1} ) //Pergunta 02 - Aglutina Lançamento Contabil ? 1 = Sim   ; 2 = Não

MSExecAuto({|x, y, z | AtfA030(x, y, z )},aDadosAuto, 4 , aParamAuto)

If lMsErroAuto

    lRetorno := .F.

    MostraErro()

Else

    lRetorno:=.T.

EndIf

Return