458 lines
9.2 KiB
Plaintext
458 lines
9.2 KiB
Plaintext
S^1^0^M^prprmt011b^MODULE^^
|
|
S^2^1^R^reporte_rp11b^^^public
|
|
F^0^C:\Users\luis_\Documents\fuentes\decomarmol\PROYECTO\PRDIR\prprmt011b.4gl
|
|
D^2^75^191^8^0^0
|
|
X^2^c^73^20^0^finish
|
|
X^2^c^70^30^0^output
|
|
X^2^c^66^22^0^start
|
|
X^2^D^75^8^0^
|
|
S^3^2^P^y^RECORD^^
|
|
D^3^76^116^9^0^0
|
|
X^3^r^188^13^0^
|
|
X^3^r^185^34^0^
|
|
X^3^r^181^28^0^
|
|
X^3^r^170^28^0^
|
|
X^3^r^165^24^0^
|
|
X^3^r^164^25^0^
|
|
X^3^r^163^26^0^
|
|
X^3^r^162^22^0^
|
|
X^3^r^161^21^0^
|
|
X^3^r^160^23^0^
|
|
X^3^r^159^33^0^
|
|
X^3^r^153^64^0^
|
|
X^3^r^153^29^0^
|
|
X^3^r^152^22^0^
|
|
X^3^r^149^24^0^
|
|
X^3^r^148^25^0^
|
|
X^3^r^147^26^0^
|
|
X^3^r^146^22^0^
|
|
X^3^r^145^21^0^
|
|
X^3^r^143^30^0^
|
|
X^3^r^138^54^0^
|
|
X^3^l^135^22^0^
|
|
X^3^l^131^22^0^
|
|
X^3^l^123^22^0^
|
|
X^3^l^123^11^0^
|
|
X^3^l^75^22^0^
|
|
X^3^D^76^9^0^
|
|
S^4^3^P^actualiza^VARCHAR(1)^^
|
|
D^4^77^77^9^0^0
|
|
X^4^D^77^9^0^
|
|
S^5^3^P^cerrada^VARCHAR(1)^^
|
|
D^5^78^78^9^0^0
|
|
X^5^D^78^9^0^
|
|
S^6^3^P^estado_produccion^VARCHAR(100)^^
|
|
D^6^79^79^9^0^0
|
|
X^6^D^79^9^0^
|
|
S^7^3^P^estado_producto^VARCHAR(100)^^
|
|
D^7^80^80^9^0^0
|
|
X^7^D^80^9^0^
|
|
S^8^3^P^departamento^SMALLINT^^
|
|
D^8^81^81^9^0^0
|
|
X^8^D^81^9^0^
|
|
S^9^3^P^descripcion_dpto^VARCHAR(30)^^
|
|
D^9^82^82^9^0^0
|
|
X^9^D^82^9^0^
|
|
S^10^3^P^vendedor^VARCHAR(50)^^
|
|
D^10^83^83^9^0^0
|
|
X^10^D^83^9^0^
|
|
S^11^3^P^apell1_emp^VARCHAR(50)^^
|
|
D^11^84^84^9^0^0
|
|
X^11^D^84^9^0^
|
|
S^12^3^P^fecha^DATE^^
|
|
D^12^85^85^9^0^0
|
|
X^12^D^85^9^0^
|
|
S^13^3^P^fecha_compromiso^DATE^^
|
|
D^13^86^86^9^0^0
|
|
X^13^D^86^9^0^
|
|
S^14^3^P^fecha_llegada^DATE^^
|
|
D^14^87^87^9^0^0
|
|
X^14^D^87^9^0^
|
|
S^15^3^P^fechaDispEntrega^DATE^^
|
|
D^15^88^88^9^0^0
|
|
X^15^D^88^9^0^
|
|
S^16^3^P^fechaSolDespacho^DATE^^
|
|
D^16^89^89^9^0^0
|
|
X^16^D^89^9^0^
|
|
S^17^3^P^fechaInstalacion^DATE^^
|
|
D^17^90^90^9^0^0
|
|
X^17^D^90^9^0^
|
|
S^18^3^P^cotizacion_no^INTEGER^^
|
|
D^18^91^91^9^0^0
|
|
X^18^D^91^9^0^
|
|
S^19^3^P^num_oc^INTEGER^^
|
|
D^19^92^92^9^0^0
|
|
X^19^D^92^9^0^
|
|
S^20^3^P^orden_compra^INTEGER^^
|
|
D^20^93^93^9^0^0
|
|
X^20^D^93^9^0^
|
|
S^21^3^P^observacion^VARCHAR(250)^^
|
|
D^21^94^94^9^0^0
|
|
X^21^D^94^9^0^
|
|
S^22^3^P^tipo_venta^VARCHAR(30)^^
|
|
D^22^95^95^9^0^0
|
|
X^22^D^95^9^0^
|
|
S^23^3^P^cliente^VARCHAR(60)^^
|
|
D^23^96^96^9^0^0
|
|
X^23^D^96^9^0^
|
|
S^24^3^P^origen^VARCHAR(30)^^
|
|
D^24^97^97^9^0^0
|
|
X^24^D^97^9^0^
|
|
S^25^3^P^producto^VARCHAR(100)^^
|
|
D^25^98^98^9^0^0
|
|
X^25^D^98^9^0^
|
|
S^26^3^P^cantidad_ord^DECIMAL(12,5)^^
|
|
D^26^99^99^9^0^0
|
|
X^26^D^99^9^0^
|
|
S^27^3^P^cantidad_desp^DECIMAL(12,5)^^
|
|
D^27^100^100^9^0^0
|
|
X^27^D^100^9^0^
|
|
S^28^3^P^cantidad_dev^DECIMAL(12,5)^^
|
|
D^28^101^101^9^0^0
|
|
X^28^D^101^9^0^
|
|
S^29^3^P^pendiente^DECIMAL(12,5)^^
|
|
D^29^102^102^9^0^0
|
|
X^29^D^102^9^0^
|
|
S^30^3^P^sec_vend^SMALLINT^^
|
|
D^30^103^103^9^0^0
|
|
X^30^D^103^9^0^
|
|
S^31^3^P^cod_n^SMALLINT^^
|
|
D^31^104^104^9^0^0
|
|
X^31^D^104^9^0^
|
|
S^32^3^P^cod_grupo^SMALLINT^^
|
|
D^32^105^105^9^0^0
|
|
X^32^D^105^9^0^
|
|
S^33^3^P^cod_tipo^SMALLINT^^
|
|
D^33^106^106^9^0^0
|
|
X^33^D^106^9^0^
|
|
S^34^3^P^cod_sec^SMALLINT^^
|
|
D^34^107^107^9^0^0
|
|
X^34^D^107^9^0^
|
|
S^35^3^P^tipo_cliente^SMALLINT^^
|
|
D^35^108^108^9^0^0
|
|
X^35^D^108^9^0^
|
|
S^36^3^P^sec_cliente^INTEGER^^
|
|
D^36^109^109^9^0^0
|
|
X^36^D^109^9^0^
|
|
S^37^3^P^balance^DECIMAL(12,5)^^
|
|
D^37^110^110^9^0^0
|
|
X^37^D^110^9^0^
|
|
S^38^3^P^id_kit^INTEGER^^
|
|
D^38^111^111^9^0^0
|
|
X^38^D^111^9^0^
|
|
S^39^3^P^area^SMALLINT^^
|
|
D^39^112^112^9^0^0
|
|
X^39^D^112^9^0^
|
|
S^40^3^P^instalador^VARCHAR(100)^^
|
|
D^40^113^113^9^0^0
|
|
X^40^D^113^9^0^
|
|
S^41^3^P^equipo^VARCHAR(100)^^
|
|
D^41^113^113^20^0^0
|
|
X^41^D^113^20^0^
|
|
S^42^3^P^costo^DECIMAL(12,2)^^
|
|
D^42^114^114^9^0^0
|
|
X^42^D^114^9^0^
|
|
S^43^2^V^nombre_cia^CHAR(50)^^
|
|
D^43^117^117^9^0^0
|
|
X^43^r^188^17^0^
|
|
X^43^l^127^27^0^
|
|
X^43^D^117^9^0^
|
|
S^44^2^V^pprecio^DECIMAL(12,2)^^
|
|
D^44^118^118^9^0^0
|
|
X^44^r^188^28^0^
|
|
X^44^r^185^24^0^
|
|
X^44^r^181^18^0^
|
|
X^44^r^179^19^0^
|
|
X^44^l^179^9^0^
|
|
X^44^l^177^12^0^
|
|
X^44^r^176^8^0^
|
|
X^44^l^158^14^0^
|
|
X^44^r^156^9^0^
|
|
X^44^l^142^11^0^
|
|
X^44^D^118^9^0^
|
|
S^45^2^V^ttotal^DECIMAL(12,2)^^
|
|
D^45^118^118^17^0^0
|
|
X^45^r^188^42^0^
|
|
X^45^r^182^19^0^
|
|
X^45^l^182^10^0^
|
|
X^45^l^128^10^0^
|
|
X^45^D^118^17^0^
|
|
S^46^2^V^vtotal^DECIMAL(12,2)^^
|
|
D^46^118^118^24^0^0
|
|
X^46^r^188^65^0^
|
|
X^46^r^184^27^0^
|
|
X^46^l^184^10^0^
|
|
X^46^l^132^12^0^
|
|
X^46^D^118^24^0^
|
|
S^47^2^V^valor_orden^DECIMAL(12,2)^^
|
|
D^47^118^118^31^0^0
|
|
X^47^r^188^72^0^
|
|
X^47^r^187^40^0^
|
|
X^47^r^186^25^0^
|
|
X^47^l^185^10^0^
|
|
X^47^D^118^31^0^
|
|
S^48^2^V^vvalor_orden^DECIMAL(12,2)^^
|
|
D^48^118^118^43^0^0
|
|
X^48^r^188^97^0^
|
|
X^48^r^187^25^0^
|
|
X^48^l^187^10^0^
|
|
X^48^l^133^12^0^
|
|
X^48^D^118^43^0^
|
|
S^49^2^V^tvalor_orden^DECIMAL(12,2)^^
|
|
D^49^118^118^56^0^0
|
|
X^49^r^188^84^0^
|
|
X^49^r^186^39^0^
|
|
X^49^l^186^10^0^
|
|
X^49^l^129^10^0^
|
|
X^49^D^118^56^0^
|
|
S^50^2^V^valor_avance^DECIMAL(12,2)^^
|
|
D^50^118^118^69^0^0
|
|
X^50^r^189^20^0^
|
|
X^50^r^180^22^0^
|
|
X^50^l^180^9^0^
|
|
X^50^l^151^31^0^
|
|
X^50^D^118^69^0^
|
|
S^51^2^V^psimbolo^CHAR(4)^^
|
|
D^51^119^119^9^0^0
|
|
X^51^r^188^56^0^
|
|
X^51^l^137^28^0^
|
|
X^51^D^119^9^0^
|
|
S^52^2^V^numero_recibo^INTEGER^^
|
|
D^52^120^120^9^0^0
|
|
X^52^r^189^6^0^
|
|
X^52^D^120^9^0^
|
|
S^53^2^V^valor^DECIMAL(12,4)^^
|
|
D^53^121^121^9^0^0
|
|
X^53^r^188^36^0^
|
|
X^53^r^184^19^0^
|
|
X^53^r^183^28^0^
|
|
X^53^r^182^28^0^
|
|
X^53^l^181^10^0^
|
|
X^53^D^121^9^0^
|
|
S^54^2^V^ototal^DECIMAL(12,4)^^
|
|
D^54^121^121^15^0^0
|
|
X^54^r^188^49^0^
|
|
X^54^r^183^19^0^
|
|
X^54^l^183^10^0^
|
|
X^54^l^136^10^0^
|
|
X^54^D^121^15^0^
|
|
S^55^2^V^reportDef^base.Report^^
|
|
D^55^0^0^0^0^0
|
|
S^56^1^F^prprmt011b^^^public
|
|
D^56^4^74^10^0^0
|
|
X^56^D^4^10^0^
|
|
S^57^56^P^x^DYNAMIC ARRAY OF RECORD^^
|
|
D^57^5^44^9^0^0
|
|
X^57^r^70^44^0^
|
|
X^57^r^69^13^0^
|
|
X^57^r^68^19^0^
|
|
X^57^l^4^21^0^
|
|
X^57^D^5^9^0^
|
|
S^58^57^P^actualiza^VARCHAR(1)^^
|
|
D^58^6^6^13^0^0
|
|
X^58^D^6^13^0^
|
|
S^59^57^P^cerrada^VARCHAR(1)^^
|
|
D^59^7^7^9^0^0
|
|
X^59^D^7^9^0^
|
|
S^60^57^P^estado_produccion^VARCHAR(100)^^
|
|
D^60^8^8^9^0^0
|
|
X^60^D^8^9^0^
|
|
S^61^57^P^estado_producto^VARCHAR(100)^^
|
|
D^61^9^9^9^0^0
|
|
X^61^D^9^9^0^
|
|
S^62^57^P^departamento^SMALLINT^^
|
|
D^62^10^10^9^0^0
|
|
X^62^D^10^9^0^
|
|
S^63^57^P^descripcion_dpto^VARCHAR(30)^^
|
|
D^63^11^11^9^0^0
|
|
X^63^D^11^9^0^
|
|
S^64^57^P^vendedor^VARCHAR(50)^^
|
|
D^64^12^12^9^0^0
|
|
X^64^D^12^9^0^
|
|
S^65^57^P^apell1_emp^VARCHAR(50)^^
|
|
D^65^13^13^9^0^0
|
|
X^65^D^13^9^0^
|
|
S^66^57^P^fecha^DATE^^
|
|
D^66^14^14^9^0^0
|
|
X^66^D^14^9^0^
|
|
S^67^57^P^fecha_compromiso^DATE^^
|
|
D^67^15^15^9^0^0
|
|
X^67^D^15^9^0^
|
|
S^68^57^P^fecha_llegada^DATE^^
|
|
D^68^16^16^9^0^0
|
|
X^68^D^16^9^0^
|
|
S^69^57^P^fechaDispEntrega^DATE^^
|
|
D^69^17^17^9^0^0
|
|
X^69^D^17^9^0^
|
|
S^70^57^P^fechaSolDespacho^DATE^^
|
|
D^70^18^18^9^0^0
|
|
X^70^D^18^9^0^
|
|
S^71^57^P^fechaInstalacion^DATE^^
|
|
D^71^19^19^9^0^0
|
|
X^71^D^19^9^0^
|
|
S^72^57^P^cotizacion_no^INTEGER^^
|
|
D^72^20^20^9^0^0
|
|
X^72^D^20^9^0^
|
|
S^73^57^P^num_oc^INTEGER^^
|
|
D^73^21^21^9^0^0
|
|
X^73^D^21^9^0^
|
|
S^74^57^P^orden_compra^INTEGER^^
|
|
D^74^22^22^9^0^0
|
|
X^74^D^22^9^0^
|
|
S^75^57^P^observacion^VARCHAR(250)^^
|
|
D^75^23^23^9^0^0
|
|
X^75^D^23^9^0^
|
|
S^76^57^P^tipo_venta^VARCHAR(30)^^
|
|
D^76^24^24^9^0^0
|
|
X^76^D^24^9^0^
|
|
S^77^57^P^cliente^VARCHAR(60)^^
|
|
D^77^25^25^9^0^0
|
|
X^77^D^25^9^0^
|
|
S^78^57^P^origen^VARCHAR(30)^^
|
|
D^78^26^26^9^0^0
|
|
X^78^D^26^9^0^
|
|
S^79^57^P^producto^VARCHAR(100)^^
|
|
D^79^27^27^9^0^0
|
|
X^79^D^27^9^0^
|
|
S^80^57^P^cantidad_ord^DECIMAL(12,5)^^
|
|
D^80^28^28^9^0^0
|
|
X^80^D^28^9^0^
|
|
S^81^57^P^cantidad_desp^DECIMAL(12,5)^^
|
|
D^81^29^29^9^0^0
|
|
X^81^D^29^9^0^
|
|
S^82^57^P^cantidad_dev^DECIMAL(12,5)^^
|
|
D^82^30^30^9^0^0
|
|
X^82^D^30^9^0^
|
|
S^83^57^P^pendiente^DECIMAL(12,5)^^
|
|
D^83^31^31^9^0^0
|
|
X^83^D^31^9^0^
|
|
S^84^57^P^sec_vend^SMALLINT^^
|
|
D^84^32^32^9^0^0
|
|
X^84^D^32^9^0^
|
|
S^85^57^P^cod_n^SMALLINT^^
|
|
D^85^33^33^9^0^0
|
|
X^85^D^33^9^0^
|
|
S^86^57^P^cod_grupo^SMALLINT^^
|
|
D^86^34^34^9^0^0
|
|
X^86^D^34^9^0^
|
|
S^87^57^P^cod_tipo^SMALLINT^^
|
|
D^87^35^35^9^0^0
|
|
X^87^D^35^9^0^
|
|
S^88^57^P^cod_sec^SMALLINT^^
|
|
D^88^36^36^9^0^0
|
|
X^88^D^36^9^0^
|
|
S^89^57^P^tipo_cliente^SMALLINT^^
|
|
D^89^37^37^9^0^0
|
|
X^89^D^37^9^0^
|
|
S^90^57^P^sec_cliente^INTEGER^^
|
|
D^90^38^38^9^0^0
|
|
X^90^D^38^9^0^
|
|
S^91^57^P^balance^DECIMAL(12,5)^^
|
|
D^91^39^39^9^0^0
|
|
X^91^D^39^9^0^
|
|
S^92^57^P^id_kit^INTEGER^^
|
|
D^92^40^40^9^0^0
|
|
X^92^D^40^9^0^
|
|
S^93^57^P^area^SMALLINT^^
|
|
D^93^41^41^9^0^0
|
|
X^93^D^41^9^0^
|
|
S^94^57^P^instalador^VARCHAR(100)^^
|
|
D^94^42^42^9^0^0
|
|
X^94^D^42^9^0^
|
|
S^95^57^P^equipo^VARCHAR(100)^^
|
|
D^95^42^42^20^0^0
|
|
X^95^D^42^20^0^
|
|
S^96^57^P^costo^DECIMAL(12,2)^^
|
|
D^96^43^43^9^0^0
|
|
X^96^D^43^9^0^
|
|
S^97^56^V^i^SMALLINT^^
|
|
D^97^45^45^3^0^0
|
|
X^97^r^70^46^0^
|
|
X^97^r^69^15^0^
|
|
X^97^l^68^10^0^
|
|
X^97^D^45^3^0^
|
|
S^98^56^V^handler^om.SaxDocumentHandler^^
|
|
D^98^47^47^10^0^0
|
|
X^98^r^66^51^0^
|
|
X^98^r^65^9^0^
|
|
X^98^l^62^19^0^
|
|
X^98^D^47^10^0^
|
|
S^99^56^V^r_filename^STRING^^
|
|
D^99^48^48^9^0^0
|
|
X^99^r^56^46^0^
|
|
X^99^l^52^16^0^
|
|
X^99^D^48^9^0^
|
|
S^100^56^V^r_output^STRING^^
|
|
D^100^49^49^9^0^0
|
|
X^100^r^59^44^0^
|
|
X^100^l^54^48^0^
|
|
X^100^D^49^9^0^
|
|
S^101^56^V^preview^INTEGER^^
|
|
D^101^50^50^9^0^0
|
|
X^101^r^60^45^0^
|
|
X^101^l^58^19^0^
|
|
X^101^D^50^9^0^
|
|
S^102^0^V^ptasa^DECIMAL(12,4)^^global
|
|
D^102^2^2^9^0^0
|
|
X^102^r^180^37^0^
|
|
X^102^r^179^29^0^
|
|
X^102^l^174^12^0^
|
|
X^102^r^173^8^0^
|
|
X^102^l^168^29^0^
|
|
X^102^D^2^9^0^
|
|
S^103^0^F^fgl_report_commitCurrentSettings^^^extern
|
|
X^103^c^62^29^0^
|
|
S^104^0^F^fgl_report_configurexlsxdevice^^^extern
|
|
X^104^c^61^20^0^
|
|
S^105^0^F^fgl_report_selectPreview^^^extern
|
|
X^105^c^60^20^0^
|
|
S^106^0^F^fgl_report_selectDevice^^^extern
|
|
X^106^c^59^20^0^
|
|
S^107^0^F^fgl_report_loadCurrentSettings^^^extern
|
|
X^107^c^56^15^0^
|
|
S^108^0^F^seleccionarSalida^^^extern
|
|
X^108^c^54^17^0^
|
|
T^1^3^d^0^0^DEFINE
|
|
T^1^3^d^0^0^GLOBALS DEFINE
|
|
T^2^2^d^0^0^DEFINE
|
|
T^4^74^f^0^0^FUNCTION
|
|
T^5^50^d^0^0^DEFINE
|
|
T^5^44^d^0^0^RECORD
|
|
T^56^63^c^0^0^IF
|
|
T^58^62^c^0^0^THEN
|
|
T^65^67^c^0^0^IF
|
|
T^66^66^c^0^0^THEN
|
|
T^68^72^l^0^0^FOR
|
|
T^69^71^c^0^0^IF
|
|
T^70^70^c^0^0^THEN
|
|
T^75^191^f^0^0^REPORT
|
|
T^76^121^d^0^0^DEFINE
|
|
T^76^116^d^0^0^RECORD
|
|
r^2^ORDER EXTERNAL^0
|
|
o^2^10^1
|
|
o^2^19^1
|
|
T^125^129^a^0^0^FIRST PAGE HEADER
|
|
T^131^133^a^0^0^BEFORE GROUP OF 10
|
|
T^135^138^a^0^0^BEFORE GROUP OF 19
|
|
T^140^189^a^0^0^ON EVERY ROW
|
|
T^156^166^c^0^0^IF
|
|
T^157^165^c^0^0^THEN
|
|
T^173^175^c^0^0^IF
|
|
T^174^174^c^0^0^THEN
|
|
T^176^178^c^0^0^IF
|
|
T^177^177^c^0^0^THEN
|
|
x^188^0^
|
|
p^r^3
|
|
p^v^43
|
|
p^v^44
|
|
p^v^53
|
|
p^v^45
|
|
p^v^54
|
|
p^v^51
|
|
p^v^46
|
|
p^v^47
|
|
p^v^49
|
|
p^v^48
|
|
p^v^52
|
|
p^v^50
|