S^1^0^M^prprrp001^MODULE S^2^1^R^reporte_1^ F^0^prprrp001.4gl D^2^129^362^8^0^0 X^2^D^129^8^0 X^2^c^124^18^0 X^2^c^122^22^0 X^2^c^110^22^0 X^2^c^105^17^0 S^3^2^P^x^RECORD D^3^130^140^10^0^0 X^3^r^351^8^0 X^3^r^343^8^0 X^3^r^342^49^0 X^3^r^342^28^0 X^3^r^342^8^0 X^3^r^340^6^0 X^3^r^339^6^0 X^3^l^338^17^0 X^3^r^316^18^0 X^3^r^315^66^0 X^3^r^315^43^0 X^3^r^315^17^0 X^3^r^295^4^0 X^3^r^272^18^0 X^3^r^271^20^0 X^3^r^270^42^0 X^3^r^270^16^0 X^3^r^250^8^0 X^3^r^249^49^0 X^3^r^249^28^0 X^3^r^249^8^0 X^3^r^247^5^0 X^3^r^246^5^0 X^3^r^223^24^0 X^3^r^218^4^0 X^3^r^211^24^0 X^3^r^207^8^0 X^3^r^206^49^0 X^3^r^206^28^0 X^3^r^206^8^0 X^3^r^204^5^0 X^3^r^203^5^0 X^3^l^202^17^0 X^3^l^199^17^0 X^3^l^144^39^0 X^3^l^144^26^0 X^3^l^144^11^0 X^3^l^129^18^0 X^3^D^130^10^0 S^4^3^P^num_emp^SMALLINT D^4^131^131^5^0^0 X^4^r^315^19^0 X^4^r^270^18^0 X^4^l^144^41^0 X^4^D^131^5^0 S^5^3^P^departamento^SMALLINT D^5^132^132^5^0^0 X^5^r^351^10^0 X^5^r^340^8^0 X^5^r^339^8^0 X^5^l^338^19^0 X^5^r^295^6^0 X^5^r^247^7^0 X^5^r^246^7^0 X^5^r^218^6^0 X^5^r^204^7^0 X^5^r^203^7^0 X^5^l^199^19^0 X^5^l^144^13^0 X^5^D^132^5^0 S^6^3^P^nom1_emp^CHAR(14) D^6^133^133^5^0^0 X^6^r^315^45^0 X^6^r^270^44^0 X^6^D^133^5^0 S^7^3^P^nom2_emp^CHAR(14) D^7^134^134^5^0^0 X^7^D^134^5^0 S^8^3^P^apell1_emp^CHAR(14) D^8^135^135^5^0^0 X^8^r^315^68^0 X^8^r^271^22^0 X^8^D^135^5^0 S^9^3^P^apell2_emp^CHAR(14) D^9^136^136^5^0^0 X^9^D^136^5^0 S^10^3^P^nom_dpto^CHAR(30) D^10^137^137^5^0^0 X^10^r^223^26^0 X^10^r^211^26^0 X^10^D^137^5^0 S^11^3^P^nom_puesto^CHAR(28) D^11^138^138^5^0^0 X^11^r^316^20^0 X^11^r^272^20^0 X^11^D^138^5^0 S^12^3^P^cod_puesto^SMALLINT D^12^139^139^5^0^0 X^12^r^343^10^0 X^12^r^342^51^0 X^12^r^342^30^0 X^12^r^342^10^0 X^12^r^250^10^0 X^12^r^249^51^0 X^12^r^249^30^0 X^12^r^249^10^0 X^12^r^207^10^0 X^12^r^206^51^0 X^12^r^206^30^0 X^12^r^206^10^0 X^12^l^202^19^0 X^12^l^144^28^0 X^12^D^139^5^0 S^13^2^V^reportDef^base.report D^13^0^0^0^0^0 S^14^1^F^prprrp001^ D^14^31^127^10^0^0 X^14^D^31^10^0 X^14^c^28^7^0 S^15^14^V^opcion^CHAR(1) D^15^32^32^9^0^0 X^15^r^75^5^0 X^15^r^74^23^0 X^15^l^74^6^0 X^15^l^73^59^0 X^15^D^32^9^0 S^16^1^F^main^ D^16^25^29^1^0^0 X^16^D^25^1^0 S^17^1^V^repor_1^RECORD D^17^14^24^10^0^0 X^17^r^122^32^0 X^17^r^121^24^0 X^17^r^110^32^0 X^17^r^109^23^0 X^17^D^14^10^0 S^18^17^V^num_emp^SMALLINT D^18^15^15^5^0^0 X^18^D^15^5^0 S^19^17^V^departamento^SMALLINT D^19^16^16^5^0^0 X^19^D^16^5^0 S^20^17^V^nom1_emp^CHAR(14) D^20^17^17^5^0^0 X^20^D^17^5^0 S^21^17^V^nom2_emp^CHAR(14) D^21^18^18^5^0^0 X^21^D^18^5^0 S^22^17^V^apell1_emp^CHAR(14) D^22^19^19^5^0^0 X^22^D^19^5^0 S^23^17^V^apell2_emp^CHAR(14) D^23^20^20^5^0^0 X^23^D^20^5^0 S^24^17^V^nom_dpto^CHAR(30) D^24^21^21^5^0^0 X^24^D^21^5^0 S^25^17^V^nom_puesto^CHAR(28) D^25^22^22^5^0^0 X^25^D^22^5^0 S^26^17^V^cod_puesto^SMALLINT D^26^23^23^5^0^0 X^26^D^23^5^0 S^27^1^C^busca^base.cursor D^27^93^93^12^0^0 X^27^u^109^12^0 X^27^D^93^12^0 S^28^1^C^busca1^base.cursor D^28^112^112^12^0^0 X^28^u^121^12^0 X^28^D^112^12^0 S^29^0^V^sqlca^RECORD F^1^C:\ARCHIV~1\FourJs\BDL22005\lib/fgl.4gl D^29^2^8^1^1^1 X^29^D^2^1^1 S^30^29^V^sqlcode^INTEGER D^30^3^3^2^1^1 X^30^D^3^2^1 S^31^29^V^sqlerrm^VARCHAR(71) D^31^4^4^2^1^1 X^31^D^4^2^1 S^32^29^V^sqlerrp^CHAR(7) D^32^5^5^2^1^1 X^32^D^5^2^1 S^33^29^V^sqlerrd^ARRAY[6] OF INTEGER D^33^6^6^2^1^1 X^33^D^6^2^1 S^34^29^V^sqlawarn^CHAR(7) D^34^7^7^2^1^1 X^34^D^7^2^1 S^35^0^V^status^INTEGER D^35^9^9^1^1^1 X^35^r^80^7^0 X^35^r^57^5^0 X^35^D^9^1^1 S^36^0^V^int_flag^INTEGER D^36^9^9^9^1^1 X^36^l^69^8^0 X^36^r^66^4^0 X^36^D^9^9^1 S^37^0^V^quit_flag^INTEGER D^37^9^9^19^1^1 X^37^D^9^19^1 S^38^0^V^cttb01^RECORD F^2^prprgb000.4gl D^38^13^13^10^2^2 X^38^D^13^10^2 S^39^38^V^cod_prod^INTEGER D^39^0^0^0^0^0 X^39^D^13^10^2 S^40^38^V^descripcion^CHAR(30) D^40^0^0^0^0^0 X^40^D^13^10^2 S^41^38^V^unidad_med^CHAR(4) D^41^0^0^0^0^0 X^41^D^13^10^2 S^42^38^V^nomenclatura^CHAR(15) D^42^0^0^0^0^0 X^42^D^13^10^2 S^43^38^V^status_t^CHAR(1) D^43^0^0^0^0^0 X^43^D^13^10^2 S^44^38^V^us_crea^CHAR(9) D^44^0^0^0^0^0 X^44^D^13^10^2 S^45^38^V^fech_crea^DATE D^45^0^0^0^0^0 X^45^D^13^10^2 S^46^38^V^us_mod^CHAR(9) D^46^0^0^0^0^0 X^46^D^13^10^2 S^47^38^V^fech_mod^DATE D^47^0^0^0^0^0 X^47^D^13^10^2 S^48^38^V^cod_cia^SMALLINT D^48^0^0^0^0^0 X^48^D^13^10^2 S^49^0^V^p_compania^RECORD D^49^14^14^10^2^2 X^49^D^14^10^2 S^50^49^V^cod_comp^CHAR(5) D^50^0^0^0^0^0 X^50^D^14^10^2 S^51^49^V^nombre^CHAR(40) D^51^0^0^0^0^0 X^51^D^14^10^2 S^52^49^V^rnc^CHAR(30) D^52^0^0^0^0^0 X^52^D^14^10^2 S^53^49^V^direccion^CHAR(40) D^53^0^0^0^0^0 X^53^D^14^10^2 S^54^49^V^telefono^CHAR(15) D^54^0^0^0^0^0 X^54^D^14^10^2 S^55^49^V^fax^CHAR(15) D^55^0^0^0^0^0 X^55^D^14^10^2 S^56^49^V^administrador^CHAR(40) D^56^0^0^0^0^0 X^56^D^14^10^2 S^57^49^V^email^CHAR(100) D^57^0^0^0^0^0 X^57^D^14^10^2 S^58^49^V^paginaweb^CHAR(100) D^58^0^0^0^0^0 X^58^D^14^10^2 S^59^49^V^direccion1^CHAR(50) D^59^0^0^0^0^0 X^59^D^14^10^2 S^60^49^V^telefono1^CHAR(15) D^60^0^0^0^0^0 X^60^D^14^10^2 S^61^49^V^fax1^CHAR(15) D^61^0^0^0^0^0 X^61^D^14^10^2 S^62^49^V^status_t^CHAR(1) D^62^0^0^0^0^0 X^62^D^14^10^2 S^63^49^V^us_crea^CHAR(9) D^63^0^0^0^0^0 X^63^D^14^10^2 S^64^49^V^fech_crea^DATE D^64^0^0^0^0^0 X^64^D^14^10^2 S^65^49^V^us_mod^CHAR(9) D^65^0^0^0^0^0 X^65^D^14^10^2 S^66^49^V^fech_mod^DATE D^66^0^0^0^0^0 X^66^D^14^10^2 S^67^0^V^prtb02^RECORD D^67^15^15^10^2^2 X^67^r^297^21^0 X^67^r^252^21^0 X^67^r^166^26^0 X^67^r^165^28^0 X^67^r^164^37^0 X^67^r^78^25^0 X^67^l^63^38^0 X^67^l^63^20^0 X^67^r^55^23^0 X^67^l^53^64^0 X^67^l^53^46^0 X^67^r^47^5^0 X^67^l^44^16^0 X^67^D^15^10^2 S^68^67^V^num_semana^SMALLINT D^68^0^0^0^0^0 X^68^r^164^44^0 X^68^r^78^32^0 X^68^r^55^30^0 X^68^r^47^12^0 X^68^l^44^23^0 X^68^D^15^10^2 S^69^67^V^ano^CHAR(4) D^69^0^0^0^0^0 X^69^D^15^10^2 S^70^67^V^mes^SMALLINT D^70^0^0^0^0^0 X^70^D^15^10^2 S^71^67^V^semana_del^DATE D^71^0^0^0^0^0 X^71^r^297^28^0 X^71^r^252^28^0 X^71^r^165^35^0 X^71^l^63^27^0 X^71^l^53^53^0 X^71^D^15^10^2 S^72^67^V^semana_al^DATE D^72^0^0^0^0^0 X^72^r^166^33^0 X^72^l^63^45^0 X^72^l^53^71^0 X^72^D^15^10^2 S^73^67^V^descripcion^CHAR(30) D^73^0^0^0^0^0 X^73^D^15^10^2 S^74^67^V^status_t^CHAR(1) D^74^0^0^0^0^0 X^74^D^15^10^2 S^75^67^V^us_crea^CHAR(9) D^75^0^0^0^0^0 X^75^D^15^10^2 S^76^67^V^fech_crea^DATE D^76^0^0^0^0^0 X^76^D^15^10^2 S^77^67^V^us_mod^CHAR(9) D^77^0^0^0^0^0 X^77^D^15^10^2 S^78^67^V^fech_mod^DATE D^78^0^0^0^0^0 X^78^D^15^10^2 S^79^0^V^prtb03^RECORD D^79^16^16^10^2^2 X^79^l^297^6^0 X^79^l^252^6^0 X^79^D^16^10^2 S^80^79^V^num_semana^SMALLINT D^80^0^0^0^0^0 X^80^D^16^10^2 S^81^79^V^departamento^SMALLINT D^81^0^0^0^0^0 X^81^D^16^10^2 S^82^79^V^num_emp^SMALLINT D^82^0^0^0^0^0 X^82^D^16^10^2 S^83^79^V^fecha^DATE D^83^0^0^0^0^0 X^83^l^297^13^0 X^83^l^252^13^0 X^83^D^16^10^2 S^84^79^V^hn_ind^DECIMAL(5,2) D^84^0^0^0^0^0 X^84^D^16^10^2 S^85^79^V^he_ind^DECIMAL(5,2) D^85^0^0^0^0^0 X^85^D^16^10^2 S^86^79^V^status_t^CHAR(1) D^86^0^0^0^0^0 X^86^D^16^10^2 S^87^79^V^us_crea^CHAR(9) D^87^0^0^0^0^0 X^87^D^16^10^2 S^88^79^V^fech_crea^DATE D^88^0^0^0^0^0 X^88^D^16^10^2 S^89^79^V^us_mod^CHAR(9) D^89^0^0^0^0^0 X^89^D^16^10^2 S^90^79^V^fech_mod^DATE D^90^0^0^0^0^0 X^90^D^16^10^2 S^91^0^V^prtb05^RECORD D^91^17^17^10^2^2 X^91^D^17^10^2 S^92^91^V^codigo^SMALLINT D^92^0^0^0^0^0 X^92^D^17^10^2 S^93^91^V^descripcion^CHAR(40) D^93^0^0^0^0^0 X^93^D^17^10^2 S^94^91^V^status_t^CHAR(1) D^94^0^0^0^0^0 X^94^D^17^10^2 S^95^91^V^us_crea^CHAR(9) D^95^0^0^0^0^0 X^95^D^17^10^2 S^96^91^V^fech_crea^DATE D^96^0^0^0^0^0 X^96^D^17^10^2 S^97^91^V^us_mod^CHAR(9) D^97^0^0^0^0^0 X^97^D^17^10^2 S^98^91^V^fech_mod^DATE D^98^0^0^0^0^0 X^98^D^17^10^2 S^99^0^V^prtb06^RECORD D^99^18^18^10^2^2 X^99^D^18^10^2 S^100^99^V^cod_prod^INTEGER D^100^0^0^0^0^0 X^100^D^18^10^2 S^101^99^V^cod_n^SMALLINT D^101^0^0^0^0^0 X^101^D^18^10^2 S^102^99^V^cod_grupo^SMALLINT D^102^0^0^0^0^0 X^102^D^18^10^2 S^103^99^V^cod_tipo^SMALLINT D^103^0^0^0^0^0 X^103^D^18^10^2 S^104^99^V^cod_sec^SMALLINT D^104^0^0^0^0^0 X^104^D^18^10^2 S^105^99^V^fact_conv^DECIMAL(12,2) D^105^0^0^0^0^0 X^105^D^18^10^2 S^106^99^V^status_t^CHAR(1) D^106^0^0^0^0^0 X^106^D^18^10^2 S^107^99^V^us_crea^CHAR(9) D^107^0^0^0^0^0 X^107^D^18^10^2 S^108^99^V^fech_crea^DATE D^108^0^0^0^0^0 X^108^D^18^10^2 S^109^99^V^us_mod^CHAR(9) D^109^0^0^0^0^0 X^109^D^18^10^2 S^110^99^V^fech_mod^DATE D^110^0^0^0^0^0 X^110^D^18^10^2 S^111^0^V^prtb07^RECORD D^111^19^19^10^2^2 X^111^D^19^10^2 S^112^111^V^num_oc^INTEGER D^112^0^0^0^0^0 X^112^D^19^10^2 S^113^111^V^fecha^DATE D^113^0^0^0^0^0 X^113^D^19^10^2 S^114^111^V^fecha_termina^DATE D^114^0^0^0^0^0 X^114^D^19^10^2 S^115^111^V^tipo_cliente^SMALLINT D^115^0^0^0^0^0 X^115^D^19^10^2 S^116^111^V^sec_cliente^SMALLINT D^116^0^0^0^0^0 X^116^D^19^10^2 S^117^111^V^sec_vend^SMALLINT D^117^0^0^0^0^0 X^117^D^19^10^2 S^118^111^V^orden_pedido^INTEGER D^118^0^0^0^0^0 X^118^D^19^10^2 S^119^111^V^cod_n^SMALLINT D^119^0^0^0^0^0 X^119^D^19^10^2 S^120^111^V^cod_grupo^SMALLINT D^120^0^0^0^0^0 X^120^D^19^10^2 S^121^111^V^cod_tipo^SMALLINT D^121^0^0^0^0^0 X^121^D^19^10^2 S^122^111^V^cod_sec^SMALLINT D^122^0^0^0^0^0 X^122^D^19^10^2 S^123^111^V^cantidad^DECIMAL(12,3) D^123^0^0^0^0^0 X^123^D^19^10^2 S^124^111^V^status_t^CHAR(1) D^124^0^0^0^0^0 X^124^D^19^10^2 S^125^111^V^us_crea^CHAR(9) D^125^0^0^0^0^0 X^125^D^19^10^2 S^126^111^V^fech_crea^DATE D^126^0^0^0^0^0 X^126^D^19^10^2 S^127^111^V^us_mod^CHAR(9) D^127^0^0^0^0^0 X^127^D^19^10^2 S^128^111^V^fech_mod^DATE D^128^0^0^0^0^0 X^128^D^19^10^2 S^129^0^V^prtb08^RECORD D^129^20^20^10^2^2 X^129^D^20^10^2 S^130^129^V^ventas^CHAR(1) D^130^0^0^0^0^0 X^130^D^20^10^2 S^131^129^V^cotizacion_no^INTEGER D^131^0^0^0^0^0 X^131^D^20^10^2 S^132^129^V^num_oc^INTEGER D^132^0^0^0^0^0 X^132^D^20^10^2 S^133^129^V^fecha_oc^DATE D^133^0^0^0^0^0 X^133^D^20^10^2 S^134^129^V^nombre_file^CHAR(15) D^134^0^0^0^0^0 X^134^D^20^10^2 S^135^129^V^sec_vend^SMALLINT D^135^0^0^0^0^0 X^135^D^20^10^2 S^136^129^V^tipo_cliente^SMALLINT D^136^0^0^0^0^0 X^136^D^20^10^2 S^137^129^V^sec_cliente^SMALLINT D^137^0^0^0^0^0 X^137^D^20^10^2 S^138^129^V^direccion^CHAR(60) D^138^0^0^0^0^0 X^138^D^20^10^2 S^139^129^V^telefono^CHAR(12) D^139^0^0^0^0^0 X^139^D^20^10^2 S^140^129^V^fax^CHAR(12) D^140^0^0^0^0^0 X^140^D^20^10^2 S^141^129^V^fecha_entrega^DATE D^141^0^0^0^0^0 X^141^D^20^10^2 S^142^129^V^cond_pago^SMALLINT D^142^0^0^0^0^0 X^142^D^20^10^2 S^143^129^V^cantidad_i^DECIMAL(8,2) D^143^0^0^0^0^0 X^143^D^20^10^2 S^144^129^V^precio_i^DECIMAL(8,2) D^144^0^0^0^0^0 X^144^D^20^10^2 S^145^129^V^cantidad_mo^DECIMAL(10,2) D^145^0^0^0^0^0 X^145^D^20^10^2 S^146^129^V^precio_mo^DECIMAL(10,2) D^146^0^0^0^0^0 X^146^D^20^10^2 S^147^129^V^transporte^DECIMAL(10,2) D^147^0^0^0^0^0 X^147^D^20^10^2 S^148^129^V^itbis^DECIMAL(10,2) D^148^0^0^0^0^0 X^148^D^20^10^2 S^149^129^V^ubicacion^CHAR(80) D^149^0^0^0^0^0 X^149^D^20^10^2 S^150^129^V^cerrada^CHAR(1) D^150^0^0^0^0^0 X^150^D^20^10^2 S^151^129^V^fecha_cierre^DATE D^151^0^0^0^0^0 X^151^D^20^10^2 S^152^129^V^status_t^CHAR(1) D^152^0^0^0^0^0 X^152^D^20^10^2 S^153^129^V^us_crea^CHAR(9) D^153^0^0^0^0^0 X^153^D^20^10^2 S^154^129^V^fech_crea^DATE D^154^0^0^0^0^0 X^154^D^20^10^2 S^155^129^V^us_mod^CHAR(9) D^155^0^0^0^0^0 X^155^D^20^10^2 S^156^129^V^fech_mod^DATE D^156^0^0^0^0^0 X^156^D^20^10^2 S^157^0^V^prtb09^RECORD D^157^21^21^10^2^2 X^157^D^21^10^2 S^158^157^V^num_oc^INTEGER D^158^0^0^0^0^0 X^158^D^21^10^2 S^159^157^V^fecha^DATE D^159^0^0^0^0^0 X^159^D^21^10^2 S^160^157^V^fecha_fabricacion^DATE D^160^0^0^0^0^0 X^160^D^21^10^2 S^161^157^V^pendiente^CHAR(1) D^161^0^0^0^0^0 X^161^D^21^10^2 S^162^157^V^detalle^CHAR(300) D^162^0^0^0^0^0 X^162^D^21^10^2 S^163^157^V^status_t^CHAR(1) D^163^0^0^0^0^0 X^163^D^21^10^2 S^164^157^V^us_crea^CHAR(9) D^164^0^0^0^0^0 X^164^D^21^10^2 S^165^157^V^fech_crea^DATE D^165^0^0^0^0^0 X^165^D^21^10^2 S^166^157^V^us_mod^CHAR(9) D^166^0^0^0^0^0 X^166^D^21^10^2 S^167^157^V^fech_mod^DATE D^167^0^0^0^0^0 X^167^D^21^10^2 S^168^0^V^prtb16^RECORD D^168^22^22^10^2^2 X^168^D^22^10^2 S^169^168^V^area_num^SMALLINT D^169^0^0^0^0^0 X^169^D^22^10^2 S^170^168^V^nombre_area^CHAR(30) D^170^0^0^0^0^0 X^170^D^22^10^2 S^171^168^V^status_t^CHAR(1) D^171^0^0^0^0^0 X^171^D^22^10^2 S^172^168^V^us_crea^CHAR(9) D^172^0^0^0^0^0 X^172^D^22^10^2 S^173^168^V^fech_crea^DATE D^173^0^0^0^0^0 X^173^D^22^10^2 S^174^168^V^us_mod^CHAR(9) D^174^0^0^0^0^0 X^174^D^22^10^2 S^175^168^V^fech_mod^DATE D^175^0^0^0^0^0 X^175^D^22^10^2 S^176^0^V^pcosto_labor^ARRAY[50] OF DECIMAL(12,5) D^176^23^23^10^2^2 X^176^D^23^10^2 S^177^0^V^pcosto_gasto^ARRAY[50] OF DECIMAL(12,5) D^177^23^23^46^2^2 X^177^D^23^46^2 S^178^0^V^cliente_dir^RECORD D^178^25^25^10^2^2 X^178^D^25^10^2 S^179^178^V^tipo_cliente^SMALLINT D^179^0^0^0^0^0 X^179^D^25^10^2 S^180^178^V^sec_cliente^SMALLINT D^180^0^0^0^0^0 X^180^D^25^10^2 S^181^178^V^calle^CHAR(30) D^181^0^0^0^0^0 X^181^D^25^10^2 S^182^178^V^casa_num^CHAR(10) D^182^0^0^0^0^0 X^182^D^25^10^2 S^183^178^V^barrio^CHAR(20) D^183^0^0^0^0^0 X^183^D^25^10^2 S^184^178^V^urbanizacion^CHAR(20) D^184^0^0^0^0^0 X^184^D^25^10^2 S^185^178^V^secuencia_visita^INTEGER D^185^0^0^0^0^0 X^185^D^25^10^2 S^186^178^V^status_t^CHAR(1) D^186^0^0^0^0^0 X^186^D^25^10^2 S^187^178^V^us_crea^CHAR(9) D^187^0^0^0^0^0 X^187^D^25^10^2 S^188^178^V^fech_crea^DATE D^188^0^0^0^0^0 X^188^D^25^10^2 S^189^178^V^us_mod^CHAR(9) D^189^0^0^0^0^0 X^189^D^25^10^2 S^190^178^V^fech_mod^DATE D^190^0^0^0^0^0 X^190^D^25^10^2 S^191^0^V^arr_clientes^DYNAMIC ARRAY OF RECORD D^191^26^30^9^2^2 X^191^D^26^9^2 S^192^191^V^tipo_cliente^SMALLINT D^192^27^27^9^2^2 X^192^D^27^9^2 S^193^191^V^sec_cliente^SMALLINT D^193^28^28^9^2^2 X^193^D^28^9^2 S^194^191^V^nombre^CHAR(30) D^194^29^29^9^2^2 X^194^D^29^9^2 S^195^0^V^arrprtb08^ARRAY[30] OF RECORD D^195^32^40^10^2^2 X^195^D^32^10^2 S^196^195^V^cod_n_c^SMALLINT D^196^33^33^10^2^2 X^196^D^33^10^2 S^197^195^V^cod_grupo_c^SMALLINT D^197^34^34^10^2^2 X^197^D^34^10^2 S^198^195^V^cod_tipo_c^SMALLINT D^198^35^35^10^2^2 X^198^D^35^10^2 S^199^195^V^cod_sec_c^SMALLINT D^199^36^36^10^2^2 X^199^D^36^10^2 S^200^195^V^cantidad_c^DECIMAL(12,3) D^200^37^37^10^2^2 X^200^D^37^10^2 S^201^195^V^descrip_esp_c^CHAR(30) D^201^38^38^10^2^2 X^201^D^38^10^2 S^202^195^V^unidad_c^CHAR(3) D^202^39^39^10^2^2 X^202^D^39^10^2 S^203^0^V^nombre_dia^ARRAY[7] OF CHAR(10) D^203^42^42^10^2^2 X^203^D^42^10^2 S^204^0^V^empleados^ARRAY[200] OF RECORD D^204^44^47^10^2^2 X^204^D^44^10^2 S^205^204^V^cod_emp_sec^SMALLINT D^205^45^45^10^2^2 X^205^D^45^10^2 S^206^204^V^descrip6^CHAR(65) D^206^46^46^10^2^2 X^206^D^46^10^2 S^207^0^V^arr_hora^ARRAY[8] OF RECORD D^207^48^52^10^2^2 X^207^D^48^10^2 S^208^207^V^fecha^DATE D^208^49^49^6^2^2 X^208^D^49^6^2 S^209^207^V^hn_ind^DECIMAL(5,2) D^209^50^50^6^2^2 X^209^D^50^6^2 S^210^207^V^he_ind^DECIMAL(5,2) D^210^51^51^6^2^2 X^210^D^51^6^2 S^211^0^V^arr_empleados^ARRAY[200] OF RECORD D^211^54^58^10^2^2 X^211^D^54^10^2 S^212^211^V^num_emp^SMALLINT D^212^55^55^7^2^2 X^212^D^55^7^2 S^213^211^V^nom1_emp^CHAR(15) D^213^56^56^7^2^2 X^213^D^56^7^2 S^214^211^V^apell1_emp^CHAR(15) D^214^57^57^7^2^2 X^214^D^57^7^2 S^215^0^V^pilas^ARRAY[200] OF RECORD D^215^60^66^10^2^2 X^215^D^60^10^2 S^216^215^V^cod_n^SMALLINT D^216^61^61^10^2^2 X^216^D^61^10^2 S^217^215^V^cod_grupo^SMALLINT D^217^62^62^10^2^2 X^217^D^62^10^2 S^218^215^V^cod_tipo^SMALLINT D^218^63^63^10^2^2 X^218^D^63^10^2 S^219^215^V^cod_sec^SMALLINT D^219^64^64^10^2^2 X^219^D^64^10^2 S^220^215^V^descrip_esp^CHAR(30) D^220^65^65^10^2^2 X^220^D^65^10^2 S^221^0^V^nom_dpto^CHAR(30) D^221^68^68^10^2^2 X^221^D^68^10^2 S^222^0^V^nom_emp^CHAR(30) D^222^68^68^19^2^2 X^222^D^68^19^2 S^223^0^V^nom1_emp^CHAR(14) D^223^69^69^10^2^2 X^223^D^69^10^2 S^224^0^V^apell1_emp^CHAR(14) D^224^69^69^19^2^2 X^224^D^69^19^2 S^225^0^V^tipo_papel^INTEGER D^225^70^70^10^2^2 X^225^r^42^16^0 X^225^l^41^6^0 X^225^D^70^10^2 S^226^0^V^curr^INTEGER D^226^70^70^21^2^2 X^226^D^70^21^2 S^227^0^V^curr1^INTEGER D^227^70^70^26^2^2 X^227^D^70^26^2 S^228^0^V^fila^INTEGER D^228^70^70^32^2^2 X^228^D^70^32^2 S^229^0^V^scr_l^INTEGER D^229^70^70^37^2^2 X^229^D^70^37^2 S^230^0^V^idx^INTEGER D^230^70^70^43^2^2 X^230^r^222^11^0 X^230^r^220^18^0 X^230^l^220^12^0 X^230^r^210^11^0 X^230^r^208^18^0 X^230^l^208^12^0 X^230^l^200^7^0 X^230^D^70^43^2 S^231^0^V^idx1^INTEGER D^231^70^70^47^2^2 X^231^D^70^47^2 S^232^0^V^idx2^INTEGER D^232^70^70^52^2^2 X^232^D^70^52^2 S^233^0^V^j^INTEGER D^233^70^70^57^2^2 X^233^D^70^57^2 S^234^0^V^k^INTEGER D^234^70^70^59^2^2 X^234^D^70^59^2 S^235^0^V^salir^CHAR(1) D^235^71^71^10^2^2 X^235^D^71^10^2 S^236^0^V^salir1^CHAR(1) D^236^71^71^16^2^2 X^236^D^71^16^2 S^237^0^V^salir2^CHAR(1) D^237^71^71^23^2^2 X^237^D^71^23^2 S^238^0^V^sali3^CHAR(1) D^238^71^71^30^2^2 X^238^D^71^30^2 S^239^0^V^opcion^CHAR(2) D^239^72^72^10^2^2 X^239^D^72^10^2 S^240^0^V^opcion1^CHAR(1) D^240^73^73^10^2^2 X^240^r^92^7^0 X^240^l^89^11^0 X^240^r^85^10^0 X^240^r^84^29^0 X^240^l^84^11^0 X^240^l^83^16^0 X^240^D^73^10^2 S^241^0^V^opt^CHAR(1) D^241^73^73^18^2^2 X^241^D^73^18^2 S^242^0^V^impresion^CHAR(1) D^242^73^73^22^2^2 X^242^D^73^22^2 S^243^0^V^verdad^CHAR(1) D^243^73^73^32^2^2 X^243^D^73^32^2 S^244^0^V^identifica^CHAR(1) D^244^73^73^39^2^2 X^244^D^73^39^2 S^245^0^V^existe^CHAR(1) D^245^73^73^50^2^2 X^245^D^73^50^2 S^246^0^V^criterio^CHAR(1000) D^246^74^74^10^2^2 X^246^D^74^10^2 S^247^0^V^selec1^CHAR(1000) D^247^74^74^19^2^2 X^247^D^74^19^2 S^248^0^V^selec^CHAR(1000) D^248^74^74^26^2^2 X^248^D^74^26^2 S^249^0^V^selec2^CHAR(1000) D^249^74^74^32^2^2 X^249^D^74^32^2 S^250^0^V^selec3^CHAR(1000) D^250^74^74^39^2^2 X^250^D^74^39^2 S^251^0^V^negrilla_on^CHAR(3) D^251^75^75^10^2^2 X^251^D^75^10^2 S^252^0^V^negrillas_of^CHAR(3) D^252^75^75^22^2^2 X^252^D^75^22^2 S^253^0^V^comp_on^CHAR(3) D^253^75^75^35^2^2 X^253^r^155^7^0 X^253^l^148^5^0 X^253^D^75^35^2 S^254^0^V^comp_off^CHAR(3) D^254^75^75^43^2^2 X^254^r^361^7^0 X^254^l^149^5^0 X^254^D^75^43^2 S^255^0^V^doce^CHAR(3) D^255^75^75^52^2^2 X^255^l^150^5^0 X^255^D^75^52^2 S^256^0^V^doble_on^CHAR(3) D^256^75^75^57^2^2 X^256^r^223^15^0 X^256^r^211^15^0 X^256^l^151^5^0 X^256^D^75^57^2 S^257^0^V^doble_off^CHAR(3) D^257^75^75^66^2^2 X^257^r^223^43^0 X^257^r^211^43^0 X^257^l^152^5^0 X^257^D^75^66^2 S^258^0^V^hora^CHAR(5) D^258^77^77^10^2^2 X^258^r^162^19^0 X^258^l^153^5^0 X^258^D^77^10^2 S^259^0^V^l^SMALLINT D^259^78^78^10^2^2 X^259^D^78^10^2 S^260^0^V^numero_msg^SMALLINT D^260^80^80^10^2^2 X^260^r^68^13^0 X^260^l^67^8^0 X^260^r^59^14^0 X^260^l^58^9^0 X^260^r^49^14^0 X^260^l^48^9^0 X^260^D^80^10^2 S^261^0^V^bandera^SMALLINT D^261^81^81^10^2^2 X^261^D^81^10^2 S^262^0^V^otrab^SMALLINT D^262^81^81^18^2^2 X^262^D^81^18^2 S^263^0^V^p_fechas^DATE D^263^82^82^10^2^2 X^263^D^82^10^2 S^264^0^V^comp_fech^DATE D^264^82^82^19^2^2 X^264^D^82^19^2 S^265^0^V^comp_fech1^DATE D^265^82^82^29^2^2 X^265^D^82^29^2 S^266^0^V^mes_control^CHAR(2) D^266^83^83^10^2^2 X^266^D^83^10^2 S^267^0^V^mes_calc^SMALLINT D^267^84^84^10^2^2 X^267^D^84^10^2 S^268^0^V^dia^SMALLINT D^268^84^84^19^2^2 X^268^D^84^19^2 S^269^0^V^fecha_c^DATE D^269^85^85^10^2^2 X^269^D^85^10^2 S^270^0^V^c_ano^CHAR(4) D^270^86^86^10^2^2 X^270^D^86^10^2 S^271^0^V^a_ano^CHAR(4) D^271^86^86^16^2^2 X^271^D^86^16^2 S^272^0^V^p_user^CHAR(9) D^272^87^87^10^2^2 X^272^D^87^10^2 S^273^0^F^msg^ X^273^c^68^9^0 X^273^c^59^10^0 X^273^c^49^10^0 S^274^0^F^msgrp000^ X^274^c^42^7^0 T^12^24^d^0^0^DEFINE T^14^24^d^0^0^RECORD T^25^29^f^0^0^MAIN T^25^25^d^0^0^DEFINE T^31^127^f^0^0^FUNCTION T^32^32^d^0^0^DEFINE T^44^64^i^0^0^INPUT T^46^63^i^0^0^ T^47^51^c^0^0^IF T^48^50^c^0^0^THEN T^57^61^c^0^0^IF T^58^60^c^0^0^THEN T^66^71^c^0^0^IF T^67^70^c^0^0^THEN T^73^73^i^0^0^PROMPT T^75^126^c^0^0^IF T^77^125^c^0^0^THEN T^80^90^c^0^0^IF T^81^87^c^0^0^THEN T^81^83^i^0^0^PROMPT T^85^87^c^0^0^IF T^86^86^c^0^0^THEN T^88^89^c^0^0^ELSE T^92^125^c^0^0^IF T^93^124^c^0^0^THEN T^109^111^l^0^0^FOREACH T^121^123^l^0^0^FOREACH T^129^362^f^0^0^REPORT T^130^140^d^0^0^DEFINE T^130^140^d^0^0^RECORD r^2^LEFT MARGIN^0 r^2^ORDER EXTERNAL^0 o^2^5^1 o^2^12^1 o^2^4^1 T^147^197^a^0^0^PAGE HEADER x^155^0^ p^v^253 x^156^0^ p^c^1 p^l^prprrp001 p^c^49 p^l^ R A Y .O. V A C D O M I N I C A N A, S. A. p^c^141 p^l^Pag. p^e^ x^159^0^ p^c^49 p^l^ SISTEMA DE PRODUCCION p^c^141 p^e^ x^161^0^ p^c^49 p^l^REGISTRO HORAS DIARIAS Y PERSONAL NO DE PRODUCCION p^c^144 p^v^258 x^164^0^ p^c^1 p^l^NUMERO SEMANA: p^v^68 p^l^ p^l^: DEL p^v^71 p^l^ AL p^v^72 x^168^0^ p^l^==================================================================== p^l^==================================================================== p^l^============ x^171^0^ p^c^64 p^l^| H O R A S I N D I R E C T A S p^l^ | x^175^0^ p^c^64 p^l^| NORMALES | p^c^120 p^l^ EXTRAS | x^178^0^ p^c^64 p^l^| p^c^67 p^l^S p^e^ p^l^D p^e^ p^l^L p^e^ p^l^M p^e^ p^l^M p^e^ p^l^J p^e^ p^l^V | p^e^ p^l^S p^e^ p^l^D p^e^ p^l^L p^e^ p^l^M p^e^ p^l^M p^e^ p^l^J p^e^ p^l^V | x^195^0^ p^l^==================================================================== p^l^==================================================================== p^l^============ T^199^200^a^0^0^BEFORE GROUP OF 5 T^202^243^a^0^0^BEFORE GROUP OF 12 T^203^216^c^0^0^IF T^206^215^c^0^0^THEN T^206^215^c^0^0^IF T^208^213^c^0^0^THEN T^210^213^c^0^0^IF T^211^212^c^0^0^THEN x^211^0^ p^v^256 p^e^ p^v^257 T^218^243^c^0^0^IF T^220^225^c^0^0^THEN T^222^225^c^0^0^IF T^223^224^c^0^0^THEN x^223^0^ p^v^256 p^e^ p^v^257 T^245^336^a^0^0^ON EVERY ROW T^246^293^c^0^0^IF T^249^292^c^0^0^THEN T^249^292^c^0^0^IF T^252^291^c^0^0^THEN x^253^0^ p^c^64 p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| x^270^0^ p^c^1 p^v^4 p^l^ p^e^ p^l^ p^e^ p^c^35 p^e^ p^c^64 p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| x^289^0^ p^l^-------------------------------------------------------------------- p^l^-------------------------------------------------------------------- p^l^----------- T^295^336^c^0^0^IF T^297^335^c^0^0^THEN x^298^0^ p^c^64 p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| x^315^0^ p^c^1 p^v^4 p^l^ p^e^ p^l^ p^v^8 p^c^35 p^e^ p^c^64 p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| p^e^ p^l^| x^333^0^ p^l^-------------------------------------------------------------------- p^l^-------------------------------------------------------------------- p^l^----------- T^338^356^a^0^0^AFTER GROUP OF 5 T^339^349^c^0^0^IF T^342^348^c^0^0^THEN T^342^348^c^0^0^IF T^345^347^c^0^0^THEN x^345^0^ p^l^-------------------------------------------------------------------- p^l^-------------------------------------------------------------------- p^l^----------- T^351^356^c^0^0^IF T^353^355^c^0^0^THEN x^353^0^ p^l^-------------------------------------------------------------------- p^l^-------------------------------------------------------------------- p^l^----------- T^358^361^a^0^0^ON LAST ROW x^360^0^ p^l^Total Registros Impresos===> p^e^ x^361^0^ p^v^254