S^1^0^M^acprrp001^MODULE^^ S^2^1^R^controles^^^public F^0^C:\Users\luis\Documents\fuentes\GENERO FUENTES\Nueva carpeta\decomarmol\MARMOTECH\PROYECTO\acdir\acprrp001.4gl D^2^152^251^12^0^0 X^2^D^152^12^0^ X^2^c^148^18^0^finish X^2^c^146^27^0^output X^2^c^114^17^0^start S^3^2^P^x^RECORD^^ D^3^153^165^12^0^0 X^3^r^248^32^0^ X^3^r^247^32^0^ X^3^r^246^32^0^ X^3^r^245^32^0^ X^3^r^239^38^0^ X^3^r^238^38^0^ X^3^r^236^38^0^ X^3^r^235^38^0^ X^3^r^234^48^0^ X^3^l^231^20^0^ X^3^r^229^28^0^ X^3^r^228^28^0^ X^3^r^227^28^0^ X^3^r^226^28^0^ X^3^r^225^28^0^ X^3^r^224^28^0^ X^3^r^223^28^0^ X^3^r^222^57^0^ X^3^r^222^28^0^ X^3^l^175^26^0^ X^3^l^175^14^0^ X^3^l^152^22^0^ X^3^D^153^12^0^ S^4^3^P^codigo^SMALLINT^^ D^4^154^154^12^0^0 X^4^r^222^30^0^ X^4^l^175^28^0^ X^4^D^154^12^0^ S^5^3^P^descripcion^CHAR(30)^^ D^5^155^155^12^0^0 X^5^r^222^59^0^ X^5^D^155^12^0^ S^6^3^P^cuenta_no^CHAR(8)^^ D^6^156^156^12^0^0 X^6^r^234^50^0^ X^6^l^231^22^0^ X^6^l^175^16^0^ X^6^D^156^12^0^ S^7^3^P^dcto_compra^CHAR(10)^^ D^7^157^157^12^0^0 X^7^r^223^30^0^ X^7^D^157^12^0^ S^8^3^P^fech_compra^DATE^^ D^8^158^158^12^0^0 X^8^r^224^30^0^ X^8^D^158^12^0^ S^9^3^P^vida_util^INTEGER^^ D^9^159^159^12^0^0 X^9^r^229^30^0^ X^9^D^159^12^0^ S^10^3^P^status_t^CHAR(1)^^ D^10^160^160^12^0^0 X^10^D^160^12^0^ S^11^3^P^valor_compra^DECIMAL(12,2)^^ D^11^161^161^12^0^0 X^11^r^245^34^0^ X^11^r^235^40^0^ X^11^r^225^30^0^ X^11^D^161^12^0^ S^12^3^P^depr_acum^DECIMAL(12,2)^^ D^12^162^162^12^0^0 X^12^r^246^34^0^ X^12^r^236^40^0^ X^12^r^226^30^0^ X^12^D^162^12^0^ S^13^3^P^valor_libro^DECIMAL(12,2)^^ D^13^163^163^12^0^0 X^13^r^248^34^0^ X^13^r^239^40^0^ X^13^r^228^30^0^ X^13^D^163^12^0^ S^14^3^P^deprec^DECIMAL(12,2)^^ D^14^164^164^12^0^0 X^14^r^247^34^0^ X^14^r^238^40^0^ X^14^r^227^30^0^ X^14^D^164^12^0^ S^15^2^V^hora^CHAR(5)^^ D^15^167^167^12^0^0 X^15^r^190^29^0^ X^15^l^179^13^0^ X^15^D^167^12^0^ S^16^2^V^reportDef^base.Report^^ D^16^0^0^0^0^0 S^17^1^F^acprrp001^^^public D^17^38^149^10^0^0 X^17^D^38^10^0^ X^17^c^35^7^0^ S^18^1^F^main^^^public D^18^27^36^1^0^0 X^18^D^27^1^0^ S^19^1^V^act_fij^RECORD^^private D^19^11^23^12^0^0 X^19^r^146^37^0^ X^19^r^144^58^0^ X^19^r^144^37^0^ X^19^l^144^17^0^ X^19^l^142^17^0^ X^19^r^141^37^0^ X^19^l^141^17^0^ X^19^l^140^17^0^ X^19^r^139^51^0^ X^19^r^139^32^0^ X^19^r^139^14^0^ X^19^l^135^17^0^ X^19^r^134^13^0^ X^19^r^131^27^0^ X^19^l^130^38^0^ X^19^l^127^17^0^ X^19^r^126^13^0^ X^19^r^123^27^0^ X^19^l^122^38^0^ X^19^l^120^14^0^ X^19^l^119^14^0^ X^19^l^118^14^0^ X^19^r^116^25^0^ X^19^D^11^12^0^ S^20^19^V^codigo^SMALLINT^^ D^20^12^12^12^0^0 X^20^r^131^35^0^ X^20^r^123^35^0^ X^20^D^12^12^0^ S^21^19^V^descripcion^CHAR(30)^^ D^21^13^13^12^0^0 X^21^D^13^12^0^ S^22^19^V^cuenta_no^CHAR(8)^^ D^22^14^14^12^0^0 X^22^D^14^12^0^ S^23^19^V^dcto_compra^CHAR(10)^^ D^23^15^15^12^0^0 X^23^D^15^12^0^ S^24^19^V^fech_compra^DATE^^ D^24^16^16^12^0^0 X^24^D^16^12^0^ S^25^19^V^vida_util^SMALLINT^^ D^25^17^17^12^0^0 X^25^D^17^12^0^ S^26^19^V^status_t^CHAR(1)^^ D^26^18^18^12^0^0 X^26^D^18^12^0^ S^27^19^V^valor_compra^DECIMAL(12,2)^^ D^27^19^19^12^0^0 X^27^r^144^45^0^ X^27^r^141^45^0^ X^27^r^139^59^0^ X^27^D^19^12^0^ S^28^19^V^depr_acum^DECIMAL(12,2)^^ D^28^20^20^12^0^0 X^28^r^144^66^0^ X^28^l^141^25^0^ X^28^r^139^22^0^ X^28^l^127^25^0^ X^28^r^126^21^0^ X^28^l^122^46^0^ X^28^l^118^22^0^ X^28^D^20^12^0^ S^29^19^V^valor_libro^DECIMAL(12,2)^^ D^29^21^21^12^0^0 X^29^l^144^25^0^ X^29^l^140^25^0^ X^29^l^120^22^0^ X^29^D^21^12^0^ S^30^19^V^deprec^DECIMAL(12,2)^^ D^30^22^22^12^0^0 X^30^l^142^25^0^ X^30^r^139^40^0^ X^30^l^135^25^0^ X^30^r^134^21^0^ X^30^l^130^46^0^ X^30^l^119^22^0^ X^30^D^22^12^0^ S^31^1^C^busca_act^base.Cursor^^private D^31^108^108^12^0^0 X^31^u^109^38^0^ X^31^D^108^12^0^ S^32^1^C^activos^base.Cursor^^private D^32^109^109^12^0^0 X^32^u^116^12^0^ X^32^u^110^9^0^ X^32^D^109^12^0^ S^33^0^V^status^INTEGER^^builtin F^1^C:\Program Files (x86)\FourJs\Genero Studio2.50\fgl\lib/fgl.4gl D^33^14^14^1^1^1 X^33^r^79^10^0^ X^33^D^14^1^1^ S^34^0^V^int_flag^INTEGER^^builtin D^34^14^14^9^1^1 X^34^l^88^9^0^ X^34^r^85^5^0^ X^34^D^14^9^1^ S^35^0^V^activo^RECORD^^global F^2^acprgb000.4gl D^35^4^16^10^2^2 X^35^D^4^10^2^ S^36^35^V^codigo^SMALLINT^^ D^36^5^5^5^2^2 X^36^D^5^5^2^ S^37^35^V^descripcion^CHAR(30)^^ D^37^6^6^5^2^2 X^37^D^6^5^2^ S^38^35^V^cuenta_no^CHAR(8)^^ D^38^7^7^5^2^2 X^38^D^7^5^2^ S^39^35^V^cta_depr^CHAR(8)^^ D^39^8^8^5^2^2 X^39^D^8^5^2^ S^40^35^V^cta_gasto^CHAR(8)^^ D^40^9^9^5^2^2 X^40^D^9^5^2^ S^41^35^V^departamento^SMALLINT^^ D^41^10^10^5^2^2 X^41^D^10^5^2^ S^42^35^V^tasa_cambio^DECIMAL(8,2)^^ D^42^11^11^5^2^2 X^42^D^11^5^2^ S^43^35^V^fech_compra^DATE^^ D^43^12^12^5^2^2 X^43^D^12^5^2^ S^44^35^V^dcto_compra^CHAR(10)^^ D^44^13^13^5^2^2 X^44^D^13^5^2^ S^45^35^V^duracion^INTEGER^^ D^45^14^14^5^2^2 X^45^D^14^5^2^ S^46^35^V^valor_compra^DECIMAL(12,2)^^ D^46^15^15^5^2^2 X^46^D^15^5^2^ S^47^0^V^usuarios^CHAR(50)^^global D^47^17^17^2^2^2 X^47^r^32^33^0^ X^47^l^29^28^0^ X^47^D^17^2^2^ S^48^0^V^clave^CHAR(50)^^global D^48^17^17^11^2^2 X^48^r^32^48^0^ X^48^l^30^28^0^ X^48^D^17^11^2^ S^49^0^V^p_companias^RECORD^^global D^49^18^18^2^2^2 X^49^r^33^18^0^ X^49^D^18^2^2^ S^50^49^V^cod_comp^CHAR(5)^decomarmol.companias.cod_comp^ D^50^0^0^0^0^0 X^50^D^18^2^2^ S^51^49^V^nombre^CHAR(40)^decomarmol.companias.nombre^ D^51^0^0^0^0^0 X^51^D^18^2^2^ S^52^49^V^rnc^CHAR(30)^decomarmol.companias.rnc^ D^52^0^0^0^0^0 X^52^D^18^2^2^ S^53^49^V^direccion^CHAR(40)^decomarmol.companias.direccion^ D^53^0^0^0^0^0 X^53^D^18^2^2^ S^54^49^V^telefono^CHAR(15)^decomarmol.companias.telefono^ D^54^0^0^0^0^0 X^54^D^18^2^2^ S^55^49^V^fax^CHAR(15)^decomarmol.companias.fax^ D^55^0^0^0^0^0 X^55^D^18^2^2^ S^56^49^V^administrador^CHAR(40)^decomarmol.companias.administrador^ D^56^0^0^0^0^0 X^56^D^18^2^2^ S^57^49^V^email^CHAR(100)^decomarmol.companias.email^ D^57^0^0^0^0^0 X^57^D^18^2^2^ S^58^49^V^paginaweb^CHAR(100)^decomarmol.companias.paginaweb^ D^58^0^0^0^0^0 X^58^D^18^2^2^ S^59^49^V^direccion1^CHAR(50)^decomarmol.companias.direccion1^ D^59^0^0^0^0^0 X^59^D^18^2^2^ S^60^49^V^telefono1^CHAR(15)^decomarmol.companias.telefono1^ D^60^0^0^0^0^0 X^60^D^18^2^2^ S^61^49^V^fax1^CHAR(15)^decomarmol.companias.fax1^ D^61^0^0^0^0^0 X^61^D^18^2^2^ S^62^49^V^status_t^CHAR(1)^decomarmol.companias.status_t^ D^62^0^0^0^0^0 X^62^D^18^2^2^ S^63^49^V^us_crea^CHAR(9)^decomarmol.companias.us_crea^ D^63^0^0^0^0^0 X^63^D^18^2^2^ S^64^49^V^fech_crea^DATE^decomarmol.companias.fech_crea^ D^64^0^0^0^0^0 X^64^D^18^2^2^ S^65^49^V^us_mod^CHAR(9)^decomarmol.companias.us_mod^ D^65^0^0^0^0^0 X^65^D^18^2^2^ S^66^49^V^fech_mod^DATE^decomarmol.companias.fech_mod^ D^66^0^0^0^0^0 X^66^D^18^2^2^ S^67^49^V^codnomina^CHAR(30)^decomarmol.companias.codnomina^ D^67^0^0^0^0^0 X^67^D^18^2^2^ S^68^49^V^cuenta_no_inv^CHAR(10)^decomarmol.companias.cuenta_no_inv^ D^68^0^0^0^0^0 X^68^D^18^2^2^ S^69^49^V^dias_vence_reservas^SMALLINT^decomarmol.companias.dias_vence_reservas^ D^69^0^0^0^0^0 X^69^D^18^2^2^ S^70^0^V^HANDLER^om.SaxDocumentHandler^^global D^70^19^19^4^2^2 X^70^r^114^42^0^ X^70^l^113^45^0^ X^70^D^19^4^2^ S^71^0^V^r_output^STRING^^global D^71^20^20^10^2^2 X^71^r^113^25^0^ X^71^l^112^39^0^ X^71^D^20^10^2^ S^72^0^V^normal^CHAR(3)^^global D^72^23^23^10^2^2 X^72^r^249^41^0^ X^72^D^23^10^2^ S^73^0^V^negrilla_on^CHAR(3)^^global D^73^23^23^17^2^2 X^73^D^23^17^2^ S^74^0^V^negrillas_of^CHAR(3)^^global D^74^23^23^29^2^2 X^74^D^23^29^2^ S^75^0^V^comp_on^CHAR(3)^^global D^75^23^23^42^2^2 X^75^r^181^29^0^ X^75^D^23^42^2^ S^76^0^V^comp_off^CHAR(3)^^global D^76^23^23^50^2^2 X^76^D^23^50^2^ S^77^0^V^doce^CHAR(3)^^global D^77^23^23^59^2^2 X^77^D^23^59^2^ S^78^0^V^doble_on^CHAR(3)^^global D^78^23^23^64^2^2 X^78^D^23^64^2^ S^79^0^V^doble_off^CHAR(3)^^global D^79^23^23^73^2^2 X^79^D^23^73^2^ S^80^0^V^cmd^CHAR(150)^^global D^80^25^25^10^2^2 X^80^D^25^10^2^ S^81^0^V^imprime^CHAR(150)^^global D^81^25^25^14^2^2 X^81^D^25^14^2^ S^82^0^V^copia^CHAR(150)^^global D^82^25^25^22^2^2 X^82^D^25^22^2^ S^83^0^V^archivo^CHAR(80)^^global D^83^25^25^38^2^2 X^83^D^25^38^2^ S^84^0^V^impresor^SMALLINT^^global D^84^26^26^10^2^2 X^84^D^26^10^2^ S^85^0^V^activ^RECORD^^global D^85^29^29^8^2^2 X^85^D^29^8^2^ S^86^85^V^codigo^SMALLINT^decomarmol.actb00001.codigo^ D^86^0^0^0^0^0 X^86^D^29^8^2^ S^87^85^V^descripcion^CHAR(40)^decomarmol.actb00001.descripcion^ D^87^0^0^0^0^0 X^87^D^29^8^2^ S^88^85^V^cuenta_no^CHAR(8)^decomarmol.actb00001.cuenta_no^ D^88^0^0^0^0^0 X^88^D^29^8^2^ S^89^85^V^cta_depr^CHAR(8)^decomarmol.actb00001.cta_depr^ D^89^0^0^0^0^0 X^89^D^29^8^2^ S^90^85^V^cta_gasto^CHAR(8)^decomarmol.actb00001.cta_gasto^ D^90^0^0^0^0^0 X^90^D^29^8^2^ S^91^85^V^departamento^SMALLINT^decomarmol.actb00001.departamento^ D^91^0^0^0^0^0 X^91^D^29^8^2^ S^92^85^V^fech_compra^DATE^decomarmol.actb00001.fech_compra^ D^92^0^0^0^0^0 X^92^D^29^8^2^ S^93^85^V^duracion^INTEGER^decomarmol.actb00001.duracion^ D^93^0^0^0^0^0 X^93^D^29^8^2^ S^94^85^V^fech_elim^DATE^decomarmol.actb00001.fech_elim^ D^94^0^0^0^0^0 X^94^D^29^8^2^ S^95^85^V^referencia^VARCHAR(25)^decomarmol.actb00001.referencia^ D^95^0^0^0^0^0 X^95^D^29^8^2^ S^96^85^V^fabricante^VARCHAR(50)^decomarmol.actb00001.fabricante^ D^96^0^0^0^0^0 X^96^D^29^8^2^ S^97^85^V^status_t^CHAR(1)^decomarmol.actb00001.status_t^ D^97^0^0^0^0^0 X^97^D^29^8^2^ S^98^85^V^us_crea^CHAR(9)^decomarmol.actb00001.us_crea^ D^98^0^0^0^0^0 X^98^D^29^8^2^ S^99^85^V^fech_crea^DATETIME YEAR TO FRACTION^decomarmol.actb00001.fech_crea^ D^99^0^0^0^0^0 X^99^D^29^8^2^ S^100^85^V^us_mod^CHAR(9)^decomarmol.actb00001.us_mod^ D^100^0^0^0^0^0 X^100^D^29^8^2^ S^101^85^V^fech_mod^DATETIME YEAR TO FRACTION^decomarmol.actb00001.fech_mod^ D^101^0^0^0^0^0 X^101^D^29^8^2^ S^102^0^V^categ^RECORD^^global D^102^31^31^8^2^2 X^102^D^31^8^2^ S^103^102^V^cod_mov^SMALLINT^decomarmol.actb00002.cod_mov^ D^103^0^0^0^0^0 X^103^D^31^8^2^ S^104^102^V^descrip^CHAR(30)^decomarmol.actb00002.descrip^ D^104^0^0^0^0^0 X^104^D^31^8^2^ S^105^102^V^tipo_mov^CHAR(1)^decomarmol.actb00002.tipo_mov^ D^105^0^0^0^0^0 X^105^D^31^8^2^ S^106^102^V^uso^CHAR(1)^decomarmol.actb00002.uso^ D^106^0^0^0^0^0 X^106^D^31^8^2^ S^107^102^V^status_t^CHAR(1)^decomarmol.actb00002.status_t^ D^107^0^0^0^0^0 X^107^D^31^8^2^ S^108^102^V^us_crea^CHAR(50)^decomarmol.actb00002.us_crea^ D^108^0^0^0^0^0 X^108^D^31^8^2^ S^109^102^V^fech_crea^DATETIME YEAR TO FRACTION^decomarmol.actb00002.fech_crea^ D^109^0^0^0^0^0 X^109^D^31^8^2^ S^110^102^V^us_mod^CHAR(50)^decomarmol.actb00002.us_mod^ D^110^0^0^0^0^0 X^110^D^31^8^2^ S^111^102^V^fech_mod^DATETIME YEAR TO FRACTION^decomarmol.actb00002.fech_mod^ D^111^0^0^0^0^0 X^111^D^31^8^2^ S^112^0^V^trans^RECORD^^global D^112^33^33^8^2^2 X^112^D^33^8^2^ S^113^112^V^codigo^INTEGER^decomarmol.actb00004.codigo^ D^113^0^0^0^0^0 X^113^D^33^8^2^ S^114^112^V^num_doc^VARCHAR(10)^decomarmol.actb00004.num_doc^ D^114^0^0^0^0^0 X^114^D^33^8^2^ S^115^112^V^fecha^DATE^decomarmol.actb00004.fecha^ D^115^0^0^0^0^0 X^115^D^33^8^2^ S^116^112^V^cod_mov^INTEGER^decomarmol.actb00004.cod_mov^ D^116^0^0^0^0^0 X^116^D^33^8^2^ S^117^112^V^tasa_cambio^DECIMAL(7,2)^decomarmol.actb00004.tasa_cambio^ D^117^0^0^0^0^0 X^117^D^33^8^2^ S^118^112^V^monto^DECIMAL(12,2)^decomarmol.actb00004.monto^ D^118^0^0^0^0^0 X^118^D^33^8^2^ S^119^112^V^observacion^CHAR(40)^decomarmol.actb00004.observacion^ D^119^0^0^0^0^0 X^119^D^33^8^2^ S^120^112^V^status_t^VARCHAR(1)^decomarmol.actb00004.status_t^ D^120^0^0^0^0^0 X^120^D^33^8^2^ S^121^112^V^us_crea^VARCHAR(50)^decomarmol.actb00004.us_crea^ D^121^0^0^0^0^0 X^121^D^33^8^2^ S^122^112^V^fech_crea^DATETIME YEAR TO FRACTION^decomarmol.actb00004.fech_crea^ D^122^0^0^0^0^0 X^122^D^33^8^2^ S^123^112^V^us_mod^VARCHAR(50)^decomarmol.actb00004.us_mod^ D^123^0^0^0^0^0 X^123^D^33^8^2^ S^124^112^V^fech_mod^DATETIME YEAR TO FRACTION^decomarmol.actb00004.fech_mod^ D^124^0^0^0^0^0 X^124^D^33^8^2^ S^125^0^V^busca_dpto^DYNAMIC ARRAY OF RECORD^^global D^125^35^38^8^2^2 X^125^D^35^8^2^ S^126^125^V^departamento^SMALLINT^^ D^126^36^36^4^2^2 X^126^D^36^4^2^ S^127^125^V^nom_dpto^CHAR(30)^^ D^127^37^37^4^2^2 X^127^D^37^4^2^ S^128^0^V^estado^RECORD^^global D^128^40^46^8^2^2 X^128^D^40^8^2^ S^129^128^V^status_t^CHAR(1)^^ D^129^41^41^5^2^2 X^129^D^41^5^2^ S^130^128^V^us_crea^CHAR(9)^^ D^130^42^42^5^2^2 X^130^D^42^5^2^ S^131^128^V^fech_crea^DATETIME YEAR TO FRACTION^decomarmol.actb00001.fech_crea^ D^131^43^43^5^2^2 X^131^D^43^5^2^ S^132^128^V^us_mod^CHAR(9)^^ D^132^44^44^5^2^2 X^132^D^44^5^2^ S^133^128^V^fech_mod^DATETIME YEAR TO FRACTION^decomarmol.actb00001.fech_mod^ D^133^45^45^5^2^2 X^133^D^45^5^2^ S^134^0^V^descripcion^CHAR(30)^^global D^134^48^48^9^2^2 X^134^D^48^9^2^ S^135^0^V^fecha_corte^DATE^^global D^135^49^49^9^2^2 X^135^r^192^48^0^ X^135^r^132^26^0^ X^135^r^124^27^0^ X^135^l^110^23^0^ X^135^l^76^59^0^ X^135^D^49^9^2^ S^136^0^V^fecha1^DATE^^global D^136^49^49^21^2^2 X^136^D^49^21^2^ S^137^0^V^opcion^CHAR(2)^^global D^137^50^50^9^2^2 X^137^D^50^9^2^ S^138^0^V^opt^CHAR(3)^^global D^138^51^51^9^2^2 X^138^D^51^9^2^ S^139^0^V^l^SMALLINT^^global D^139^52^52^9^2^2 X^139^r^189^25^0^ X^139^l^188^15^0^ X^139^r^186^25^0^ X^139^l^185^15^0^ X^139^r^183^25^0^ X^139^l^180^15^0^ X^139^D^52^9^2^ S^140^0^V^tipo_papel^SMALLINT^^global D^140^52^52^11^2^2 X^140^r^54^16^0^ X^140^l^53^6^0^ X^140^D^52^11^2^ S^141^0^V^bandera^SMALLINT^^global D^141^52^52^22^2^2 X^141^D^52^22^2^ S^142^0^V^numero_msg^SMALLINT^^global D^142^52^52^30^2^2 X^142^r^87^14^0^ X^142^l^86^9^0^ X^142^r^81^19^0^ X^142^l^80^14^0^ X^142^r^72^19^0^ X^142^l^71^14^0^ X^142^r^65^19^0^ X^142^l^64^14^0^ X^142^D^52^30^2^ S^143^0^V^criterio^STRING^^global D^143^53^53^9^2^2 X^143^r^103^5^0^ X^143^l^94^12^0^ X^143^D^53^9^2^ S^144^0^V^selec^STRING^^global D^144^53^53^18^2^2 X^144^D^53^18^2^ S^145^0^V^selec1^STRING^^global D^145^53^53^24^2^2 X^145^r^108^27^0^ X^145^l^97^6^0^ X^145^D^53^24^2^ S^146^0^V^p_ano1^INTEGER^^global D^146^54^54^9^2^2 X^146^r^77^21^0^ X^146^r^63^10^0^ X^146^l^60^23^0^ X^146^l^59^11^0^ X^146^l^56^16^0^ X^146^D^54^9^2^ S^147^0^V^p_mes1^INTEGER^^global D^147^54^54^16^2^2 X^147^r^77^40^0^ X^147^r^70^10^0^ X^147^l^56^23^0^ X^147^D^54^16^2^ S^148^0^V^idx^INTEGER^^global D^148^54^54^23^2^2 X^148^D^54^23^2^ S^149^0^V^idx1^INTEGER^^global D^149^54^54^27^2^2 X^149^D^54^27^2^ S^150^0^V^curr^INTEGER^^global D^150^54^54^32^2^2 X^150^D^54^32^2^ S^151^0^V^fila^INTEGER^^global D^151^54^54^37^2^2 X^151^D^54^37^2^ S^152^0^V^scr_l^INTEGER^^global D^152^54^54^42^2^2 X^152^D^54^42^2^ S^153^0^V^negrillas_on^CHAR(3)^^global D^153^56^56^45^2^2 X^153^r^243^27^0^ X^153^r^233^28^0^ X^153^r^181^37^0^ X^153^D^56^45^2^ S^154^0^V^negrillas_off^CHAR(3)^^global D^154^56^56^58^2^2 X^154^r^249^27^0^ X^154^r^240^28^0^ X^154^r^217^17^0^ X^154^D^56^58^2^ S^155^0^V^p_compania^RECORD^^global D^155^58^58^9^2^2 X^155^r^183^28^0^ X^155^r^180^33^0^ X^155^D^58^9^2^ S^156^155^V^cod_comp^CHAR(5)^decomarmol.companias.cod_comp^ D^156^0^0^0^0^0 X^156^D^58^9^2^ S^157^155^V^nombre^CHAR(40)^decomarmol.companias.nombre^ D^157^0^0^0^0^0 X^157^r^183^39^0^ X^157^r^180^44^0^ X^157^D^58^9^2^ S^158^155^V^rnc^CHAR(30)^decomarmol.companias.rnc^ D^158^0^0^0^0^0 X^158^D^58^9^2^ S^159^155^V^direccion^CHAR(40)^decomarmol.companias.direccion^ D^159^0^0^0^0^0 X^159^D^58^9^2^ S^160^155^V^telefono^CHAR(15)^decomarmol.companias.telefono^ D^160^0^0^0^0^0 X^160^D^58^9^2^ S^161^155^V^fax^CHAR(15)^decomarmol.companias.fax^ D^161^0^0^0^0^0 X^161^D^58^9^2^ S^162^155^V^administrador^CHAR(40)^decomarmol.companias.administrador^ D^162^0^0^0^0^0 X^162^D^58^9^2^ S^163^155^V^email^CHAR(100)^decomarmol.companias.email^ D^163^0^0^0^0^0 X^163^D^58^9^2^ S^164^155^V^paginaweb^CHAR(100)^decomarmol.companias.paginaweb^ D^164^0^0^0^0^0 X^164^D^58^9^2^ S^165^155^V^direccion1^CHAR(50)^decomarmol.companias.direccion1^ D^165^0^0^0^0^0 X^165^D^58^9^2^ S^166^155^V^telefono1^CHAR(15)^decomarmol.companias.telefono1^ D^166^0^0^0^0^0 X^166^D^58^9^2^ S^167^155^V^fax1^CHAR(15)^decomarmol.companias.fax1^ D^167^0^0^0^0^0 X^167^D^58^9^2^ S^168^155^V^status_t^CHAR(1)^decomarmol.companias.status_t^ D^168^0^0^0^0^0 X^168^D^58^9^2^ S^169^155^V^us_crea^CHAR(9)^decomarmol.companias.us_crea^ D^169^0^0^0^0^0 X^169^D^58^9^2^ S^170^155^V^fech_crea^DATE^decomarmol.companias.fech_crea^ D^170^0^0^0^0^0 X^170^D^58^9^2^ S^171^155^V^us_mod^CHAR(9)^decomarmol.companias.us_mod^ D^171^0^0^0^0^0 X^171^D^58^9^2^ S^172^155^V^fech_mod^DATE^decomarmol.companias.fech_mod^ D^172^0^0^0^0^0 X^172^D^58^9^2^ S^173^155^V^codnomina^CHAR(30)^decomarmol.companias.codnomina^ D^173^0^0^0^0^0 X^173^D^58^9^2^ S^174^155^V^cuenta_no_inv^CHAR(10)^decomarmol.companias.cuenta_no_inv^ D^174^0^0^0^0^0 X^174^D^58^9^2^ S^175^155^V^dias_vence_reservas^SMALLINT^decomarmol.companias.dias_vence_reservas^ D^175^0^0^0^0^0 X^175^D^58^9^2^ S^176^0^F^configureoutput^^^extern X^176^c^113^9^0^ S^177^0^F^seleccionarsalida^^^extern X^177^c^112^9^0^ S^178^0^F^msg^^^extern X^178^c^87^10^0^ X^178^c^81^15^0^ X^178^c^72^15^0^ X^178^c^65^15^0^ S^179^0^F^msgrp000^^^extern X^179^c^54^7^0^ T^9^23^d^0^0^DEFINE T^11^23^d^0^0^RECORD T^27^36^f^0^0^MAIN T^27^27^d^0^0^DEFINE T^38^149^f^0^0^FUNCTION T^38^38^d^0^0^DEFINE T^56^84^i^0^0^INPUT T^58^60^i^0^0^ T^62^67^i^0^0^ T^63^67^c^0^0^IF T^64^66^c^0^0^THEN T^69^83^i^0^0^ T^70^74^c^0^0^IF T^71^73^c^0^0^THEN T^79^83^c^0^0^IF T^80^82^c^0^0^THEN T^85^90^c^0^0^IF T^86^89^c^0^0^THEN T^116^147^l^0^0^FOREACH T^126^128^c^0^0^IF T^127^127^c^0^0^THEN T^134^136^c^0^0^IF T^135^135^c^0^0^THEN T^139^145^c^0^0^IF T^140^142^c^0^0^THEN T^143^144^c^0^0^ELSE T^152^251^f^0^0^REPORT T^153^167^d^0^0^DEFINE T^153^165^d^0^0^RECORD r^2^TOP MARGIN^0 r^2^LEFT MARGIN^0 r^2^BOTTOM MARGIN^2 r^2^PAGE LENGTH^100 r^2^ORDER EXTERNAL^0 o^2^6^1 o^2^4^1 T^178^217^a^0^0^PAGE HEADER x^181^0^ p^c^1 p^v^75 p^v^153 x^182^0^ p^c^1 p^l^acprrp001 p^c^expr p^e^ p^c^133 p^l^Pag. p^e^ x^186^0^ p^c^expr p^l^Sistema de Activos Fijos p^c^133 p^e^ x^189^0^ p^c^expr p^l^Control de Activos p^c^136 p^v^15 x^192^0^ p^c^1 p^l^FECHA DE CORTE: p^v^135 x^193^0^ p^c^1 p^l^-------------------------------------------------- p^l^-------------------------------------------------- p^l^-------------------------------------------------- x^197^0^ p^c^45 p^l^Documento p^c^57 p^l^Fecha p^c^73 p^l^Valor p^c^86 p^l^Depreciacion p^c^103 p^l^Depreciacion p^c^122 p^l^Valor p^c^137 p^l^Vida x^205^0^ p^c^1 p^l^Activo p^c^45 p^l^Compra p^c^57 p^l^Compra p^c^73 p^l^Original p^c^86 p^l^Acumulada p^c^103 p^l^Mes p^c^122 p^l^Libro p^c^137 p^l^Util x^214^0^ p^c^1 p^l^-------------------------------------------------- p^l^-------------------------------------------------- p^l^-------------------------------------------------- x^217^0^ p^v^154 T^219^229^a^0^0^ON EVERY ROW x^222^0^ p^c^1 p^v^4 p^l^ p^e^ p^c^45 p^e^ p^c^57 p^v^8 p^c^67 p^v^11 p^c^84 p^v^12 p^c^105 p^v^14 p^c^116 p^v^13 p^c^138 p^v^9 T^231^240^a^0^0^AFTER GROUP OF 6 x^233^0^ p^c^1 p^v^153 x^234^0^ p^c^5 p^l^TOTAL CUENTA---> p^e^ p^c^67 p^e^ p^c^84 p^e^ p^c^101 p^e^ p^c^116 p^e^ x^240^0^ p^c^1 p^v^154 T^242^249^a^0^0^ON LAST ROW x^243^0^ p^c^1 p^v^153 x^244^0^ p^c^5 p^l^TOTAL GRAL.---> p^c^67 p^e^ p^c^84 p^e^ p^c^101 p^e^ p^c^116 p^e^ x^249^0^ p^c^1 p^v^154 p^v^72