Rotina Automática ATFA030 - Baixa do Ativos

/*/ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Programa  ³MyATFA030 ³ Autor ³ Eduardo F. Lima       ³ Data ³ 01/12/11 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³Exemplo de chamada do ATFA030 pela MSExecAuto() para        ³±±±±³          ³Baixa de ativos			                                  ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso       ³SIGAATF                                                     ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/User Function  MyATFA030()Local aDadosAuto := {}		// Array com os dados a serem enviados pela MsExecAuto() para gravacao automaticaPrivate lMsHelpAuto := .f.	// Determina se as mensagens de help devem ser direcionadas para o arq. de logPrivate lMsErroAuto := .f.	// Determina se houve alguma inconsistencia na execucao da rotina em relacao aosaDadosAuto:= {	{'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.MSExecAuto({|x, y, z| AtfA030(x, y, z)},aDadosAuto, 4)If lMsErroAuto	lRetorno := .F.	MostraErro()Else	lRetorno:=.T.EndIfReturn