User Function MyATFA030()
Local aDadosAuto := {} // Array com os dados a serem enviados pela MsExecAuto() para gravacao automaticagravaçã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 inconsistencia inconsistência na execucao execução da rotina em relacao relação aos
aDadosAuto:= { {'N3_CBASE' , "0000000070" , Nil},; // Codigo Código base do ativo.
{'N3_ITEM' , "0001" , Nil},; // Item sequencial do codigo 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 infor-madainformada, caso seja uma venda de Ativo.
{'AUTSERIE' , "3 Serie C", Nil},; // Serie 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á será proporcionalizado pela quantidade baixa-dabaixada.
{'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á deverá ser informado o valor da venda do mesmo.
// Parametros 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 Lancamento 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