Files
2026-09-22 20:38:51 -04:00

566 lines
13 KiB
Plaintext

S^1^0^M^coprorden^MODULE^^
S^2^1^R^r_orden^^^public
F^0^D:\genero fuentes\DECOMARMOL320\decomarmol\PROYECTO\codir\coprorden.4gl
D^2^110^191^8^0^0
X^2^c^105^25^0^finish
X^2^c^100^32^0^output
X^2^c^94^25^0^start
X^2^D^110^8^0^
S^3^2^P^zflete1^RECORD^^
D^3^144^149^10^0^0
X^3^r^180^63^0^
X^3^l^110^16^0^
X^3^D^144^10^0^
S^4^3^P^total_b^DECIMAL(12,2)^^
D^4^145^145^4^0^0
X^4^D^145^4^0^
S^5^3^P^valor^DECIMAL(12,2)^^
D^5^146^146^4^0^0
X^5^D^146^4^0^
S^6^3^P^ot_valor^DECIMAL(12,2)^^
D^6^147^147^4^0^0
X^6^D^147^4^0^
S^7^3^P^total_1^DECIMAL(12,2)^^
D^7^148^148^4^0^0
X^7^D^148^4^0^
S^8^2^P^karr_ordenes^RECORD^^
D^8^152^166^10^0^0
X^8^r^184^29^0^
X^8^r^183^108^0^
X^8^r^183^85^0^
X^8^r^183^66^0^
X^8^r^183^45^0^
X^8^r^180^22^0^
X^8^l^110^24^0^
X^8^D^152^10^0^
S^9^8^P^num_orden^INTEGER^^
D^9^153^153^5^0^0
X^9^D^153^5^0^
S^10^8^P^num_req^INTEGER^decomarmol.cotb00006.num_req^
D^10^154^154^5^0^0
X^10^D^154^5^0^
S^11^8^P^cod_n^SMALLINT^^
D^11^155^155^10^0^0
X^11^D^155^10^0^
S^12^8^P^cod_grupo^SMALLINT^^
D^12^156^156^10^0^0
X^12^D^156^10^0^
S^13^8^P^cod_tipo^SMALLINT^^
D^13^157^157^10^0^0
X^13^D^157^10^0^
S^14^8^P^cod_sec^SMALLINT^^
D^14^158^158^10^0^0
X^14^D^158^10^0^
S^15^8^P^descripcion^CHAR(180)^^
D^15^159^159^10^0^0
X^15^D^159^10^0^
S^16^8^P^unidad^CHAR(4)^^
D^16^160^160^10^0^0
X^16^D^160^10^0^
S^17^8^P^cantidad^DECIMAL(12,3)^^
D^17^161^161^10^0^0
X^17^D^161^10^0^
S^18^8^P^precio^DECIMAL(18,5)^^
D^18^162^162^10^0^0
X^18^D^162^10^0^
S^19^8^P^porc_desc^DECIMAL(12,2)^^
D^19^163^163^10^0^0
X^19^D^163^10^0^
S^20^8^P^monto_desc^DECIMAL(12,2)^^
D^20^164^164^10^0^0
X^20^D^164^10^0^
S^21^8^P^valor^DECIMAL(12,2)^^
D^21^165^165^10^0^0
X^21^D^165^10^0^
S^22^2^P^kordenes^RECORD^^
D^22^115^130^10^0^0
X^22^r^183^29^0^
X^22^r^180^11^0^
X^22^l^171^19^0^
X^22^l^168^11^0^
X^22^l^110^37^0^
X^22^D^115^10^0^
S^23^22^P^num_oc^INTEGER^^
D^23^116^116^10^0^0
X^23^D^116^10^0^
S^24^22^P^tipo^CHAR(2)^decomarmol.cotb00014.tipo^
D^24^117^117^10^0^0
X^24^D^117^10^0^
S^25^22^P^fech_oc^DATE^decomarmol.cotb00014.fech_oc^
D^25^118^118^10^0^0
X^25^D^118^10^0^
S^26^22^P^num_pr^CHAR(10)^decomarmol.cotb00014.num_pr^
D^26^119^119^10^0^0
X^26^D^119^10^0^
S^27^22^P^cod_sp^SMALLINT^decomarmol.cotb00014.cod_sp^
D^27^120^120^10^0^0
X^27^D^120^10^0^
S^28^22^P^cod_sp_sec^SMALLINT^decomarmol.cotb00014.cod_sp_sec^
D^28^121^121^10^0^0
X^28^D^121^10^0^
S^29^22^P^term_sp^SMALLINT^decomarmol.cotb00014.term_sp^
D^29^122^122^10^0^0
X^29^D^122^10^0^
S^30^22^P^via^CHAR(2)^decomarmol.cotb00014.via^
D^30^123^123^10^0^0
X^30^D^123^10^0^
S^31^22^P^enviada^CHAR(1)^decomarmol.cotb00014.enviada^
D^31^124^124^10^0^0
X^31^D^124^10^0^
S^32^22^P^fech_enviada^DATE^decomarmol.cotb00014.fech_enviada^
D^32^125^125^10^0^0
X^32^D^125^10^0^
S^33^22^P^pago^CHAR(1)^decomarmol.cotb00014.pago^
D^33^126^126^10^0^0
X^33^D^126^10^0^
S^34^22^P^fech_pago^DATE^decomarmol.cotb00014.fech_pago^
D^34^127^127^10^0^0
X^34^D^127^10^0^
S^35^22^P^cierre^CHAR(1)^decomarmol.cotb00014.cierre^
D^35^128^128^10^0^0
X^35^D^128^10^0^
S^36^22^P^cod_pt^CHAR(4)^^
D^36^129^129^10^0^0
X^36^D^129^10^0^
S^37^2^P^k^RECORD^^
D^37^134^138^3^0^0
X^37^r^180^37^0^
X^37^l^110^46^0^
X^37^D^134^3^0^
S^38^37^P^nom_sp^VARCHAR(41)^decomarmol.cotb00001.nom_sp^
D^38^135^135^5^0^0
X^38^D^135^5^0^
S^39^37^P^dir_sp^VARCHAR(60)^decomarmol.cotb00001.dir_sp^
D^39^136^136^5^0^0
X^39^D^136^5^0^
S^40^37^P^ciu_sp^VARCHAR(30)^decomarmol.cotb00001.ciu_sp^
D^40^137^137^5^0^0
X^40^D^137^5^0^
S^41^2^P^k1^RECORD^^
D^41^140^140^3^0^0
X^41^r^180^41^0^
X^41^l^110^48^0^
X^41^D^140^3^0^
S^42^41^P^cod_pais^SMALLINT^decomarmol.cotb00018.cod_pais^
D^42^0^0^0^0^0
S^43^41^P^nom_pais^CHAR(60)^decomarmol.cotb00018.nom_pais^
D^43^0^0^0^0^0
S^44^41^P^status_t^CHAR(1)^decomarmol.cotb00018.status_t^
D^44^0^0^0^0^0
S^45^41^P^us_crea^CHAR(50)^decomarmol.cotb00018.us_crea^
D^45^0^0^0^0^0
S^46^41^P^fech_crea^DATETIME YEAR TO FRACTION^decomarmol.cotb00018.fech_crea^
D^46^0^0^0^0^0
S^47^41^P^us_mod^CHAR(50)^decomarmol.cotb00018.us_mod^
D^47^0^0^0^0^0
S^48^41^P^fech_mod^DATETIME YEAR TO FRACTION^decomarmol.cotb00018.fech_mod^
D^48^0^0^0^0^0
S^49^2^P^kship_to^VARCHAR(80)^^
D^49^132^132^3^0^0
X^49^r^180^46^0^
X^49^l^110^51^0^
X^49^D^132^3^0^
S^50^2^P^kmoneda^CHAR(30)^^
D^50^141^141^3^0^0
X^50^r^180^55^0^
X^50^l^110^60^0^
X^50^D^141^3^0^
S^51^2^P^znota^VARCHAR(100)^^
D^51^142^142^3^0^0
X^51^r^180^73^0^
X^51^l^110^68^0^
X^51^D^142^3^0^
S^52^2^P^xdesc1^CHAR(20)^^
D^52^112^112^9^0^0
X^52^r^180^79^0^
X^52^l^110^74^0^
X^52^D^112^9^0^
S^53^2^P^xdesc2^CHAR(20)^^
D^53^112^112^16^0^0
X^53^r^180^86^0^
X^53^l^110^81^0^
X^53^D^112^16^0^
S^54^2^P^xdesc3^CHAR(20)^^
D^54^112^112^23^0^0
X^54^r^180^93^0^
X^54^l^110^88^0^
X^54^D^112^23^0^
S^55^2^P^xdesc4^CHAR(20)^^
D^55^112^112^30^0^0
X^55^r^180^100^0^
X^55^l^110^95^0^
X^55^D^112^30^0^
S^56^2^P^xdetalle_orden^VARCHAR(200)^^
D^56^114^114^9^0^0
X^56^r^181^11^0^
X^56^l^111^16^0^
X^56^D^114^9^0^
S^57^2^P^xcodigo_prod^VARCHAR(30)^^
D^57^113^113^9^0^0
X^57^r^189^17^0^
X^57^l^182^18^0^
X^57^l^168^27^0^
X^57^l^111^31^0^
X^57^D^113^9^0^
S^58^2^V^i^INTEGER^^
D^58^133^133^3^0^0
X^58^r^189^99^0^
X^58^r^189^72^0^
X^58^r^189^45^0^
X^58^l^187^10^0^
X^58^D^133^3^0^
S^59^2^V^tiene_parcial^BOOLEAN^^
D^59^150^150^3^0^0
X^59^l^188^14^0^
X^59^l^186^10^0^
X^59^D^150^3^0^
S^60^2^V^total_neto^DECIMAL(12,2)^^
D^60^167^167^3^0^0
X^60^l^172^9^0^
X^60^D^167^3^0^
S^61^2^V^total_bruto^DECIMAL(12,2)^^
D^61^167^167^14^0^0
X^61^l^173^9^0^
X^61^D^167^14^0^
S^62^2^V^total_itbis^DECIMAL(12,2)^^
D^62^167^167^26^0^0
X^62^l^174^9^0^
X^62^D^167^26^0^
S^63^2^V^reportDef^base.Report^^
D^63^0^0^0^0^0
S^64^1^F^orden^^^public
D^64^16^109^10^0^0
X^64^D^16^10^0^
S^65^64^P^xflete1^RECORD^^
D^65^24^29^10^0^0
X^65^r^100^40^0^
X^65^l^16^16^0^
X^65^D^24^10^0^
S^66^65^P^total_b^DECIMAL(12,2)^^
D^66^25^25^4^0^0
X^66^D^25^4^0^
S^67^65^P^valor^DECIMAL(12,2)^^
D^67^26^26^4^0^0
X^67^D^26^4^0^
S^68^65^P^ot_valor^DECIMAL(12,2)^^
D^68^27^27^4^0^0
X^68^D^27^4^0^
S^69^65^P^total_1^DECIMAL(12,2)^^
D^69^28^28^4^0^0
X^69^D^28^4^0^
S^70^64^P^xarr_ordenes^DYNAMIC ARRAY OF RECORD^^
D^70^61^75^10^0^0
X^70^r^100^50^0^
X^70^r^99^58^0^
X^70^r^99^14^0^
X^70^r^98^74^0^
X^70^r^98^33^0^
X^70^r^97^15^0^
X^70^r^96^26^0^
X^70^r^76^8^0^
X^70^l^16^24^0^
X^70^D^61^10^0^
S^71^70^P^num_orden^INTEGER^^
D^71^62^62^8^0^0
X^71^D^62^8^0^
S^72^70^P^num_req^INTEGER^decomarmol.cotb00006.num_req^
D^72^63^63^8^0^0
X^72^D^63^8^0^
S^73^70^P^cod_n^SMALLINT^^
D^73^64^64^10^0^0
X^73^D^64^10^0^
S^74^70^P^cod_grupo^SMALLINT^^
D^74^65^65^10^0^0
X^74^D^65^10^0^
S^75^70^P^cod_tipo^SMALLINT^^
D^75^66^66^10^0^0
X^75^D^66^10^0^
S^76^70^P^cod_sec^SMALLINT^^
D^76^67^67^10^0^0
X^76^D^67^10^0^
S^77^70^P^descripcion^CHAR(180)^^
D^77^68^68^10^0^0
X^77^D^68^10^0^
S^78^70^P^unidad^CHAR(4)^^
D^78^69^69^10^0^0
X^78^D^69^10^0^
S^79^70^P^cantidad^DECIMAL(12,3)^^
D^79^70^70^10^0^0
X^79^D^70^10^0^
S^80^70^P^precio^DECIMAL(18,5)^^
D^80^71^71^10^0^0
X^80^D^71^10^0^
S^81^70^P^porc_desc^DECIMAL(12,2)^^
D^81^72^72^10^0^0
X^81^D^72^10^0^
S^82^70^P^monto_desc^DECIMAL(12,2)^^
D^82^73^73^10^0^0
X^82^D^73^10^0^
S^83^70^P^valor^DECIMAL(12,2)^^
D^83^74^74^10^0^0
X^83^D^74^10^0^
S^84^64^P^xordenes^RECORD^^
D^84^44^59^10^0^0
X^84^r^100^70^0^
X^84^l^16^37^0^
X^84^D^44^10^0^
S^85^84^P^num_oc^INTEGER^^
D^85^45^45^10^0^0
X^85^D^45^10^0^
S^86^84^P^tipo^CHAR(2)^decomarmol.cotb00014.tipo^
D^86^46^46^10^0^0
X^86^D^46^10^0^
S^87^84^P^fech_oc^DATE^decomarmol.cotb00014.fech_oc^
D^87^47^47^10^0^0
X^87^D^47^10^0^
S^88^84^P^num_pr^CHAR(10)^decomarmol.cotb00014.num_pr^
D^88^48^48^10^0^0
X^88^D^48^10^0^
S^89^84^P^cod_sp^SMALLINT^decomarmol.cotb00014.cod_sp^
D^89^49^49^10^0^0
X^89^D^49^10^0^
S^90^84^P^cod_sp_sec^SMALLINT^decomarmol.cotb00014.cod_sp_sec^
D^90^50^50^10^0^0
X^90^D^50^10^0^
S^91^84^P^term_sp^SMALLINT^decomarmol.cotb00014.term_sp^
D^91^51^51^10^0^0
X^91^D^51^10^0^
S^92^84^P^via^CHAR(2)^decomarmol.cotb00014.via^
D^92^52^52^10^0^0
X^92^D^52^10^0^
S^93^84^P^enviada^CHAR(1)^decomarmol.cotb00014.enviada^
D^93^53^53^10^0^0
X^93^D^53^10^0^
S^94^84^P^fech_enviada^DATE^decomarmol.cotb00014.fech_enviada^
D^94^54^54^10^0^0
X^94^D^54^10^0^
S^95^84^P^pago^CHAR(1)^decomarmol.cotb00014.pago^
D^95^55^55^10^0^0
X^95^D^55^10^0^
S^96^84^P^fech_pago^DATE^decomarmol.cotb00014.fech_pago^
D^96^56^56^10^0^0
X^96^D^56^10^0^
S^97^84^P^cierre^CHAR(1)^decomarmol.cotb00014.cierre^
D^97^57^57^10^0^0
X^97^D^57^10^0^
S^98^84^P^cod_pt^CHAR(4)^^
D^98^58^58^10^0^0
X^98^D^58^10^0^
S^99^64^P^x^RECORD^^
D^99^35^39^11^0^0
X^99^r^100^81^0^
X^99^l^16^46^0^
X^99^D^35^11^0^
S^100^99^P^nom_sp^VARCHAR(41)^decomarmol.cotb00001.nom_sp^
D^100^36^36^11^0^0
X^100^D^36^11^0^
S^101^99^P^dir_sp^VARCHAR(60)^decomarmol.cotb00001.dir_sp^
D^101^37^37^11^0^0
X^101^D^37^11^0^
S^102^99^P^ciu_sp^VARCHAR(30)^decomarmol.cotb00001.ciu_sp^
D^102^38^38^11^0^0
X^102^D^38^11^0^
S^103^64^P^x1^RECORD^^
D^103^40^40^11^0^0
X^103^r^100^85^0^
X^103^l^16^48^0^
X^103^D^40^11^0^
S^104^103^P^cod_pais^SMALLINT^decomarmol.cotb00018.cod_pais^
D^104^0^0^0^0^0
S^105^103^P^nom_pais^CHAR(60)^decomarmol.cotb00018.nom_pais^
D^105^0^0^0^0^0
S^106^103^P^status_t^CHAR(1)^decomarmol.cotb00018.status_t^
D^106^0^0^0^0^0
S^107^103^P^us_crea^CHAR(50)^decomarmol.cotb00018.us_crea^
D^107^0^0^0^0^0
S^108^103^P^fech_crea^DATETIME YEAR TO FRACTION^decomarmol.cotb00018.fech_crea^
D^108^0^0^0^0^0
S^109^103^P^us_mod^CHAR(50)^decomarmol.cotb00018.us_mod^
D^109^0^0^0^0^0
S^110^103^P^fech_mod^DATETIME YEAR TO FRACTION^decomarmol.cotb00018.fech_mod^
D^110^0^0^0^0^0
S^111^64^P^xship_to^STRING^^
D^111^41^41^11^0^0
X^111^r^100^90^0^
X^111^l^16^51^0^
X^111^D^41^11^0^
S^112^64^P^xmoneda^STRING^^
D^112^22^22^9^0^0
X^112^r^100^99^0^
X^112^l^16^60^0^
X^112^D^22^9^0^
S^113^64^P^r_output^VARCHAR(10)^^
D^113^32^32^11^0^0
X^113^r^83^42^0^
X^113^l^16^68^0^
X^113^D^32^11^0^
S^114^64^P^knota^VARCHAR(100)^^
D^114^23^23^9^0^0
X^114^r^100^107^0^
X^114^l^16^77^0^
X^114^D^23^9^0^
S^115^64^P^zdesc1^CHAR(20)^^
D^115^18^18^9^0^0
X^115^r^101^32^0^
X^115^l^16^83^0^
X^115^D^18^9^0^
S^116^64^P^zdesc2^CHAR(20)^^
D^116^18^18^16^0^0
X^116^r^101^39^0^
X^116^l^16^90^0^
X^116^D^18^16^0^
S^117^64^P^zdesc3^CHAR(20)^^
D^117^18^18^23^0^0
X^117^r^101^46^0^
X^117^l^16^97^0^
X^117^D^18^23^0^
S^118^64^P^zdesc4^CHAR(20)^^
D^118^18^18^30^0^0
X^118^r^101^53^0^
X^118^l^16^104^0^
X^118^D^18^30^0^
S^119^64^P^kdetalle_orden^STRING^^
D^119^22^22^17^0^0
X^119^r^101^60^0^
X^119^l^17^16^0^
X^119^D^22^17^0^
S^120^64^V^codigo_prod^VARCHAR(30)^^
D^120^19^19^9^0^0
X^120^r^101^75^0^
X^120^l^98^19^0^
X^120^D^19^9^0^
S^121^64^V^xorden^INTEGER^^
D^121^20^20^9^0^0
X^121^D^20^9^0^
S^122^64^V^xtipo_cliente^INTEGER^^
D^122^20^20^16^0^0
X^122^D^20^16^0^
S^123^64^V^xsec_cliente^INTEGER^^
D^123^20^20^30^0^0
X^123^D^20^30^0^
S^124^64^V^xnombre_cliente^VARCHAR(100)^^
D^124^20^20^47^0^0
X^124^D^20^47^0^
S^125^64^V^idx^SMALLINT^^
D^125^21^21^9^0^0
X^125^r^100^63^0^
X^125^r^99^71^0^
X^125^r^99^27^0^
X^125^r^98^87^0^
X^125^r^98^46^0^
X^125^r^97^28^0^
X^125^l^96^15^0^
X^125^D^21^9^0^
S^126^64^V^handler^om.SaxDocumentHandler^^
D^126^30^30^10^0^0
X^126^r^94^48^0^
X^126^r^92^11^0^
X^126^l^89^16^0^
X^126^D^30^10^0^
S^127^64^V^r_filename^STRING^^
D^127^31^31^11^0^0
X^127^r^81^44^0^
X^127^l^77^12^0^
X^127^D^31^11^0^
S^128^64^V^preview^INTEGER^^
D^128^33^33^11^0^0
X^128^r^84^43^0^
X^128^l^79^12^0^
X^128^D^33^11^0^
S^129^64^V^xvalor^DECIMAL(12,2)^^
D^129^34^34^11^0^0
X^129^D^34^11^0^
S^130^0^V^xbusca_parcial^DYNAMIC ARRAY OF RECORD^^global
D^130^3^12^8^0^0
X^130^r^189^84^0^
X^130^r^189^57^0^
X^130^r^189^30^0^
X^130^r^187^17^0^
X^130^l^184^61^0^
X^130^D^3^8^0^
S^131^130^V^secuencia^INTEGER^^
D^131^4^4^5^0^0
X^131^D^4^5^0^
S^132^130^V^cod_n^SMALLINT^^
D^132^5^5^5^0^0
X^132^D^5^5^0^
S^133^130^V^cod_grupo^SMALLINT^^
D^133^6^6^5^0^0
X^133^D^6^5^0^
S^134^130^V^cod_tipo^SMALLINT^^
D^134^7^7^5^0^0
X^134^D^7^5^0^
S^135^130^V^cod_sec^SMALLINT^^
D^135^8^8^5^0^0
X^135^D^8^5^0^
S^136^130^V^cantidad^DECIMAL(12,5)^^
D^136^9^9^5^0^0
X^136^D^9^5^0^
S^137^130^V^fech_emb^DATE^^
D^137^10^10^5^0^0
X^137^D^10^5^0^
S^138^130^V^fech_ent^DATE^^
D^138^11^11^5^0^0
X^138^D^11^5^0^
S^139^0^F^entregas_parciales^^^extern
X^139^c^183^10^0^
S^140^0^F^fgl_report_commitCurrentSettings^^^extern
X^140^c^89^26^0^
S^141^0^F^fgl_report_selectPreview^^^extern
X^141^c^84^18^0^
S^142^0^F^fgl_report_selectDevice^^^extern
X^142^c^83^18^0^
S^143^0^F^fgl_report_loadCurrentSettings^^^extern
X^143^c^81^13^0^
T^1^15^d^0^0^DEFINE
T^2^15^d^0^0^GLOBALS DEFINE
T^3^12^d^0^0^DEFINE
T^3^12^d^0^0^RECORD
T^16^109^f^0^0^FUNCTION
T^18^75^d^0^0^DEFINE
T^24^29^d^0^0^RECORD
T^35^39^d^0^0^RECORD
T^44^59^d^0^0^RECORD
T^61^75^d^0^0^RECORD
T^76^107^c^0^0^IF
T^77^106^c^0^0^THEN
T^81^90^c^0^0^IF
T^83^89^c^0^0^THEN
T^92^106^c^0^0^IF
T^94^105^c^0^0^THEN
T^96^103^l^0^0^FOR
T^97^102^c^0^0^IF
T^98^101^c^0^0^THEN
T^110^191^f^0^0^REPORT
T^112^167^d^0^0^DEFINE
T^115^130^d^0^0^RECORD
T^134^138^d^0^0^RECORD
T^144^149^d^0^0^RECORD
T^152^166^d^0^0^RECORD
r^2^ORDER EXTERNAL^0
o^2^23^1
o^2^57^1
T^171^174^a^0^0^BEFORE GROUP OF 23
T^176^181^a^0^0^ON EVERY ROW
x^180^0^
p^r^22
p^r^8
p^r^37
p^r^41
p^v^49
p^v^50
p^r^3
p^v^51
p^v^52
p^v^53
p^v^54
p^v^55
p^v^56
T^182^190^a^0^0^AFTER GROUP OF 57
T^187^190^l^0^0^FOR
x^189^0^
p^v^57
p^v^136
p^v^137
p^v^138