S^1^0^M^cpprrp002^MODULE^^ S^2^1^R^reporte31^^^public F^0^C:\Users\luis_\Documents\fuentes\decomarmol\PROYECTO\cpdir\cpprrp002.4gl D^2^402^585^16^0^0 X^2^c^141^18^0^finish X^2^c^137^29^0^output X^2^c^131^21^0^start X^2^D^402^16^0^ S^3^2^P^x^RECORD^^ D^3^403^411^12^0^0 X^3^r^553^16^0^ X^3^l^516^22^0^ X^3^r^490^35^0^ X^3^l^487^17^0^ X^3^r^486^13^0^ X^3^r^480^33^0^ X^3^r^480^19^0^ X^3^r^477^28^0^ X^3^r^476^54^0^ X^3^r^476^26^0^ X^3^r^461^72^0^ X^3^r^460^54^0^ X^3^r^460^26^0^ X^3^r^456^70^0^ X^3^r^455^54^0^ X^3^r^455^26^0^ X^3^r^453^10^0^ X^3^l^441^23^0^ X^3^l^435^14^0^ X^3^l^402^26^0^ X^3^D^403^12^0^ S^4^3^P^cod_sp^SMALLINT^^ D^4^404^404^12^0^0 X^4^D^404^12^0^ S^5^3^P^cod_sp_sec^SMALLINT^^ D^5^405^405^12^0^0 X^5^D^405^12^0^ S^6^3^P^nombre^CHAR(30)^^ D^6^406^406^12^0^0 X^6^D^406^12^0^ S^7^3^P^tipo_doc^CHAR(2)^^ D^7^407^407^12^0^0 X^7^D^407^12^0^ S^8^3^P^fecha_doc^DATE^^ D^8^408^408^12^0^0 X^8^D^408^12^0^ S^9^3^P^num_doc^CHAR(15)^^ D^9^409^409^12^0^0 X^9^D^409^12^0^ S^10^3^P^suplidor^CHAR(6)^^ D^10^410^410^12^0^0 X^10^D^410^12^0^ S^11^2^V^valor1^DECIMAL(12,2)^^ D^11^413^413^12^0^0 X^11^r^472^28^0^ X^11^l^465^22^0^ X^11^r^464^18^0^ X^11^l^454^34^0^ X^11^D^413^12^0^ S^12^2^V^valor2^DECIMAL(12,2)^^ D^12^413^413^19^0^0 X^12^r^472^37^0^ X^12^l^469^22^0^ X^12^r^468^18^0^ X^12^l^459^34^0^ X^12^D^413^19^0^ S^13^2^V^valor3^DECIMAL(12,2)^^ D^13^413^413^26^0^0 X^13^r^512^36^0^ X^13^r^507^37^0^ X^13^r^502^37^0^ X^13^r^497^37^0^ X^13^r^492^35^0^ X^13^l^483^17^0^ X^13^r^482^13^0^ X^13^r^480^50^0^ X^13^l^475^45^0^ X^13^l^472^19^0^ X^13^l^450^11^0^ X^13^l^448^15^0^ X^13^D^413^26^0^ S^14^2^V^valor4^DECIMAL(12,2)^^ D^14^413^413^33^0^0 X^14^D^413^33^0^ S^15^2^V^doble_on^CHAR(2)^^ D^15^414^414^12^0^0 X^15^D^414^12^0^ S^16^2^V^doble_off^CHAR(2)^^ D^16^415^415^12^0^0 X^16^D^415^12^0^ S^17^2^V^negrillas_on^CHAR(6)^^ D^17^416^416^12^0^0 X^17^D^416^12^0^ S^18^2^V^negrillas_off^CHAR(6)^^ D^18^417^417^12^0^0 X^18^D^417^12^0^ S^19^2^V^comp_on^CHAR(6)^^ D^19^418^418^12^0^0 X^19^D^418^12^0^ S^20^2^V^comp_off^CHAR(6)^^ D^20^419^419^12^0^0 X^20^D^419^12^0^ S^21^2^V^doce^CHAR(2)^^ D^21^420^420^12^0^0 X^21^D^420^12^0^ S^22^2^V^normall^CHAR(3)^^ D^22^421^421^12^0^0 X^22^D^421^12^0^ S^23^2^V^normal^CHAR(2)^^ D^23^422^422^12^0^0 X^23^D^422^12^0^ S^24^2^V^hora^CHAR(5)^^ D^24^423^423^12^0^0 X^24^r^451^28^0^ X^24^l^439^19^0^ X^24^D^423^12^0^ S^25^2^V^fecha_factura^DATE^^ D^25^424^424^12^0^0 X^25^D^424^12^0^ S^26^2^V^de1a30^DECIMAL(12,2)^^ D^26^425^426^12^0^0 X^26^l^556^17^0^ X^26^r^553^20^0^ X^26^r^545^32^0^ X^26^r^541^31^0^ X^26^r^492^26^0^ X^26^l^492^17^0^ X^26^l^443^13^0^ X^26^D^425^12^0^ S^27^2^V^de31a45^DECIMAL(12,2)^^ D^27^425^426^20^0^0 X^27^l^557^17^0^ X^27^r^553^27^0^ X^27^r^547^32^0^ X^27^r^541^40^0^ X^27^r^497^27^0^ X^27^l^497^17^0^ X^27^l^444^13^0^ X^27^D^425^20^0^ S^28^2^V^de46a60^DECIMAL(12,2)^^ D^28^425^426^29^0^0 X^28^l^558^17^0^ X^28^r^553^35^0^ X^28^r^548^32^0^ X^28^r^541^50^0^ X^28^r^502^27^0^ X^28^l^502^17^0^ X^28^l^445^13^0^ X^28^D^425^29^0^ S^29^2^V^masde60^DECIMAL(12,2)^^ D^29^425^426^38^0^0 X^29^l^559^17^0^ X^29^r^553^43^0^ X^29^r^549^34^0^ X^29^r^541^60^0^ X^29^r^507^27^0^ X^29^l^507^17^0^ X^29^l^446^13^0^ X^29^D^425^38^0^ S^30^2^V^total_saldo^DECIMAL(12,2)^^ D^30^425^426^47^0^0 X^30^l^561^17^0^ X^30^r^553^58^0^ X^30^r^544^16^0^ X^30^l^541^17^0^ X^30^l^540^17^0^ X^30^D^425^47^0^ S^31^2^V^mas120^DECIMAL(12,2)^^ D^31^426^426^12^0^0 X^31^l^560^17^0^ X^31^r^553^51^0^ X^31^r^546^36^0^ X^31^r^542^32^0^ X^31^r^512^26^0^ X^31^l^512^17^0^ X^31^l^447^13^0^ X^31^D^426^12^0^ S^32^2^V^tm120^DECIMAL(12,2)^^ D^32^427^427^12^0^0 X^32^l^580^11^0^ X^32^r^573^29^0^ X^32^r^567^37^0^ X^32^r^566^47^0^ X^32^r^546^28^0^ X^32^l^546^20^0^ X^32^l^518^20^0^ X^32^r^517^16^0^ X^32^D^427^12^0^ S^33^2^V^t30^DECIMAL(12,2)^^ D^33^427^427^18^0^0 X^33^l^576^11^0^ X^33^r^569^29^0^ X^33^r^567^20^0^ X^33^r^566^22^0^ X^33^r^545^26^0^ X^33^l^545^20^0^ X^33^l^521^20^0^ X^33^r^520^16^0^ X^33^D^427^18^0^ S^34^2^V^t45^DECIMAL(12,2)^^ D^34^427^427^23^0^0 X^34^l^577^11^0^ X^34^r^570^29^0^ X^34^r^567^24^0^ X^34^r^566^28^0^ X^34^r^547^26^0^ X^34^l^547^20^0^ X^34^l^525^20^0^ X^34^r^524^16^0^ X^34^D^427^23^0^ S^35^2^V^t60^DECIMAL(12,2)^^ D^35^427^427^28^0^0 X^35^l^578^11^0^ X^35^r^571^29^0^ X^35^r^567^28^0^ X^35^r^566^34^0^ X^35^r^548^26^0^ X^35^l^548^20^0^ X^35^l^529^20^0^ X^35^r^528^16^0^ X^35^D^427^28^0^ S^36^2^V^tm60^DECIMAL(12,2)^^ D^36^427^427^33^0^0 X^36^l^579^11^0^ X^36^r^572^29^0^ X^36^r^567^32^0^ X^36^r^566^40^0^ X^36^r^549^27^0^ X^36^l^549^20^0^ X^36^l^533^20^0^ X^36^r^532^16^0^ X^36^D^427^33^0^ S^37^2^V^tsaldo^DECIMAL(12,2)^^ D^37^427^427^39^0^0 X^37^l^581^11^0^ X^37^r^574^29^0^ X^37^r^567^43^0^ X^37^l^566^13^0^ X^37^l^537^20^0^ X^37^r^536^16^0^ X^37^D^427^39^0^ S^38^2^V^dias^INTEGER^^ D^38^428^428^12^0^0 X^38^r^511^13^0^ X^38^r^506^27^0^ X^38^r^506^13^0^ X^38^r^501^28^0^ X^38^r^501^13^0^ X^38^r^496^28^0^ X^38^r^496^13^0^ X^38^r^491^13^0^ X^38^l^490^14^0^ X^38^D^428^12^0^ S^39^2^V^reportDef^base.Report^^ D^39^0^0^0^0^0 S^40^1^F^cpprrp002^^^public D^40^44^161^10^0^0 X^40^c^41^9^0^ X^40^D^44^10^0^ S^41^40^V^valor1^DECIMAL(12,2)^^ D^41^45^45^8^0^0 X^41^D^45^8^0^ S^42^40^V^valor2^DECIMAL(12,2)^^ D^42^45^45^15^0^0 X^42^D^45^15^0^ S^43^40^V^valor3^DECIMAL(12,2)^^ D^43^45^45^22^0^0 X^43^D^45^22^0^ S^44^1^F^main^^^public D^44^33^42^1^0^0 X^44^D^33^1^0^ S^45^1^V^fecha_corte^DATE^^private D^45^11^11^12^0^0 X^45^r^490^21^0^ X^45^r^478^31^0^ X^45^r^462^58^0^ X^45^r^457^58^0^ X^45^r^451^16^0^ X^45^r^98^25^0^ X^45^r^70^18^0^ X^45^l^67^20^0^ X^45^l^64^17^0^ X^45^D^11^12^0^ S^46^1^V^cod_sp1^SMALLINT^^private D^46^12^12^12^0^0 X^46^l^64^29^0^ X^46^D^12^12^0^ S^47^1^V^idx_1^SMALLINT^^private D^47^13^13^12^0^0 X^47^D^13^12^0^ S^48^1^V^idx_2^SMALLINT^^private D^48^13^13^19^0^0 X^48^D^13^19^0^ S^49^1^V^doccli9^RECORD^^private D^49^14^22^12^0^0 X^49^r^137^39^0^ X^49^r^135^31^0^ X^49^r^134^33^0^ X^49^l^134^14^0^ X^49^r^111^26^0^ X^49^D^14^12^0^ S^50^49^V^cod_sp^SMALLINT^^ D^50^15^15^12^0^0 X^50^D^15^12^0^ S^51^49^V^cod_sp_sec^SMALLINT^^ D^51^16^16^12^0^0 X^51^D^16^12^0^ S^52^49^V^nombre^CHAR(30)^^ D^52^17^17^12^0^0 X^52^D^17^12^0^ S^53^49^V^tipo_doc^CHAR(2)^^ D^53^18^18^12^0^0 X^53^D^18^12^0^ S^54^49^V^fecha_doc^DATE^^ D^54^19^19^12^0^0 X^54^D^19^12^0^ S^55^49^V^num_doc^CHAR(15)^^ D^55^20^20^12^0^0 X^55^D^20^12^0^ S^56^49^V^suplidor^CHAR(6)^^ D^56^21^21^12^0^0 X^56^D^21^12^0^ S^57^1^V^tot_gen2^RECORD^^private D^57^24^31^12^0^0 X^57^l^574^11^0^ X^57^l^573^11^0^ X^57^l^572^11^0^ X^57^l^571^11^0^ X^57^l^570^11^0^ X^57^l^569^11^0^ X^57^l^152^8^0^ X^57^l^151^8^0^ X^57^l^150^8^0^ X^57^l^149^8^0^ X^57^l^148^8^0^ X^57^l^147^8^0^ X^57^r^145^20^0^ X^57^D^24^12^0^ S^58^57^V^total1^DECIMAL(10,2)^^ D^58^25^25^12^0^0 X^58^D^25^12^0^ S^59^57^V^total2^DECIMAL(10,2)^^ D^59^26^26^12^0^0 X^59^D^26^12^0^ S^60^57^V^total3^DECIMAL(10,2)^^ D^60^27^27^12^0^0 X^60^D^27^12^0^ S^61^57^V^total4^DECIMAL(10,2)^^ D^61^28^28^12^0^0 X^61^D^28^12^0^ S^62^57^V^total5^DECIMAL(10,2)^^ D^62^29^29^12^0^0 X^62^D^29^12^0^ S^63^57^V^total6^DECIMAL(10,2)^^ D^63^30^30^12^0^0 X^63^D^30^12^0^ S^64^1^C^ft_valor^base.SqlHandle^^private D^64^94^94^10^0^0 X^64^u^111^12^0^ X^64^D^94^10^0^ S^65^0^V^status^INTEGER^^builtin F^1^C:\Program Files\FourJs\Genero Studio\fgl\lib/fgl.4gl D^65^15^15^9^1^1 X^65^D^15^9^1^ S^66^0^V^int_flag^INTEGER^^builtin D^66^15^15^17^1^1 X^66^l^116^18^0^ X^66^r^113^14^0^ X^66^l^87^22^0^ X^66^r^84^18^0^ X^66^D^15^17^1^ S^67^0^V^handler^om.SaxDocumentHandler^^global F^2^cpprgb000.4gl D^67^4^4^8^2^2 X^67^r^131^46^0^ X^67^l^128^17^0^ X^67^D^4^8^2^ S^68^0^V^r_filename^STRING^^global D^68^5^5^10^2^2 X^68^r^122^36^0^ X^68^l^121^10^0^ X^68^D^5^10^2^ S^69^0^V^r_output^STRING^^global D^69^6^6^11^2^2 X^69^r^126^42^0^ X^69^l^125^46^0^ X^69^l^64^37^0^ X^69^D^6^11^2^ S^70^0^V^preview^INTEGER^^global D^70^7^7^11^2^2 X^70^r^127^43^0^ X^70^l^124^17^0^ X^70^D^7^11^2^ S^71^0^V^opt^CHAR(1)^^global D^71^8^8^10^2^2 X^71^D^8^10^2^ S^72^0^V^impresion^CHAR(1)^^global D^72^8^8^14^2^2 X^72^D^8^14^2^ S^73^0^V^verdad^CHAR(1)^^global D^73^8^8^24^2^2 X^73^D^8^24^2^ S^74^0^V^identifica^CHAR(1)^^global D^74^8^8^31^2^2 X^74^D^8^31^2^ S^75^0^V^existe^CHAR(1)^^global D^75^8^8^42^2^2 X^75^D^8^42^2^ S^76^0^V^status_reg^CHAR(1)^^global D^76^9^9^10^2^2 X^76^D^9^10^2^ S^77^0^V^criterio^CHAR(1000)^^global D^77^10^10^10^2^2 X^77^l^92^15^0^ X^77^D^10^10^2^ S^78^0^V^selec^CHAR(1000)^^global D^78^11^11^10^2^2 X^78^D^11^10^2^ S^79^0^V^selec2^CHAR(500)^^global D^79^12^12^10^2^2 X^79^D^12^10^2^ S^80^0^V^selec3^CHAR(1000)^^global D^80^13^13^10^2^2 X^80^D^13^10^2^ S^81^0^V^selec4^CHAR(1000)^^global D^81^14^14^10^2^2 X^81^D^14^10^2^ S^82^0^V^opcion^CHAR(2)^^global D^82^15^15^10^2^2 X^82^D^15^10^2^ S^83^0^V^descrip1^CHAR(30)^^global D^83^16^16^10^2^2 X^83^D^16^10^2^ S^84^0^V^descrip2^CHAR(30)^^global D^84^17^17^10^2^2 X^84^D^17^10^2^ S^85^0^V^descrip3^CHAR(30)^^global D^85^18^18^10^2^2 X^85^D^18^10^2^ S^86^0^V^descrip4^CHAR(30)^^global D^86^19^19^10^2^2 X^86^D^19^10^2^ S^87^0^V^nom_sp_tipo^CHAR(60)^^global D^87^20^20^10^2^2 X^87^D^20^10^2^ S^88^0^V^nombre_emp^CHAR(60)^^global D^88^20^20^22^2^2 X^88^D^20^22^2^ S^89^0^V^nom_sup^CHAR(60)^^global D^89^20^20^33^2^2 X^89^D^20^33^2^ S^90^0^V^descrip5^CHAR(65)^^global D^90^21^21^10^2^2 X^90^D^21^10^2^ S^91^0^V^descrip6^CHAR(45)^^global D^91^22^22^10^2^2 X^91^D^22^10^2^ S^92^0^V^nom_cuenta^CHAR(15)^^global D^92^23^23^10^2^2 X^92^D^23^10^2^ S^93^0^V^desc_p^DECIMAL(12,2)^^global D^93^24^24^10^2^2 X^93^D^24^10^2^ S^94^0^V^valor_fac^DECIMAL(12,2)^^global D^94^24^24^17^2^2 X^94^D^24^17^2^ S^95^0^V^pagada^DECIMAL(12,2)^^global D^95^24^24^27^2^2 X^95^D^24^27^2^ S^96^0^V^monto^DECIMAL(12,2)^^global D^96^24^24^34^2^2 X^96^D^24^34^2^ S^97^0^V^pendiente^DECIMAL(12,2)^^global D^97^24^24^40^2^2 X^97^D^24^40^2^ S^98^0^V^valor1^DECIMAL(12,2)^^global D^98^24^24^50^2^2 X^98^D^24^50^2^ S^99^0^V^lj^INTEGER^^global D^99^25^25^10^2^2 X^99^D^25^10^2^ S^100^0^V^k^INTEGER^^global D^100^25^25^13^2^2 X^100^D^25^13^2^ S^101^0^V^tipo_papel^INTEGER^^global D^101^25^25^15^2^2 X^101^r^61^19^0^ X^101^l^60^9^0^ X^101^D^25^15^2^ S^102^0^V^idx^INTEGER^^global D^102^25^25^26^2^2 X^102^r^140^7^0^ X^102^r^138^20^0^ X^102^l^138^14^0^ X^102^r^119^7^0^ X^102^l^110^8^0^ X^102^D^25^26^2^ S^103^0^V^curr^INTEGER^^global D^103^25^25^31^2^2 X^103^D^25^31^2^ S^104^0^V^curr1^INTEGER^^global D^104^25^25^37^2^2 X^104^D^25^37^2^ S^105^0^V^fila^INTEGER^^global D^105^25^25^44^2^2 X^105^D^25^44^2^ S^106^0^V^scr_l^INTEGER^^global D^106^25^25^50^2^2 X^106^D^25^50^2^ S^107^0^V^usuarios^CHAR(80)^^global D^107^26^26^10^2^2 X^107^r^39^35^0^ X^107^l^35^30^0^ X^107^D^26^10^2^ S^108^0^V^clave^CHAR(80)^^global D^108^26^26^19^2^2 X^108^r^39^50^0^ X^108^l^36^30^0^ X^108^D^26^19^2^ S^109^0^V^impresor^SMALLINT^^global D^109^27^27^10^2^2 X^109^l^37^30^0^ X^109^D^27^10^2^ S^110^0^V^HANDLER^om.SaxDocumentHandler^^global D^110^28^28^10^2^2 X^110^D^28^10^2^ S^111^0^V^tipo_ncf^SMALLINT^^global D^111^29^29^10^2^2 X^111^D^29^10^2^ S^112^0^V^conteo^SMALLINT^^global D^112^29^29^19^2^2 X^112^D^29^19^2^ S^113^0^V^ncf^CHAR(19)^^global D^113^30^30^10^2^2 X^113^D^30^10^2^ S^114^0^V^descripcion_ncf^CHAR(50)^^global D^114^31^31^10^2^2 X^114^D^31^10^2^ S^115^0^V^normal^CHAR(3)^^global D^115^33^34^10^2^2 X^115^D^33^10^2^ S^116^0^V^negrilla_on^CHAR(3)^^global D^116^33^34^17^2^2 X^116^D^33^17^2^ S^117^0^V^negrillas_of^CHAR(3)^^global D^117^33^34^29^2^2 X^117^D^33^29^2^ S^118^0^V^comp_on^CHAR(3)^^global D^118^33^34^42^2^2 X^118^D^33^42^2^ S^119^0^V^comp_off^CHAR(3)^^global D^119^33^34^50^2^2 X^119^D^33^50^2^ S^120^0^V^doce^CHAR(3)^^global D^120^33^34^59^2^2 X^120^D^33^59^2^ S^121^0^V^doble_on^CHAR(3)^^global D^121^33^34^64^2^2 X^121^D^33^64^2^ S^122^0^V^doble_off^CHAR(3)^^global D^122^33^34^73^2^2 X^122^D^33^73^2^ S^123^0^V^cmd^CHAR(150)^^global D^123^35^35^10^2^2 X^123^D^35^10^2^ S^124^0^V^imprime^CHAR(150)^^global D^124^35^35^14^2^2 X^124^D^35^14^2^ S^125^0^V^copia^CHAR(150)^^global D^125^35^35^22^2^2 X^125^D^35^22^2^ S^126^0^V^archivo^CHAR(80)^^global D^126^35^35^38^2^2 X^126^D^35^38^2^ S^127^0^V^rango^RECORD^^global D^127^37^40^10^2^2 X^127^D^37^10^2^ S^128^127^V^fecha_ini^DATE^^ D^128^38^38^10^2^2 X^128^D^38^10^2^ S^129^127^V^fecha_fin^DATE^^ D^129^39^39^10^2^2 X^129^D^39^10^2^ S^130^0^V^numero_msg^SMALLINT^decomarmol.msgtable.cod_msg^global D^130^42^42^10^2^2 X^130^r^115^23^0^ X^130^l^114^18^0^ X^130^r^86^27^0^ X^130^l^85^22^0^ X^130^r^72^27^0^ X^130^l^71^22^0^ X^130^D^42^10^2^ S^131^0^V^factura^RECORD^^global D^131^44^54^10^2^2 X^131^D^44^10^2^ S^132^131^V^cod_sp^SMALLINT^^ D^132^45^45^5^2^2 X^132^D^45^5^2^ S^133^131^V^cod_sp_sec^SMALLINT^^ D^133^46^46^5^2^2 X^133^D^46^5^2^ S^134^131^V^num_doc^CHAR(13)^^ D^134^47^47^5^2^2 X^134^D^47^5^2^ S^135^131^V^fecha_orig^DATE^^ D^135^48^48^5^2^2 X^135^D^48^5^2^ S^136^131^V^fecha_proc^DATE^^ D^136^49^49^5^2^2 X^136^D^49^5^2^ S^137^131^V^valor_fac^DECIMAL(12,2)^^ D^137^50^50^5^2^2 X^137^D^50^5^2^ S^138^131^V^tipo_oc^CHAR(2)^^ D^138^51^51^5^2^2 X^138^D^51^5^2^ S^139^131^V^orden_no^INTEGER^^ D^139^52^52^5^2^2 X^139^D^52^5^2^ S^140^131^V^detalle^CHAR(30)^^ D^140^53^53^5^2^2 X^140^D^53^5^2^ S^141^0^V^recibo^RECORD^^global D^141^55^64^10^2^2 X^141^D^55^10^2^ S^142^141^V^tipo_doc^VARCHAR(2)^decomarmol.cptb00001.tipo_doc^ D^142^56^56^6^2^2 X^142^D^56^6^2^ S^143^141^V^num_doc^VARCHAR(11)^decomarmol.cptb00001.num_doc^ D^143^57^57^6^2^2 X^143^D^57^6^2^ S^144^141^V^cta_ctble^VARCHAR(10)^decomarmol.cptb00001.cta_ctble^ D^144^58^58^6^2^2 X^144^D^58^6^2^ S^145^141^V^cod_sp^SMALLINT^decomarmol.cptb00001.cod_sp^ D^145^59^59^6^2^2 X^145^D^59^6^2^ S^146^141^V^cod_sp_sec^SMALLINT^decomarmol.cptb00001.cod_sp_sec^ D^146^60^60^6^2^2 X^146^D^60^6^2^ S^147^141^V^fecha_orig^DATE^^ D^147^61^61^6^2^2 X^147^D^61^6^2^ S^148^141^V^detalle^VARCHAR(60)^decomarmol.cptb00001.detalle^ D^148^62^62^6^2^2 X^148^D^62^6^2^ S^149^141^V^monto^DECIMAL(12,2)^^ D^149^63^63^6^2^2 X^149^D^63^6^2^ S^150^0^V^arr_recibo^DYNAMIC ARRAY OF RECORD^^global D^150^66^70^10^2^2 X^150^D^66^10^2^ S^151^150^V^aplica_a^VARCHAR(15)^^ D^151^67^67^8^2^2 X^151^D^67^8^2^ S^152^150^V^valor_pen^DECIMAL(12,2)^^ D^152^68^68^8^2^2 X^152^D^68^8^2^ S^153^150^V^valor_pag^DECIMAL(12,2)^^ D^153^69^69^8^2^2 X^153^D^69^8^2^ S^154^0^V^pagar^ARRAY[200] OF RECORD^^global D^154^72^75^10^2^2 X^154^D^72^10^2^ S^155^154^V^aplica_a^VARCHAR(10)^decomarmol.cptb00001.aplica_a^ D^155^73^73^6^2^2 X^155^D^73^6^2^ S^156^154^V^valor^DECIMAL(12,2)^decomarmol.cptb00001.valor^ D^156^74^74^6^2^2 X^156^D^74^6^2^ S^157^0^V^aplica_wd^ARRAY[100] OF RECORD^^global D^157^77^80^10^2^2 X^157^D^77^10^2^ S^158^157^V^aplica_a^VARCHAR(11)^^ D^158^78^78^8^2^2 X^158^D^78^8^2^ S^159^157^V^pendiente^DECIMAL(12,2)^^ D^159^79^79^8^2^2 X^159^D^79^8^2^ S^160^0^V^arr_suplid^ARRAY[200] OF RECORD^^global D^160^82^86^10^2^2 X^160^D^82^10^2^ S^161^160^V^cod_sp^SMALLINT^decomarmol.cotb00001.cod_sp^ D^161^83^83^10^2^2 X^161^D^83^10^2^ S^162^160^V^cod_sp_sec^SMALLINT^decomarmol.cotb00001.cod_sp_sec^ D^162^84^84^10^2^2 X^162^D^84^10^2^ S^163^160^V^nom_sp^VARCHAR(41)^decomarmol.cotb00001.nom_sp^ D^163^85^85^10^2^2 X^163^D^85^10^2^ S^164^0^V^relacion^RECORD^^global D^164^88^88^10^2^2 X^164^D^88^10^2^ S^165^164^V^cod_sp^SMALLINT^decomarmol.cptb00002.cod_sp^ D^165^0^0^0^0^0 X^165^D^88^10^2^ S^166^164^V^cod_sp_sec^SMALLINT^decomarmol.cptb00002.cod_sp_sec^ D^166^0^0^0^0^0 X^166^D^88^10^2^ S^167^164^V^cuenta_no^CHAR(8)^decomarmol.cptb00002.cuenta_no^ D^167^0^0^0^0^0 X^167^D^88^10^2^ S^168^164^V^num_doc^CHAR(10)^decomarmol.cptb00002.num_doc^ D^168^0^0^0^0^0 X^168^D^88^10^2^ S^169^164^V^fecha^DATE^decomarmol.cptb00002.fecha^ D^169^0^0^0^0^0 X^169^D^88^10^2^ S^170^164^V^valor^DECIMAL(12,2)^decomarmol.cptb00002.valor^ D^170^0^0^0^0^0 X^170^D^88^10^2^ S^171^164^V^status_t^CHAR(1)^decomarmol.cptb00002.status_t^ D^171^0^0^0^0^0 X^171^D^88^10^2^ S^172^164^V^us_crea^CHAR(9)^decomarmol.cptb00002.us_crea^ D^172^0^0^0^0^0 X^172^D^88^10^2^ S^173^164^V^fech_crea^DATE^decomarmol.cptb00002.fech_crea^ D^173^0^0^0^0^0 X^173^D^88^10^2^ S^174^164^V^us_mod^CHAR(9)^decomarmol.cptb00002.us_mod^ D^174^0^0^0^0^0 X^174^D^88^10^2^ S^175^164^V^fech_mod^DATE^decomarmol.cptb00002.fech_mod^ D^175^0^0^0^0^0 X^175^D^88^10^2^ S^176^0^V^rec_pago^RECORD^^global D^176^89^89^10^2^2 X^176^D^89^10^2^ S^177^176^V^tipo_doc^VARCHAR(2)^decomarmol.cptb00001.tipo_doc^ D^177^0^0^0^0^0 X^177^D^89^10^2^ S^178^176^V^num_doc^VARCHAR(11)^decomarmol.cptb00001.num_doc^ D^178^0^0^0^0^0 X^178^D^89^10^2^ S^179^176^V^cod_sp^SMALLINT^decomarmol.cptb00001.cod_sp^ D^179^0^0^0^0^0 X^179^D^89^10^2^ S^180^176^V^cod_sp_sec^SMALLINT^decomarmol.cptb00001.cod_sp_sec^ D^180^0^0^0^0^0 X^180^D^89^10^2^ S^181^176^V^fecha_orig^DATE^decomarmol.cptb00001.fecha_orig^ D^181^0^0^0^0^0 X^181^D^89^10^2^ S^182^176^V^fecha_proc^DATE^decomarmol.cptb00001.fecha_proc^ D^182^0^0^0^0^0 X^182^D^89^10^2^ S^183^176^V^orden_no^INTEGER^decomarmol.cptb00001.orden_no^ D^183^0^0^0^0^0 X^183^D^89^10^2^ S^184^176^V^tipo^VARCHAR(2)^decomarmol.cptb00001.tipo^ D^184^0^0^0^0^0 X^184^D^89^10^2^ S^185^176^V^aplica_a^VARCHAR(10)^decomarmol.cptb00001.aplica_a^ D^185^0^0^0^0^0 X^185^D^89^10^2^ S^186^176^V^cta_ctble^VARCHAR(10)^decomarmol.cptb00001.cta_ctble^ D^186^0^0^0^0^0 X^186^D^89^10^2^ S^187^176^V^valor^DECIMAL(12,2)^decomarmol.cptb00001.valor^ D^187^0^0^0^0^0 X^187^D^89^10^2^ S^188^176^V^detalle^VARCHAR(60)^decomarmol.cptb00001.detalle^ D^188^0^0^0^0^0 X^188^D^89^10^2^ S^189^176^V^status_t^VARCHAR(1)^decomarmol.cptb00001.status_t^ D^189^0^0^0^0^0 X^189^D^89^10^2^ S^190^176^V^us_crea^CHAR(50)^decomarmol.cptb00001.us_crea^ D^190^0^0^0^0^0 X^190^D^89^10^2^ S^191^176^V^fech_crea^DATETIME YEAR TO FRACTION^decomarmol.cptb00001.fech_crea^ D^191^0^0^0^0^0 X^191^D^89^10^2^ S^192^176^V^us_mod^CHAR(50)^decomarmol.cptb00001.us_mod^ D^192^0^0^0^0^0 X^192^D^89^10^2^ S^193^176^V^fech_mod^DATETIME YEAR TO FRACTION^decomarmol.cptb00001.fech_mod^ D^193^0^0^0^0^0 X^193^D^89^10^2^ S^194^176^V^codigo_isr^SMALLINT^decomarmol.cptb00001.codigo_isr^ D^194^0^0^0^0^0 X^194^D^89^10^2^ S^195^0^V^suplid_bas^RECORD^^global D^195^90^90^10^2^2 X^195^D^90^10^2^ S^196^195^V^cod_sp^SMALLINT^decomarmol.cotb00001.cod_sp^ D^196^0^0^0^0^0 X^196^D^90^10^2^ S^197^195^V^cod_sp_sec^SMALLINT^decomarmol.cotb00001.cod_sp_sec^ D^197^0^0^0^0^0 X^197^D^90^10^2^ S^198^195^V^nom_sp^VARCHAR(41)^decomarmol.cotb00001.nom_sp^ D^198^0^0^0^0^0 X^198^D^90^10^2^ S^199^195^V^dir_sp^VARCHAR(60)^decomarmol.cotb00001.dir_sp^ D^199^0^0^0^0^0 X^199^D^90^10^2^ S^200^195^V^ciu_sp^VARCHAR(30)^decomarmol.cotb00001.ciu_sp^ D^200^0^0^0^0^0 X^200^D^90^10^2^ S^201^195^V^cod_pais^VARCHAR(3)^decomarmol.cotb00001.cod_pais^ D^201^0^0^0^0^0 X^201^D^90^10^2^ S^202^195^V^tel_sp^VARCHAR(25)^decomarmol.cotb00001.tel_sp^ D^202^0^0^0^0^0 X^202^D^90^10^2^ S^203^195^V^area_sp^VARCHAR(10)^decomarmol.cotb00001.area_sp^ D^203^0^0^0^0^0 X^203^D^90^10^2^ S^204^195^V^fax_sp^VARCHAR(25)^decomarmol.cotb00001.fax_sp^ D^204^0^0^0^0^0 X^204^D^90^10^2^ S^205^195^V^cont_sp^VARCHAR(30)^decomarmol.cotb00001.cont_sp^ D^205^0^0^0^0^0 X^205^D^90^10^2^ S^206^195^V^term_sp^SMALLINT^decomarmol.cotb00001.term_sp^ D^206^0^0^0^0^0 X^206^D^90^10^2^ S^207^195^V^status_t^VARCHAR(1)^decomarmol.cotb00001.status_t^ D^207^0^0^0^0^0 X^207^D^90^10^2^ S^208^195^V^us_crea^VARCHAR(50)^decomarmol.cotb00001.us_crea^ D^208^0^0^0^0^0 X^208^D^90^10^2^ S^209^195^V^fech_crea^DATETIME YEAR TO FRACTION^decomarmol.cotb00001.fech_crea^ D^209^0^0^0^0^0 X^209^D^90^10^2^ S^210^195^V^us_mod^VARCHAR(50)^decomarmol.cotb00001.us_mod^ D^210^0^0^0^0^0 X^210^D^90^10^2^ S^211^195^V^fech_mod^DATETIME YEAR TO FRACTION^decomarmol.cotb00001.fech_mod^ D^211^0^0^0^0^0 X^211^D^90^10^2^ S^212^195^V^tipo_doc^VARCHAR(8)^decomarmol.cotb00001.tipo_doc^ D^212^0^0^0^0^0 X^212^D^90^10^2^ S^213^195^V^rnc^VARCHAR(15)^decomarmol.cotb00001.rnc^ D^213^0^0^0^0^0 X^213^D^90^10^2^ S^214^195^V^cuenta_no^VARCHAR(8)^decomarmol.cotb00001.cuenta_no^ D^214^0^0^0^0^0 X^214^D^90^10^2^ S^215^0^V^suplid_dir^RECORD^^global D^215^91^91^10^2^2 X^215^D^91^10^2^ S^216^215^V^cod_sp^SMALLINT^decomarmol.cotb00001.cod_sp^ D^216^0^0^0^0^0 S^217^215^V^cod_sp_sec^SMALLINT^decomarmol.cotb00001.cod_sp_sec^ D^217^0^0^0^0^0 S^218^215^V^nom_sp^VARCHAR(41)^decomarmol.cotb00001.nom_sp^ D^218^0^0^0^0^0 S^219^215^V^dir_sp^VARCHAR(60)^decomarmol.cotb00001.dir_sp^ D^219^0^0^0^0^0 S^220^215^V^ciu_sp^VARCHAR(30)^decomarmol.cotb00001.ciu_sp^ D^220^0^0^0^0^0 S^221^215^V^cod_pais^VARCHAR(3)^decomarmol.cotb00001.cod_pais^ D^221^0^0^0^0^0 S^222^215^V^tel_sp^VARCHAR(25)^decomarmol.cotb00001.tel_sp^ D^222^0^0^0^0^0 S^223^215^V^area_sp^VARCHAR(10)^decomarmol.cotb00001.area_sp^ D^223^0^0^0^0^0 S^224^215^V^fax_sp^VARCHAR(25)^decomarmol.cotb00001.fax_sp^ D^224^0^0^0^0^0 S^225^215^V^cont_sp^VARCHAR(30)^decomarmol.cotb00001.cont_sp^ D^225^0^0^0^0^0 S^226^215^V^term_sp^SMALLINT^decomarmol.cotb00001.term_sp^ D^226^0^0^0^0^0 S^227^215^V^status_t^VARCHAR(1)^decomarmol.cotb00001.status_t^ D^227^0^0^0^0^0 S^228^215^V^us_crea^VARCHAR(50)^decomarmol.cotb00001.us_crea^ D^228^0^0^0^0^0 S^229^215^V^fech_crea^DATETIME YEAR TO FRACTION^decomarmol.cotb00001.fech_crea^ D^229^0^0^0^0^0 S^230^215^V^us_mod^VARCHAR(50)^decomarmol.cotb00001.us_mod^ D^230^0^0^0^0^0 S^231^215^V^fech_mod^DATETIME YEAR TO FRACTION^decomarmol.cotb00001.fech_mod^ D^231^0^0^0^0^0 S^232^215^V^tipo_doc^VARCHAR(8)^decomarmol.cotb00001.tipo_doc^ D^232^0^0^0^0^0 S^233^215^V^rnc^VARCHAR(15)^decomarmol.cotb00001.rnc^ D^233^0^0^0^0^0 S^234^215^V^cuenta_no^VARCHAR(8)^decomarmol.cotb00001.cuenta_no^ D^234^0^0^0^0^0 S^235^0^V^p_companias^RECORD^^global D^235^92^92^10^2^2 X^235^r^451^33^0^ X^235^r^40^18^0^ X^235^D^92^10^2^ S^236^235^V^cod_comp^CHAR(5)^decomarmol.companias.cod_comp^ D^236^0^0^0^0^0 X^236^D^92^10^2^ S^237^235^V^nombre^CHAR(40)^decomarmol.companias.nombre^ D^237^0^0^0^0^0 X^237^D^92^10^2^ S^238^235^V^rnc^CHAR(30)^decomarmol.companias.rnc^ D^238^0^0^0^0^0 X^238^D^92^10^2^ S^239^235^V^direccion^CHAR(40)^decomarmol.companias.direccion^ D^239^0^0^0^0^0 X^239^D^92^10^2^ S^240^235^V^telefono^CHAR(15)^decomarmol.companias.telefono^ D^240^0^0^0^0^0 X^240^D^92^10^2^ S^241^235^V^fax^CHAR(15)^decomarmol.companias.fax^ D^241^0^0^0^0^0 X^241^D^92^10^2^ S^242^235^V^administrador^CHAR(40)^decomarmol.companias.administrador^ D^242^0^0^0^0^0 X^242^D^92^10^2^ S^243^235^V^email^CHAR(100)^decomarmol.companias.email^ D^243^0^0^0^0^0 X^243^D^92^10^2^ S^244^235^V^paginaweb^CHAR(100)^decomarmol.companias.paginaweb^ D^244^0^0^0^0^0 X^244^D^92^10^2^ S^245^235^V^direccion1^CHAR(100)^decomarmol.companias.direccion1^ D^245^0^0^0^0^0 X^245^D^92^10^2^ S^246^235^V^telefono1^CHAR(15)^decomarmol.companias.telefono1^ D^246^0^0^0^0^0 X^246^D^92^10^2^ S^247^235^V^fax1^CHAR(15)^decomarmol.companias.fax1^ D^247^0^0^0^0^0 X^247^D^92^10^2^ S^248^235^V^status_t^CHAR(1)^decomarmol.companias.status_t^ D^248^0^0^0^0^0 X^248^D^92^10^2^ S^249^235^V^us_crea^CHAR(9)^decomarmol.companias.us_crea^ D^249^0^0^0^0^0 X^249^D^92^10^2^ S^250^235^V^fech_crea^DATE^decomarmol.companias.fech_crea^ D^250^0^0^0^0^0 X^250^D^92^10^2^ S^251^235^V^us_mod^CHAR(9)^decomarmol.companias.us_mod^ D^251^0^0^0^0^0 X^251^D^92^10^2^ S^252^235^V^fech_mod^DATE^decomarmol.companias.fech_mod^ D^252^0^0^0^0^0 X^252^D^92^10^2^ S^253^235^V^codnomina^CHAR(30)^decomarmol.companias.codnomina^ D^253^0^0^0^0^0 X^253^D^92^10^2^ S^254^235^V^cuenta_no_inv^CHAR(10)^decomarmol.companias.cuenta_no_inv^ D^254^0^0^0^0^0 X^254^D^92^10^2^ S^255^235^V^dias_vence_reservas^SMALLINT^decomarmol.companias.dias_vence_reservas^ D^255^0^0^0^0^0 X^255^D^92^10^2^ S^256^0^V^bandera^SMALLINT^^global D^256^94^94^8^2^2 X^256^D^94^8^2^ S^257^0^V^otrab^SMALLINT^^global D^257^95^95^8^2^2 X^257^D^95^8^2^ S^258^0^V^p_fechas^DATE^^global D^258^96^96^8^2^2 X^258^D^96^8^2^ S^259^0^V^comp_fech^DATE^^global D^259^97^97^8^2^2 X^259^D^97^8^2^ S^260^0^V^comp_fech1^DATE^^global D^260^97^97^18^2^2 X^260^D^97^18^2^ S^261^0^V^mes_control^CHAR(2)^^global D^261^98^98^8^2^2 X^261^D^98^8^2^ S^262^0^V^mes_calc^SMALLINT^^global D^262^99^99^8^2^2 X^262^D^99^8^2^ S^263^0^V^dia^SMALLINT^^global D^263^99^99^17^2^2 X^263^D^99^17^2^ S^264^0^V^fecha_c^DATE^^global D^264^100^100^8^2^2 X^264^D^100^8^2^ S^265^0^V^c_ano^CHAR(4)^^global D^265^101^101^8^2^2 X^265^D^101^8^2^ S^266^0^V^a_ano^CHAR(4)^^global D^266^101^101^14^2^2 X^266^D^101^14^2^ S^267^0^V^cuentas1^ARRAY[300] OF RECORD^^global D^267^103^107^8^2^2 X^267^D^103^8^2^ S^268^267^V^cuenta_no^VARCHAR(8)^decomarmol.cgtb00001.cuenta_no^ D^268^104^104^4^2^2 X^268^D^104^4^2^ S^269^267^V^descripcion^VARCHAR(50)^decomarmol.cgtb00001.descripcion^ D^269^105^105^4^2^2 X^269^D^105^4^2^ S^270^267^V^nivel^SMALLINT^decomarmol.cgtb00001.nivel^ D^270^106^106^4^2^2 X^270^D^106^4^2^ S^271^0^F^fgl_winmessage^^^extern X^271^c^143^11^0^ S^272^0^F^fgl_report_commitCurrentSettings^^^extern X^272^c^128^27^0^ S^273^0^F^fgl_report_selectPreview^^^extern X^273^c^127^18^0^ S^274^0^F^fgl_report_selectDevice^^^extern X^274^c^126^18^0^ S^275^0^F^seleccionarsalida^^^extern X^275^c^125^16^0^ S^276^0^F^fgl_report_loadCurrentSettings^^^extern X^276^c^122^5^0^ S^277^0^F^msg^^^extern X^277^c^115^19^0^ X^277^c^86^23^0^ X^277^c^72^23^0^ S^278^0^F^msgrp000^^^extern X^278^c^61^10^0^ T^9^31^d^0^0^DEFINE T^14^22^d^0^0^RECORD T^24^31^d^0^0^RECORD T^33^42^f^0^0^MAIN T^44^161^f^0^0^FUNCTION T^45^45^d^0^0^DEFINE T^64^83^i^0^0^INPUT T^66^67^i^0^0^ T^69^74^i^0^0^ T^70^74^c^0^0^IF T^71^73^c^0^0^THEN T^84^89^c^0^0^IF T^85^88^c^0^0^THEN T^111^139^l^0^0^FOREACH T^113^118^c^0^0^IF T^114^117^c^0^0^THEN T^117^117^g^0^0^EXIT FOREACH T^119^133^c^0^0^IF T^121^131^c^0^0^THEN T^122^130^c^0^0^IF T^124^128^c^0^0^THEN T^140^144^c^0^0^IF T^141^141^c^0^0^THEN T^142^143^c^0^0^ELSE T^402^585^f^0^0^REPORT T^403^428^d^0^0^DEFINE T^403^411^d^0^0^RECORD r^2^TOP MARGIN^0 r^2^LEFT MARGIN^0 r^2^BOTTOM MARGIN^2 r^2^ORDER EXTERNAL^0 o^2^10^1 T^438^439^a^0^0^FIRST PAGE HEADER T^441^448^a^0^0^BEFORE GROUP OF 10 T^449^514^a^0^0^ON EVERY ROW x^451^0^ p^v^45 p^v^24 p^v^237 T^453^479^c^0^0^IF T^454^472^c^0^0^THEN T^464^466^c^0^0^IF T^465^465^c^0^0^THEN T^468^470^c^0^0^IF T^469^469^c^0^0^THEN T^473^478^c^0^0^ELSE T^482^484^c^0^0^IF T^483^483^c^0^0^THEN T^486^488^c^0^0^IF T^487^487^c^0^0^THEN T^491^494^c^0^0^IF T^492^492^c^0^0^THEN T^496^499^c^0^0^IF T^497^497^c^0^0^THEN T^501^504^c^0^0^IF T^502^502^c^0^0^THEN T^506^509^c^0^0^IF T^507^507^c^0^0^THEN T^511^514^c^0^0^IF T^512^512^c^0^0^THEN T^516^561^a^0^0^AFTER GROUP OF 10 T^517^519^c^0^0^IF T^518^518^c^0^0^THEN T^520^522^c^0^0^IF T^521^521^c^0^0^THEN T^524^526^c^0^0^IF T^525^525^c^0^0^THEN T^528^530^c^0^0^IF T^529^529^c^0^0^THEN T^532^534^c^0^0^IF T^533^533^c^0^0^THEN T^536^538^c^0^0^IF T^537^537^c^0^0^THEN T^544^551^c^0^0^IF T^545^549^c^0^0^THEN x^553^0^ p^r^3 p^v^26 p^v^27 p^v^28 p^v^29 p^v^31 p^v^30 T^563^581^a^0^0^ON LAST ROW x^567^0^ p^v^33 p^v^34 p^v^35 p^v^36 p^v^32 p^v^37