Rutina automática ATFA270 - Registro del grupo de bienes

Rutina automática ATFA270 - Registro del grupo de bienes ( ) --> Nil

User Function MyATFA270()Local aDadosAuto := {}		// Array con los datos que serán enviados por la MsExecAuto() para grabación automáticaPrivate lMsHelpAuto := .f.	// Determina si los mensajes de help se deben dirigir al arch. de logPrivate lMsErroAuto := .f.	// Determina si hu8bo alguma inconsistencia al ejecutar la rutina con relación al aosaDadosAuto:= {{'NG_FILIAL'  , "01"			, Nil},;	// Sucursal en que consta el bien {'NG_GRUPO'   , "13"            , Nil},;	// Código del grupo de bienes{'NG_DESCRIC'  , "GRUPO AUTO EXEC"			, Nil},;	// Nombre del grupo de bienes.{'NG_TXDEPR1' , 100 			, Nil},;	// Tasa  de  depreciación  anual del bien  en la moneda 1{'NG_TXDEPR2' , 200				, Nil},;	// Tasa  de  depreciación  anual del bien en la moneda 2{'NG_TXDEPR3' , 300				, Nil},;	// Tasa  de  depreciación  anual del bien en la moneda 3{'NG_TXDEPR4' , 400				, Nil},;	// Tasa  de  depreciación  anual del bien en la moneda 4{'NG_TXDEPR5' , 500				, Nil},;	// Tasa  de  depreciación  anual del bien en la moneda 5{'NG_CCONTAB'  , "11301"			, Nil},;	// Cuenta contable vinculada a este bien{'NG_CCUSTO'  , "00006"			, Nil},;	// código del centro de costo referente al gasto de la depreciación.{'NG_SUBCTA'  , "00007"			, Nil},;	// Código del ítem de la cuenta  del  gasto de la depreciación.{'NG_CLVL'    , "000005"			, Nil}}	// Clase de valor del gasto de la depreciación.                                    MSExecAuto({|x, y, z| AtfA270(x, y, z)},aDadosAuto, 3)If lMsErroAuto	lRetorno := .F.	MostraErro()Else	lRetorno:=.T.EndIfReturn