Histórico da Página

Rotina Automática Rutina automática ATFA270 - Cadastro do Registro del grupo de bens bienes ( ) --> Nil

User Function MyATFA270()Local aDadosAuto := {}		// Array comcon oslos dadosdatos aque seremserán enviados por pelala MsExecAuto() para gravaçãograbación automáticaPrivate lMsHelpAuto := .f.	// Determina sesi aslos mensagensmensajes de help devemse serdeben direcionadasdirigir paraal o arqarch. de logPrivate lMsErroAuto := .f.	// Determina sesi houvehu8bo alguma inconsistencia inconsistênciaal naejecutar execuçãola darutina rotinacon emrelación relacãoal aosaDadosAuto:= {{'NG_FILIAL'  , "01"			, Nil},;	// FilialSucursal emen que consta oel bembien {'NG_GRUPO'   , "13"            , Nil},;	// Código dodel grupo de bensbienes{'NG_DESCRIC'  , "GRUPO AUTO EXEC"			, Nil},;	// NomeNombre dodel grupo de bensbienes.{'NG_TXDEPR1' , 100 			, Nil},;	// TaxaTasa  de  depreciaçãodepreciación  anual del dobien Bem en nala Moedamoneda 1{'NG_TXDEPR2' , 200				, Nil},;	// TaxaTasa  de  depreciaçãodepreciación  anual dodel Bembien en nala Moedamoneda 2{'NG_TXDEPR3' , 300				, Nil},;	// TaxaTasa  de  depreciaçãodepreciación  anual dodel Bembien en nala Moedamoneda 3{'NG_TXDEPR4' , 400				, Nil},;	// TaxaTasa  de  depreciaçãodepreciación  anual dodel Bembien en nala Moedamoneda 4{'NG_TXDEPR5' , 500				, Nil},;	// TaxaTasa  de  depreciaçãodepreciación  anual dodel Bembien en nala Moedamoneda 5{'NG_CCONTAB'  , "11301"			, Nil},;	// ContaCuenta Contábilcontable associadavinculada a este Bembien{'NG_CCUSTO'  , "00006"			, Nil},;	// código dodel centro de custocosto referente al agasto despesade dala depreciaçãodepreciación.{'NG_SUBCTA'  , "00007"			, Nil},;	// Código del ítem dode Itemla dacuenta Conta del da gasto Despesade dala depreciaçãodepreciación.{'NG_CLVL'    , "000005"			, Nil}}	// ClasseClase de Valorvalor dadel gasto Despesade dala Depreciaçãodepreciación.                                    MSExecAuto({|x, y, z| AtfA270(x, y, z)},aDadosAuto, 3)If lMsErroAuto	lRetorno := .F.	MostraErro()Else	lRetorno:=.T.EndIfReturn