Page History

User Function  MyATFA030()

Local aDadosAuto := {}        // Array com os dados a serem enviados pela MsExecAuto() para gravacao automatica

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 inconsistencia na execucao da rotina em relacao aos

aDadosAuto:= {    {'N3_CBASE'   , "0000000070"    , Nil},;    // Codigo base do ativo

{'N3_ITEM'    , "0001"            , Nil},;    // Item sequencial do codigo 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 infor-mada, caso seja uma venda de Ativo.

{'AUTSERIE' , "3 Serie C", Nil},;    // Serie 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 baixa-da.

{'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, de-verá ser informado o valor da venda do  mesmo.

// Parametros 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 Lancamento 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