S^1^0^M^acprrp010^MODULE^^ S^2^1^F^codigo_128^^^public F^0^C:\Users\luis\Documents\fuentes\GENERO FUENTES\Nueva carpeta\decomarmol\MARMOTECH\PROYECTO\acdir\acprrp010.4gl D^2^323^344^10^0^0 X^2^D^323^10^0^ X^2^c^316^33^0^ X^2^c^314^36^0^ S^3^2^P^cod_val^CHAR(25)^^ D^3^326^326^13^0^0 X^3^r^330^20^0^ X^3^l^323^21^0^ X^3^D^326^13^0^ S^4^2^P^pcantidad^DECIMAL(12,4)^^ D^4^328^328^8^0^0 X^4^r^330^41^0^ X^4^l^323^29^0^ X^4^D^328^8^0^ S^5^2^V^x^INTEGER^^ D^5^325^325^15^0^0 X^5^r^335^54^0^ X^5^l^334^12^0^ X^5^D^325^15^0^ S^6^2^V^aux_str^STRING^^ D^6^327^327^8^0^0 X^6^r^335^36^0^ X^6^r^334^26^0^ X^6^l^330^12^0^ X^6^D^327^8^0^ S^7^2^V^barcode^STRING^^ D^7^327^327^16^0^0 X^7^r^342^15^0^ X^7^r^339^23^0^ X^7^l^339^15^0^ X^7^r^335^24^0^ X^7^l^335^16^0^ X^7^l^332^12^0^ X^7^D^327^16^0^ S^8^1^R^activos^^^public D^8^293^321^8^0^0 X^8^D^293^8^0^ X^8^c^267^21^0^finish X^8^c^234^27^0^output X^8^c^225^20^0^start S^9^8^P^x^INTEGER^^ D^9^295^295^9^0^0 X^9^r^318^12^0^ X^9^l^293^16^0^ X^9^D^295^9^0^ S^10^8^P^descripcion^CHAR(180)^^ D^10^298^298^9^0^0 X^10^r^318^24^0^ X^10^l^293^18^0^ X^10^D^298^9^0^ S^11^8^P^xfecha_compra^DATE^^ D^11^296^296^15^0^0 X^11^r^319^9^0^ X^11^l^293^30^0^ X^11^D^296^15^0^ S^12^8^P^xprecio^DECIMAL(12,2)^^ D^12^299^299^9^0^0 X^12^r^319^23^0^ X^12^l^293^44^0^ X^12^D^299^9^0^ S^13^8^P^xsimbolo^CHAR(4)^^ D^13^300^300^9^0^0 X^13^r^319^31^0^ X^13^l^293^52^0^ X^13^D^300^9^0^ S^14^8^P^xcodigo^CHAR(25)^^ D^14^301^301^9^0^0 X^14^r^319^40^0^ X^14^r^316^44^0^ X^14^l^310^20^0^ X^14^l^305^14^0^ X^14^l^293^61^0^ X^14^D^301^9^0^ S^15^8^P^xunidadmed^CHAR(3)^^ D^15^302^302^9^0^0 X^15^r^320^30^0^ X^15^l^293^69^0^ X^15^D^302^9^0^ S^16^8^P^xcantidad^DECIMAL(12,4)^^ D^16^303^303^9^0^0 X^16^r^319^62^0^ X^16^l^294^16^0^ X^16^D^303^9^0^ S^17^8^P^xlado1^DECIMAL(12,4)^^ D^17^303^303^19^0^0 X^17^r^320^9^0^ X^17^l^294^26^0^ X^17^D^303^19^0^ S^18^8^P^xlado2^DECIMAL(12,4)^^ D^18^303^303^26^0^0 X^18^r^320^16^0^ X^18^l^294^33^0^ X^18^D^303^26^0^ S^19^8^P^xlado3^DECIMAL(12,4)^^ D^19^303^303^33^0^0 X^19^r^320^23^0^ X^19^l^294^40^0^ X^19^D^303^33^0^ S^20^8^P^xvalor_medida^DECIMAL(12,4)^^ D^20^303^303^40^0^0 X^20^r^319^48^0^ X^20^r^316^52^0^ X^20^r^314^54^0^ X^20^l^294^47^0^ X^20^D^303^40^0^ S^21^8^P^xcodid^INTEGER^^ D^21^295^295^11^0^0 X^21^r^314^47^0^ X^21^l^294^61^0^ X^21^D^295^11^0^ S^22^8^V^fecha^DATE^^ D^22^296^296^9^0^0 X^22^r^318^51^0^ X^22^l^309^10^0^ X^22^D^296^9^0^ S^23^8^V^barcodigo_act^CHAR(128)^^ D^23^297^297^9^0^0 X^23^r^318^57^0^ X^23^l^316^8^0^ X^23^l^314^11^0^ X^23^D^297^9^0^ S^24^8^V^reportDef^base.Report^^ D^24^0^0^0^0^0 S^25^1^F^acprrp010^^^public D^25^27^291^10^0^0 X^25^D^27^10^0^ X^25^c^24^7^0^ S^26^25^V^factor^DYNAMIC ARRAY OF DECIMAL(12,5)^^ D^26^28^28^8^0^0 X^26^r^210^34^0^ X^26^l^168^9^0^ X^26^r^167^5^0^ X^26^l^166^38^0^ X^26^D^28^8^0^ S^27^25^V^codigo_act^INTEGER^^ D^27^29^29^8^0^0 X^27^r^234^35^0^ X^27^l^163^20^0^ X^27^D^29^8^0^ S^28^25^V^descripcion_act^CHAR(180)^^ D^28^30^30^8^0^0 X^28^r^175^34^0^ X^28^l^163^31^0^ X^28^D^30^8^0^ S^29^25^V^fecha_compra^DATE^^ D^29^31^31^8^0^0 X^29^r^234^72^0^ X^29^l^164^36^0^ X^29^D^31^8^0^ S^30^25^V^kprecio^DECIMAL(12,2)^^ D^30^32^32^8^0^0 X^30^r^178^26^0^ X^30^l^165^20^0^ X^30^D^32^8^0^ S^31^25^V^moneda^SMALLINT^^ D^31^33^33^8^0^0 X^31^r^116^35^0^ X^31^l^61^45^0^ X^31^D^33^8^0^ S^32^25^V^simbolo^CHAR(4)^^ D^32^34^34^8^0^0 X^32^r^234^105^0^ X^32^l^165^28^0^ X^32^D^34^8^0^ S^33^25^V^codigo^CHAR(25)^^ D^33^35^35^8^0^0 X^33^r^174^29^0^ X^33^l^170^6^0^ X^33^D^35^8^0^ S^34^25^V^pcodn^SMALLINT^^ D^34^36^36^8^0^0 X^34^r^170^15^0^ X^34^l^165^36^0^ X^34^D^36^8^0^ S^35^25^V^pcodgrupo^SMALLINT^^ D^35^36^36^14^0^0 X^35^r^170^38^0^ X^35^l^165^42^0^ X^35^D^36^14^0^ S^36^25^V^pcodtipo^SMALLINT^^ D^36^36^36^24^0^0 X^36^r^171^15^0^ X^36^l^165^52^0^ X^36^D^36^24^0^ S^37^25^V^pcodsec^SMALLINT^^ D^37^36^36^33^0^0 X^37^r^171^42^0^ X^37^l^165^61^0^ X^37^D^36^33^0^ S^38^25^V^valor^SMALLINT^^ D^38^36^36^41^0^0 X^38^r^108^8^0^ X^38^l^61^52^0^ X^38^D^36^41^0^ S^39^25^V^cantidad^DECIMAL(12,4)^^ D^39^37^37^8^0^0 X^39^r^177^31^0^ X^39^D^37^8^0^ S^40^25^V^lado1^DECIMAL(12,4)^^ D^40^37^37^17^0^0 X^40^D^37^17^0^ S^41^25^V^lado2^DECIMAL(12,4)^^ D^41^37^37^23^0^0 X^41^D^37^23^0^ S^42^25^V^lado3^DECIMAL(12,4)^^ D^42^37^37^29^0^0 X^42^D^37^29^0^ S^43^25^V^valor_medida^DECIMAL(12,4)^^ D^43^37^37^35^0^0 X^43^D^37^35^0^ S^44^25^V^punidadmed^CHAR(3)^^ D^44^38^38^8^0^0 X^44^r^176^29^0^ X^44^l^166^20^0^ X^44^D^38^8^0^ S^45^25^V^pcodid^INTEGER^^ D^45^39^39^8^0^0 X^45^r^179^29^0^ X^45^l^166^31^0^ X^45^D^39^8^0^ S^46^25^V^despiece^DYNAMIC ARRAY OF RECORD^^ D^46^41^52^8^0^0 X^46^r^280^16^0^ X^46^r^279^44^0^ X^46^r^279^11^0^ X^46^r^278^11^0^ X^46^r^261^13^0^ X^46^r^258^13^0^ X^46^r^257^13^0^ X^46^r^256^13^0^ X^46^r^255^13^0^ X^46^r^254^13^0^ X^46^r^253^13^0^ X^46^r^237^32^0^ X^46^r^236^92^0^ X^46^r^236^72^0^ X^46^r^236^52^0^ X^46^r^236^32^0^ X^46^r^235^75^0^ X^46^r^235^53^0^ X^46^r^235^32^0^ X^46^r^234^85^0^ X^46^r^234^46^0^ X^46^r^232^26^0^ X^46^r^230^40^0^ X^46^l^230^17^0^ X^46^r^229^13^0^ X^46^r^228^10^0^ X^46^r^211^15^0^ X^46^r^210^48^0^ X^46^l^210^11^0^ X^46^r^204^40^0^ X^46^l^204^15^0^ X^46^r^203^41^0^ X^46^r^203^11^0^ X^46^l^200^15^0^ X^46^r^199^40^0^ X^46^r^199^15^0^ X^46^l^198^15^0^ X^46^r^197^11^0^ X^46^r^194^82^0^ X^46^r^194^60^0^ X^46^r^194^38^0^ X^46^r^194^12^0^ X^46^l^193^16^0^ X^46^r^192^12^0^ X^46^r^189^64^0^ X^46^r^189^42^0^ X^46^r^189^16^0^ X^46^l^188^16^0^ X^46^r^187^12^0^ X^46^r^184^15^0^ X^46^l^179^6^0^ X^46^l^178^6^0^ X^46^l^177^6^0^ X^46^l^176^6^0^ X^46^l^175^6^0^ X^46^l^174^6^0^ X^46^l^173^6^0^ X^46^r^76^8^0^ X^46^r^63^11^0^ X^46^D^41^8^0^ S^47^46^V^imp^CHAR(3)^^ D^47^42^42^9^0^0 X^47^r^278^25^0^ X^47^r^228^24^0^ X^47^l^173^20^0^ X^47^D^42^9^0^ S^48^46^V^pcodid^INTEGER^^ D^48^43^43^9^0^0 X^48^r^261^27^0^ X^48^r^237^46^0^ X^48^l^179^20^0^ X^48^D^43^9^0^ S^49^46^V^codigo^CHAR(25)^^ D^49^44^44^9^0^0 X^49^r^280^30^0^ X^49^r^253^27^0^ X^49^r^235^46^0^ X^49^l^174^20^0^ X^49^D^44^9^0^ S^50^46^V^descripcion^CHAR(180)^^ D^50^45^45^9^0^0 X^50^r^234^60^0^ X^50^l^175^20^0^ X^50^D^45^9^0^ S^51^46^V^unidad^CHAR(4)^^ D^51^46^46^9^0^0 X^51^r^235^67^0^ X^51^r^203^55^0^ X^51^r^203^25^0^ X^51^r^197^25^0^ X^51^r^192^26^0^ X^51^r^187^26^0^ X^51^l^176^20^0^ X^51^D^46^9^0^ S^52^46^V^cantidad^DECIMAL(12,4)^^ D^52^47^47^9^0^0 X^52^r^279^58^0^ X^52^r^254^27^0^ X^52^r^235^89^0^ X^52^r^230^54^0^ X^52^r^210^62^0^ X^52^r^204^54^0^ X^52^r^199^29^0^ X^52^r^194^26^0^ X^52^r^189^30^0^ X^52^l^177^20^0^ X^52^D^47^9^0^ S^53^46^V^lado1^DECIMAL(12,4)^^ D^53^48^48^9^0^0 X^53^r^255^27^0^ X^53^r^236^46^0^ X^53^r^234^99^0^ X^53^r^199^54^0^ X^53^r^194^52^0^ X^53^r^189^56^0^ X^53^l^178^20^0^ X^53^D^48^9^0^ S^54^46^V^lado2^DECIMAL(12,4)^^ D^54^49^49^9^0^0 X^54^r^256^27^0^ X^54^r^236^66^0^ X^54^l^200^29^0^ X^54^r^194^74^0^ X^54^r^189^78^0^ X^54^D^49^9^0^ S^55^46^V^lado3^DECIMAL(12,4)^^ D^55^50^50^9^0^0 X^55^r^257^27^0^ X^55^r^236^86^0^ X^55^r^194^96^0^ X^55^D^50^9^0^ S^56^46^V^medida^DECIMAL(12,4)^^ D^56^51^51^9^0^0 X^56^r^279^25^0^ X^56^r^258^27^0^ X^56^r^236^106^0^ X^56^r^232^40^0^ X^56^l^230^31^0^ X^56^r^229^27^0^ X^56^r^211^29^0^ X^56^l^210^25^0^ X^56^l^204^29^0^ X^56^l^198^29^0^ X^56^l^193^30^0^ X^56^l^188^30^0^ X^56^D^51^9^0^ S^57^25^V^handler^om.SaxDocumentHandler^^ D^57^54^54^8^0^0 X^57^r^225^43^0^ X^57^r^224^7^0^ X^57^l^219^14^0^ X^57^D^54^8^0^ S^58^25^V^salida^STRING^^ D^58^55^55^10^0^0 X^58^r^213^21^0^ X^58^l^61^29^0^ X^58^D^55^10^0^ S^59^25^V^r_filename^STRING^^ D^59^55^55^17^0^0 X^59^r^214^38^0^ X^59^l^213^8^0^ X^59^D^55^17^0^ S^60^25^V^r_output^STRING^^ D^60^56^56^11^0^0 X^60^r^217^39^0^ X^60^l^61^67^0^ X^60^D^56^11^0^ S^61^25^V^preview^INTEGER^^ D^61^57^57^11^0^0 X^61^r^218^40^0^ X^61^l^216^14^0^ X^61^D^57^11^0^ S^62^1^F^main^^^public D^62^16^25^1^0^0 X^62^D^16^1^0^ S^63^1^V^codigo_dp^INTEGER^^private D^63^11^11^9^0^0 X^63^r^318^14^0^ X^63^l^163^47^0^ X^63^D^11^9^0^ S^64^1^V^descripcion_dp^CHAR(50)^^private D^64^12^12^9^0^0 X^64^r^318^36^0^ X^64^l^164^20^0^ X^64^D^12^9^0^ S^65^1^V^inventario^CHAR(50)^^private D^65^13^13^9^0^0 X^65^r^338^11^0^ X^65^r^313^7^0^ X^65^r^252^13^0^ X^65^r^146^5^0^ X^65^r^135^5^0^ X^65^r^107^5^0^ X^65^r^98^5^0^ X^65^r^92^5^0^ X^65^r^87^4^0^ X^65^r^81^5^0^ X^65^r^77^5^0^ X^65^l^61^18^0^ X^65^D^13^9^0^ S^66^1^V^kcantidad^DECIMAL(12,4)^^private D^66^14^14^9^0^0 X^66^l^232^14^0^ X^66^D^14^9^0^ S^67^1^V^codlista^SMALLINT^^private D^67^15^15^9^0^0 X^67^r^117^39^0^ X^67^r^65^9^0^ X^67^l^61^58^0^ X^67^D^15^9^0^ S^68^1^V^cia_logo^SMALLINT^^private D^68^15^15^18^0^0 X^68^r^320^41^0^ X^68^l^61^36^0^ X^68^D^15^18^0^ S^69^1^C^comando^base.Cursor^^private D^69^159^159^9^0^0 X^69^u^160^26^0^ X^69^D^159^9^0^ S^70^1^C^busca^base.Cursor^^private D^70^160^160^9^0^0 X^70^u^163^9^0^ X^70^D^160^9^0^ S^71^0^V^status^INTEGER^^builtin F^1^C:\Program Files (x86)\FourJs\Genero Studio2.50\fgl\lib/fgl.4gl D^71^14^14^1^1^1 X^71^D^14^1^1^ S^72^0^V^int_flag^INTEGER^^builtin D^72^14^14^9^1^1 X^72^l^273^14^0^ X^72^r^272^10^0^ X^72^l^71^8^0^ X^72^D^14^9^1^ S^73^0^V^activo^RECORD^^global F^2^acprgb000.4gl D^73^4^16^10^2^2 X^73^D^4^10^2^ S^74^73^V^codigo^SMALLINT^^ D^74^5^5^5^2^2 X^74^D^5^5^2^ S^75^73^V^descripcion^CHAR(30)^^ D^75^6^6^5^2^2 X^75^D^6^5^2^ S^76^73^V^cuenta_no^CHAR(8)^^ D^76^7^7^5^2^2 X^76^D^7^5^2^ S^77^73^V^cta_depr^CHAR(8)^^ D^77^8^8^5^2^2 X^77^D^8^5^2^ S^78^73^V^cta_gasto^CHAR(8)^^ D^78^9^9^5^2^2 X^78^D^9^5^2^ S^79^73^V^departamento^SMALLINT^^ D^79^10^10^5^2^2 X^79^D^10^5^2^ S^80^73^V^tasa_cambio^DECIMAL(8,2)^^ D^80^11^11^5^2^2 X^80^D^11^5^2^ S^81^73^V^fech_compra^DATE^^ D^81^12^12^5^2^2 X^81^D^12^5^2^ S^82^73^V^dcto_compra^CHAR(10)^^ D^82^13^13^5^2^2 X^82^D^13^5^2^ S^83^73^V^duracion^INTEGER^^ D^83^14^14^5^2^2 X^83^D^14^5^2^ S^84^73^V^valor_compra^DECIMAL(12,2)^^ D^84^15^15^5^2^2 X^84^D^15^5^2^ S^85^0^V^usuarios^CHAR(50)^^global D^85^17^17^2^2^2 X^85^r^259^13^0^ X^85^r^21^33^0^ X^85^l^18^28^0^ X^85^D^17^2^2^ S^86^0^V^clave^CHAR(50)^^global D^86^17^17^11^2^2 X^86^r^21^48^0^ X^86^l^19^28^0^ X^86^D^17^11^2^ S^87^0^V^p_companias^RECORD^^global D^87^18^18^2^2^2 X^87^r^22^18^0^ X^87^D^18^2^2^ S^88^87^V^cod_comp^CHAR(5)^decomarmol.companias.cod_comp^ D^88^0^0^0^0^0 X^88^D^18^2^2^ S^89^87^V^nombre^CHAR(40)^decomarmol.companias.nombre^ D^89^0^0^0^0^0 X^89^D^18^2^2^ S^90^87^V^rnc^CHAR(30)^decomarmol.companias.rnc^ D^90^0^0^0^0^0 X^90^D^18^2^2^ S^91^87^V^direccion^CHAR(40)^decomarmol.companias.direccion^ D^91^0^0^0^0^0 X^91^D^18^2^2^ S^92^87^V^telefono^CHAR(15)^decomarmol.companias.telefono^ D^92^0^0^0^0^0 X^92^D^18^2^2^ S^93^87^V^fax^CHAR(15)^decomarmol.companias.fax^ D^93^0^0^0^0^0 X^93^D^18^2^2^ S^94^87^V^administrador^CHAR(40)^decomarmol.companias.administrador^ D^94^0^0^0^0^0 X^94^D^18^2^2^ S^95^87^V^email^CHAR(100)^decomarmol.companias.email^ D^95^0^0^0^0^0 X^95^D^18^2^2^ S^96^87^V^paginaweb^CHAR(100)^decomarmol.companias.paginaweb^ D^96^0^0^0^0^0 X^96^D^18^2^2^ S^97^87^V^direccion1^CHAR(50)^decomarmol.companias.direccion1^ D^97^0^0^0^0^0 X^97^D^18^2^2^ S^98^87^V^telefono1^CHAR(15)^decomarmol.companias.telefono1^ D^98^0^0^0^0^0 X^98^D^18^2^2^ S^99^87^V^fax1^CHAR(15)^decomarmol.companias.fax1^ D^99^0^0^0^0^0 X^99^D^18^2^2^ S^100^87^V^status_t^CHAR(1)^decomarmol.companias.status_t^ D^100^0^0^0^0^0 X^100^D^18^2^2^ S^101^87^V^us_crea^CHAR(9)^decomarmol.companias.us_crea^ D^101^0^0^0^0^0 X^101^D^18^2^2^ S^102^87^V^fech_crea^DATE^decomarmol.companias.fech_crea^ D^102^0^0^0^0^0 X^102^D^18^2^2^ S^103^87^V^us_mod^CHAR(9)^decomarmol.companias.us_mod^ D^103^0^0^0^0^0 X^103^D^18^2^2^ S^104^87^V^fech_mod^DATE^decomarmol.companias.fech_mod^ D^104^0^0^0^0^0 X^104^D^18^2^2^ S^105^87^V^codnomina^CHAR(30)^decomarmol.companias.codnomina^ D^105^0^0^0^0^0 X^105^D^18^2^2^ S^106^87^V^cuenta_no_inv^CHAR(10)^decomarmol.companias.cuenta_no_inv^ D^106^0^0^0^0^0 X^106^D^18^2^2^ S^107^87^V^dias_vence_reservas^SMALLINT^decomarmol.companias.dias_vence_reservas^ D^107^0^0^0^0^0 X^107^D^18^2^2^ S^108^0^V^HANDLER^om.SaxDocumentHandler^^global D^108^19^19^4^2^2 X^108^D^19^4^2^ S^109^0^V^r_output^STRING^^global D^109^20^20^10^2^2 X^109^D^20^10^2^ S^110^0^V^normal^CHAR(3)^^global D^110^23^23^10^2^2 X^110^D^23^10^2^ S^111^0^V^negrilla_on^CHAR(3)^^global D^111^23^23^17^2^2 X^111^D^23^17^2^ S^112^0^V^negrillas_of^CHAR(3)^^global D^112^23^23^29^2^2 X^112^D^23^29^2^ S^113^0^V^comp_on^CHAR(3)^^global D^113^23^23^42^2^2 X^113^D^23^42^2^ S^114^0^V^comp_off^CHAR(3)^^global D^114^23^23^50^2^2 X^114^D^23^50^2^ S^115^0^V^doce^CHAR(3)^^global D^115^23^23^59^2^2 X^115^D^23^59^2^ S^116^0^V^doble_on^CHAR(3)^^global D^116^23^23^64^2^2 X^116^D^23^64^2^ S^117^0^V^doble_off^CHAR(3)^^global D^117^23^23^73^2^2 X^117^D^23^73^2^ S^118^0^V^cmd^CHAR(150)^^global D^118^25^25^10^2^2 X^118^D^25^10^2^ S^119^0^V^imprime^CHAR(150)^^global D^119^25^25^14^2^2 X^119^D^25^14^2^ S^120^0^V^copia^CHAR(150)^^global D^120^25^25^22^2^2 X^120^D^25^22^2^ S^121^0^V^archivo^CHAR(80)^^global D^121^25^25^38^2^2 X^121^D^25^38^2^ S^122^0^V^impresor^SMALLINT^^global D^122^26^26^10^2^2 X^122^D^26^10^2^ S^123^0^V^activ^RECORD^^global D^123^29^29^8^2^2 X^123^D^29^8^2^ S^124^123^V^codigo^SMALLINT^decomarmol.actb00001.codigo^ D^124^0^0^0^0^0 X^124^D^29^8^2^ S^125^123^V^descripcion^CHAR(40)^decomarmol.actb00001.descripcion^ D^125^0^0^0^0^0 X^125^D^29^8^2^ S^126^123^V^cuenta_no^CHAR(8)^decomarmol.actb00001.cuenta_no^ D^126^0^0^0^0^0 X^126^D^29^8^2^ S^127^123^V^cta_depr^CHAR(8)^decomarmol.actb00001.cta_depr^ D^127^0^0^0^0^0 X^127^D^29^8^2^ S^128^123^V^cta_gasto^CHAR(8)^decomarmol.actb00001.cta_gasto^ D^128^0^0^0^0^0 X^128^D^29^8^2^ S^129^123^V^departamento^SMALLINT^decomarmol.actb00001.departamento^ D^129^0^0^0^0^0 X^129^D^29^8^2^ S^130^123^V^fech_compra^DATE^decomarmol.actb00001.fech_compra^ D^130^0^0^0^0^0 X^130^D^29^8^2^ S^131^123^V^duracion^INTEGER^decomarmol.actb00001.duracion^ D^131^0^0^0^0^0 X^131^D^29^8^2^ S^132^123^V^fech_elim^DATE^decomarmol.actb00001.fech_elim^ D^132^0^0^0^0^0 X^132^D^29^8^2^ S^133^123^V^referencia^VARCHAR(25)^decomarmol.actb00001.referencia^ D^133^0^0^0^0^0 X^133^D^29^8^2^ S^134^123^V^fabricante^VARCHAR(50)^decomarmol.actb00001.fabricante^ D^134^0^0^0^0^0 X^134^D^29^8^2^ S^135^123^V^status_t^CHAR(1)^decomarmol.actb00001.status_t^ D^135^0^0^0^0^0 X^135^D^29^8^2^ S^136^123^V^us_crea^CHAR(9)^decomarmol.actb00001.us_crea^ D^136^0^0^0^0^0 X^136^D^29^8^2^ S^137^123^V^fech_crea^DATETIME YEAR TO FRACTION^decomarmol.actb00001.fech_crea^ D^137^0^0^0^0^0 X^137^D^29^8^2^ S^138^123^V^us_mod^CHAR(9)^decomarmol.actb00001.us_mod^ D^138^0^0^0^0^0 X^138^D^29^8^2^ S^139^123^V^fech_mod^DATETIME YEAR TO FRACTION^decomarmol.actb00001.fech_mod^ D^139^0^0^0^0^0 X^139^D^29^8^2^ S^140^0^V^categ^RECORD^^global D^140^31^31^8^2^2 X^140^D^31^8^2^ S^141^140^V^cod_mov^SMALLINT^decomarmol.actb00002.cod_mov^ D^141^0^0^0^0^0 X^141^D^31^8^2^ S^142^140^V^descrip^CHAR(30)^decomarmol.actb00002.descrip^ D^142^0^0^0^0^0 X^142^D^31^8^2^ S^143^140^V^tipo_mov^CHAR(1)^decomarmol.actb00002.tipo_mov^ D^143^0^0^0^0^0 X^143^D^31^8^2^ S^144^140^V^uso^CHAR(1)^decomarmol.actb00002.uso^ D^144^0^0^0^0^0 X^144^D^31^8^2^ S^145^140^V^status_t^CHAR(1)^decomarmol.actb00002.status_t^ D^145^0^0^0^0^0 X^145^D^31^8^2^ S^146^140^V^us_crea^CHAR(50)^decomarmol.actb00002.us_crea^ D^146^0^0^0^0^0 X^146^D^31^8^2^ S^147^140^V^fech_crea^DATETIME YEAR TO FRACTION^decomarmol.actb00002.fech_crea^ D^147^0^0^0^0^0 X^147^D^31^8^2^ S^148^140^V^us_mod^CHAR(50)^decomarmol.actb00002.us_mod^ D^148^0^0^0^0^0 X^148^D^31^8^2^ S^149^140^V^fech_mod^DATETIME YEAR TO FRACTION^decomarmol.actb00002.fech_mod^ D^149^0^0^0^0^0 X^149^D^31^8^2^ S^150^0^V^trans^RECORD^^global D^150^33^33^8^2^2 X^150^D^33^8^2^ S^151^150^V^codigo^INTEGER^decomarmol.actb00004.codigo^ D^151^0^0^0^0^0 X^151^D^33^8^2^ S^152^150^V^num_doc^VARCHAR(10)^decomarmol.actb00004.num_doc^ D^152^0^0^0^0^0 X^152^D^33^8^2^ S^153^150^V^fecha^DATE^decomarmol.actb00004.fecha^ D^153^0^0^0^0^0 X^153^D^33^8^2^ S^154^150^V^cod_mov^INTEGER^decomarmol.actb00004.cod_mov^ D^154^0^0^0^0^0 X^154^D^33^8^2^ S^155^150^V^tasa_cambio^DECIMAL(7,2)^decomarmol.actb00004.tasa_cambio^ D^155^0^0^0^0^0 X^155^D^33^8^2^ S^156^150^V^monto^DECIMAL(12,2)^decomarmol.actb00004.monto^ D^156^0^0^0^0^0 X^156^D^33^8^2^ S^157^150^V^observacion^CHAR(40)^decomarmol.actb00004.observacion^ D^157^0^0^0^0^0 X^157^D^33^8^2^ S^158^150^V^status_t^VARCHAR(1)^decomarmol.actb00004.status_t^ D^158^0^0^0^0^0 X^158^D^33^8^2^ S^159^150^V^us_crea^VARCHAR(50)^decomarmol.actb00004.us_crea^ D^159^0^0^0^0^0 X^159^D^33^8^2^ S^160^150^V^fech_crea^DATETIME YEAR TO FRACTION^decomarmol.actb00004.fech_crea^ D^160^0^0^0^0^0 X^160^D^33^8^2^ S^161^150^V^us_mod^VARCHAR(50)^decomarmol.actb00004.us_mod^ D^161^0^0^0^0^0 X^161^D^33^8^2^ S^162^150^V^fech_mod^DATETIME YEAR TO FRACTION^decomarmol.actb00004.fech_mod^ D^162^0^0^0^0^0 X^162^D^33^8^2^ S^163^0^V^busca_dpto^DYNAMIC ARRAY OF RECORD^^global D^163^35^38^8^2^2 X^163^D^35^8^2^ S^164^163^V^departamento^SMALLINT^^ D^164^36^36^4^2^2 X^164^D^36^4^2^ S^165^163^V^nom_dpto^CHAR(30)^^ D^165^37^37^4^2^2 X^165^D^37^4^2^ S^166^0^V^estado^RECORD^^global D^166^40^46^8^2^2 X^166^D^40^8^2^ S^167^166^V^status_t^CHAR(1)^^ D^167^41^41^5^2^2 X^167^D^41^5^2^ S^168^166^V^us_crea^CHAR(9)^^ D^168^42^42^5^2^2 X^168^D^42^5^2^ S^169^166^V^fech_crea^DATETIME YEAR TO FRACTION^decomarmol.actb00001.fech_crea^ D^169^43^43^5^2^2 X^169^D^43^5^2^ S^170^166^V^us_mod^CHAR(9)^^ D^170^44^44^5^2^2 X^170^D^44^5^2^ S^171^166^V^fech_mod^DATETIME YEAR TO FRACTION^decomarmol.actb00001.fech_mod^ D^171^45^45^5^2^2 X^171^D^45^5^2^ S^172^0^V^descripcion^CHAR(30)^^global D^172^48^48^9^2^2 X^172^D^48^9^2^ S^173^0^V^fecha_corte^DATE^^global D^173^49^49^9^2^2 X^173^D^49^9^2^ S^174^0^V^fecha1^DATE^^global D^174^49^49^21^2^2 X^174^D^49^21^2^ S^175^0^V^opcion^CHAR(2)^^global D^175^50^50^9^2^2 X^175^D^50^9^2^ S^176^0^V^opt^CHAR(3)^^global D^176^51^51^9^2^2 X^176^D^51^9^2^ S^177^0^V^l^SMALLINT^^global D^177^52^52^9^2^2 X^177^D^52^9^2^ S^178^0^V^tipo_papel^SMALLINT^^global D^178^52^52^11^2^2 X^178^D^52^11^2^ S^179^0^V^bandera^SMALLINT^^global D^179^52^52^22^2^2 X^179^D^52^22^2^ S^180^0^V^numero_msg^SMALLINT^^global D^180^52^52^30^2^2 X^180^D^52^30^2^ S^181^0^V^criterio^STRING^^global D^181^53^53^9^2^2 X^181^r^152^47^0^ X^181^r^141^47^0^ X^181^r^126^47^0^ X^181^r^113^47^0^ X^181^r^103^47^0^ X^181^l^93^15^0^ X^181^l^88^15^0^ X^181^l^82^15^0^ X^181^l^78^15^0^ X^181^D^53^9^2^ S^182^0^V^selec^STRING^^global D^182^53^53^18^2^2 X^182^r^159^22^0^ X^182^l^148^10^0^ X^182^l^137^10^0^ X^182^l^122^10^0^ X^182^l^109^12^0^ X^182^l^100^9^0^ X^182^D^53^18^2^ S^183^0^V^selec1^STRING^^global D^183^53^53^24^2^2 X^183^D^53^24^2^ S^184^0^V^p_ano1^INTEGER^^global D^184^54^54^9^2^2 X^184^D^54^9^2^ S^185^0^V^p_mes1^INTEGER^^global D^185^54^54^16^2^2 X^185^D^54^16^2^ S^186^0^V^idx^INTEGER^^global D^186^54^54^23^2^2 X^186^r^280^25^0^ X^186^r^279^53^0^ X^186^r^279^20^0^ X^186^r^278^20^0^ X^186^l^277^12^0^ X^186^r^261^22^0^ X^186^r^258^22^0^ X^186^r^257^22^0^ X^186^r^256^22^0^ X^186^r^255^22^0^ X^186^r^254^22^0^ X^186^r^253^22^0^ X^186^r^237^41^0^ X^186^r^236^101^0^ X^186^r^236^81^0^ X^186^r^236^61^0^ X^186^r^236^41^0^ X^186^r^235^84^0^ X^186^r^235^62^0^ X^186^r^235^41^0^ X^186^r^234^94^0^ X^186^r^234^55^0^ X^186^r^232^35^0^ X^186^r^230^49^0^ X^186^l^230^26^0^ X^186^r^229^22^0^ X^186^r^228^19^0^ X^186^l^226^11^0^ X^186^r^211^24^0^ X^186^r^210^57^0^ X^186^r^210^41^0^ X^186^l^210^20^0^ X^186^l^208^11^0^ X^186^r^204^49^0^ X^186^l^204^24^0^ X^186^r^203^50^0^ X^186^r^203^20^0^ X^186^l^200^24^0^ X^186^r^199^49^0^ X^186^r^199^24^0^ X^186^l^198^24^0^ X^186^r^197^20^0^ X^186^r^194^91^0^ X^186^r^194^69^0^ X^186^r^194^47^0^ X^186^r^194^21^0^ X^186^l^193^25^0^ X^186^r^192^21^0^ X^186^r^189^73^0^ X^186^r^189^51^0^ X^186^r^189^25^0^ X^186^l^188^25^0^ X^186^r^187^21^0^ X^186^l^186^11^0^ X^186^r^182^16^0^ X^186^r^180^13^0^ X^186^l^180^7^0^ X^186^l^179^15^0^ X^186^l^178^15^0^ X^186^l^177^15^0^ X^186^l^176^15^0^ X^186^l^175^15^0^ X^186^l^174^15^0^ X^186^l^173^15^0^ X^186^l^168^16^0^ X^186^r^167^12^0^ X^186^l^166^45^0^ X^186^l^162^5^0^ X^186^D^54^23^2^ S^187^0^V^idx1^INTEGER^^global D^187^54^54^27^2^2 X^187^D^54^27^2^ S^188^0^V^curr^INTEGER^^global D^188^54^54^32^2^2 X^188^D^54^32^2^ S^189^0^V^fila^INTEGER^^global D^189^54^54^37^2^2 X^189^D^54^37^2^ S^190^0^V^scr_l^INTEGER^^global D^190^54^54^42^2^2 X^190^r^211^47^0^ X^190^l^209^11^0^ X^190^D^54^42^2^ S^191^0^V^negrillas_on^CHAR(3)^^global D^191^56^56^45^2^2 X^191^D^56^45^2^ S^192^0^V^negrillas_off^CHAR(3)^^global D^192^56^56^58^2^2 X^192^D^56^58^2^ S^193^0^V^p_compania^RECORD^^global D^193^58^58^9^2^2 X^193^D^58^9^2^ S^194^193^V^cod_comp^CHAR(5)^decomarmol.companias.cod_comp^ D^194^0^0^0^0^0 X^194^D^58^9^2^ S^195^193^V^nombre^CHAR(40)^decomarmol.companias.nombre^ D^195^0^0^0^0^0 X^195^D^58^9^2^ S^196^193^V^rnc^CHAR(30)^decomarmol.companias.rnc^ D^196^0^0^0^0^0 X^196^D^58^9^2^ S^197^193^V^direccion^CHAR(40)^decomarmol.companias.direccion^ D^197^0^0^0^0^0 X^197^D^58^9^2^ S^198^193^V^telefono^CHAR(15)^decomarmol.companias.telefono^ D^198^0^0^0^0^0 X^198^D^58^9^2^ S^199^193^V^fax^CHAR(15)^decomarmol.companias.fax^ D^199^0^0^0^0^0 X^199^D^58^9^2^ S^200^193^V^administrador^CHAR(40)^decomarmol.companias.administrador^ D^200^0^0^0^0^0 X^200^D^58^9^2^ S^201^193^V^email^CHAR(100)^decomarmol.companias.email^ D^201^0^0^0^0^0 X^201^D^58^9^2^ S^202^193^V^paginaweb^CHAR(100)^decomarmol.companias.paginaweb^ D^202^0^0^0^0^0 X^202^D^58^9^2^ S^203^193^V^direccion1^CHAR(50)^decomarmol.companias.direccion1^ D^203^0^0^0^0^0 X^203^D^58^9^2^ S^204^193^V^telefono1^CHAR(15)^decomarmol.companias.telefono1^ D^204^0^0^0^0^0 X^204^D^58^9^2^ S^205^193^V^fax1^CHAR(15)^decomarmol.companias.fax1^ D^205^0^0^0^0^0 X^205^D^58^9^2^ S^206^193^V^status_t^CHAR(1)^decomarmol.companias.status_t^ D^206^0^0^0^0^0 X^206^D^58^9^2^ S^207^193^V^us_crea^CHAR(9)^decomarmol.companias.us_crea^ D^207^0^0^0^0^0 X^207^D^58^9^2^ S^208^193^V^fech_crea^DATE^decomarmol.companias.fech_crea^ D^208^0^0^0^0^0 X^208^D^58^9^2^ S^209^193^V^us_mod^CHAR(9)^decomarmol.companias.us_mod^ D^209^0^0^0^0^0 X^209^D^58^9^2^ S^210^193^V^fech_mod^DATE^decomarmol.companias.fech_mod^ D^210^0^0^0^0^0 X^210^D^58^9^2^ S^211^193^V^codnomina^CHAR(30)^decomarmol.companias.codnomina^ D^211^0^0^0^0^0 X^211^D^58^9^2^ S^212^193^V^cuenta_no_inv^CHAR(10)^decomarmol.companias.cuenta_no_inv^ D^212^0^0^0^0^0 X^212^D^58^9^2^ S^213^193^V^dias_vence_reservas^SMALLINT^decomarmol.companias.dias_vence_reservas^ D^213^0^0^0^0^0 X^213^D^58^9^2^ S^214^0^F^fgl_winmessage^^^extern X^214^c^281^21^0^ S^215^0^F^fgl_report_commitCurrentSettings^^^extern X^215^c^219^24^0^ S^216^0^F^fgl_report_selectPreview^^^extern X^216^c^218^15^0^ S^217^0^F^fgl_report_selectDevice^^^extern X^217^c^217^15^0^ S^218^0^F^fgl_report_loadCurrentSettings^^^extern X^218^c^214^7^0^ S^219^0^F^msg^^^extern X^219^c^274^15^0^ X^219^c^72^9^0^ X^219^c^66^14^0^ T^8^15^d^0^0^DEFINE T^16^25^f^0^0^MAIN T^16^16^d^0^0^DEFINE T^27^291^f^0^0^FUNCTION T^28^57^d^0^0^DEFINE T^41^52^d^0^0^RECORD T^60^289^i^0^0^DIALOG T^61^69^i^0^0^INPUT T^62^63^i^0^0^ T^64^68^i^0^0^ T^65^68^c^0^0^IF T^66^67^c^0^0^THEN T^73^73^g^0^0^EXIT DIALOG T^77^80^c^0^0^IF T^78^79^c^0^0^THEN T^81^85^c^0^0^IF T^82^84^c^0^0^THEN T^87^91^c^0^0^IF T^88^90^c^0^0^THEN T^92^96^c^0^0^IF T^93^95^c^0^0^THEN T^98^106^c^0^0^IF T^100^104^c^0^0^THEN T^107^134^c^0^0^IF T^108^132^c^0^0^THEN T^108^132^c^0^0^IF T^109^120^c^0^0^THEN T^121^130^c^0^0^ELSE T^135^144^c^0^0^IF T^137^142^c^0^0^THEN T^146^157^c^0^0^IF T^148^153^c^0^0^THEN T^163^181^l^0^0^FOREACH T^167^169^c^0^0^IF T^168^168^c^0^0^THEN T^184^288^i^0^0^INPUT ARRAY T^185^205^i^0^0^ T^187^190^c^0^0^IF T^188^189^c^0^0^THEN T^192^195^c^0^0^IF T^193^194^c^0^0^THEN T^197^201^c^0^0^IF T^198^200^c^0^0^THEN T^203^205^c^0^0^IF T^204^204^c^0^0^THEN T^207^211^i^0^0^ T^212^268^i^0^0^ T^214^220^c^0^0^IF T^216^219^c^0^0^THEN T^224^268^c^0^0^IF T^225^267^c^0^0^THEN T^226^265^l^0^0^FOR T^228^264^c^0^0^IF T^229^261^c^0^0^THEN T^229^231^c^0^0^IF T^230^230^c^0^0^THEN T^270^287^i^0^0^ T^272^276^c^0^0^IF T^273^275^c^0^0^THEN T^278^285^c^0^0^IF T^279^284^c^0^0^THEN T^279^284^c^0^0^IF T^280^283^c^0^0^THEN T^280^283^c^0^0^IF T^281^282^c^0^0^THEN T^287^287^g^0^0^EXIT INPUT T^293^321^f^0^0^REPORT T^295^303^d^0^0^DEFINE r^8^ORDER EXTERNAL^0 o^8^14^1 T^308^309^a^0^0^FIRST PAGE HEADER T^310^320^a^0^0^BEFORE GROUP OF 14 T^313^317^c^0^0^IF T^314^314^c^0^0^THEN T^315^316^c^0^0^ELSE x^318^0^ p^v^9 p^v^63 p^v^10 p^v^64 p^v^22 p^v^23 p^v^11 p^v^12 p^v^13 p^v^14 p^v^20 p^v^16 p^v^17 p^v^18 p^v^19 p^v^15 p^v^68 T^323^344^f^0^0^FUNCTION T^325^328^d^0^0^DEFINE T^334^337^l^0^0^FOR T^338^340^c^0^0^IF T^339^339^c^0^0^THEN