Histórico da Página

User Function  Myatfa010()Local aItens := {}Local aDadosAuto := {}		// Array com os dados a serem enviados pela MsExecAuto() para gravacao automatica dos itens do ativo Local aCab := { {'N1_FILIAL' ,'01' ,NIL},;                 {'N1_CBASE' ,'13' ,NIL},;                 {'N1_ITEM' ,'01' ,NIL},;                 {'N1_AQUISIC' ,dDataBase ,NIL},;                 {'N1_DESCRIC' ,'MS EXEC AUTO' ,NIL},;                 {'N1_QUANTD' , 1 ,NIL},;                 {'N1_CHAPA' ,'1' ,NIL} }                                                                                                        // Array com os dados a serem enviados pela MsExecAuto() para gravacao automatica da capa do bem 				 Private 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 				 aAdd(aItens,{  {'N3_TIPO'  ,'01'   , NIL},;               {'N3_HISTOR'  ,'MS EXEC AUTO TIPO 01'   , NIL},;               {'N3_TPSALDO'  ,'1'   , NIL},;                {'N3_TPDEPR'   ,'1'   , NIL},;               {'N3_CCONTAB'  ,'41101' , NIL},;               {'N3_VORIG1'  , 10000 , NIL},;               {'N3_VORIG2'  , 20000 , NIL},;               {'N3_VORIG3'  , 30000 , NIL},;			                  {'N3_DINDEPR'  ,dDataBase ,NIL} } )				                                                             //array com os dados a serem enviados pela MsExecAuto() para gravacao automatica do item tipo 01aAdd(aItens,{  {'N3_TIPO'  ,'10'   , NIL},;               {'N3_HISTOR'  ,'MS EXEC AUTO TIPO 10'   , NIL},;               {'N3_TPSALDO'  ,'1'   , NIL},;                {'N3_TPDEPR'   ,'1'   , NIL},;               {'N3_CCONTAB'  ,'41101' , NIL},;               {'N3_VORIG1'  , 10000 , NIL},;               {'N3_VORIG2'  , 20000 , NIL},;               {'N3_VORIG3'  , 30000 , NIL},;			                  {'N3_DINDEPR'  ,dDataBase ,NIL} } )		//array com os dados a serem enviados pela MsExecAuto() para gravacao automatica do item tipo 10                               MSExecAuto( {|X,Y,Z| ATFA010(X,Y,Z)} ,aCab ,aItens, 3)   If lMsErroAuto	lRetorno := .F.	MostraErro()Else	lRetorno:=.T.EndIfReturn