Esta rutina permite el registro del grupo de bienes de manera automática.
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