S^1^0^M^ccprmt0010^MODULE^^ S^2^1^R^CCRP10^^^public F^0^C:\Users\jsoto\Documents\GENERO\BDL240\MARMOTECH\PROYECTO\ccdir\ccprmt0010.4gl D^2^390^500^8^0^0 X^2^D^390^8^0^ X^2^c^387^16^0^finish X^2^c^385^20^0^output X^2^c^379^18^0^start S^3^2^P^X^RECORD^^ D^3^391^430^8^0^0 X^3^r^499^18^0^ X^3^r^498^63^0^ X^3^r^498^50^0^ X^3^r^498^41^0^ X^3^r^498^32^0^ X^3^r^498^23^0^ X^3^r^498^12^0^ X^3^r^494^46^0^ X^3^r^494^20^0^ X^3^r^493^72^0^ X^3^r^493^44^0^ X^3^r^493^20^0^ X^3^r^491^8^0^ X^3^r^489^38^0^ X^3^r^489^13^0^ X^3^r^488^68^0^ X^3^r^488^54^0^ X^3^r^488^44^0^ X^3^r^488^33^0^ X^3^r^488^21^0^ X^3^r^488^13^0^ X^3^r^486^50^0^ X^3^r^486^37^0^ X^3^l^486^12^0^ X^3^r^484^52^0^ X^3^r^484^37^0^ X^3^l^484^12^0^ X^3^l^481^15^0^ X^3^r^480^11^0^ X^3^l^476^15^0^ X^3^r^475^11^0^ X^3^l^472^15^0^ X^3^r^471^11^0^ X^3^r^468^54^0^ X^3^r^468^27^0^ X^3^r^467^28^0^ X^3^r^466^47^0^ X^3^r^466^25^0^ X^3^l^464^36^0^ X^3^r^461^54^0^ X^3^r^461^27^0^ X^3^r^460^28^0^ X^3^r^459^47^0^ X^3^r^459^25^0^ X^3^l^457^38^0^ X^3^l^456^12^0^ X^3^r^454^48^0^ X^3^r^454^21^0^ X^3^r^453^22^0^ X^3^r^452^49^0^ X^3^r^452^26^0^ X^3^l^450^38^0^ X^3^l^449^12^0^ X^3^l^447^20^0^ X^3^r^445^7^0^ X^3^r^444^89^0^ X^3^r^444^76^0^ X^3^r^444^64^0^ X^3^r^444^56^0^ X^3^r^444^35^0^ X^3^r^444^16^0^ X^3^r^444^7^0^ X^3^r^443^63^0^ X^3^r^443^55^0^ X^3^r^443^41^0^ X^3^r^443^23^0^ X^3^r^443^14^0^ X^3^l^441^20^0^ X^3^l^435^13^0^ X^3^l^390^15^0^ X^3^D^391^8^0^ S^4^3^P^numreq^INTEGER^^ D^4^392^392^7^0^0 X^4^r^452^28^0^ X^4^r^443^16^0^ X^4^l^441^22^0^ X^4^l^435^15^0^ X^4^D^392^7^0^ S^5^3^P^numoc^INTEGER^^ D^5^393^393^7^0^0 X^5^r^466^27^0^ X^5^r^459^27^0^ X^5^r^444^58^0^ X^5^D^393^7^0^ S^6^3^P^nombre^VARCHAR(80)^^ D^6^394^394^7^0^0 X^6^r^444^9^0^ X^6^D^394^7^0^ S^7^3^P^vendedor^VARCHAR(80)^^ D^7^395^395^7^0^0 X^7^r^444^37^0^ X^7^D^395^7^0^ S^8^3^P^fecha^VARCHAR(10)^^ D^8^396^396^7^0^0 X^8^r^443^57^0^ X^8^D^396^7^0^ S^9^3^P^estatus_req^VARCHAR(50)^^ D^9^397^397^7^0^0 X^9^r^443^43^0^ X^9^D^397^7^0^ S^10^3^P^direccion^VARCHAR(100)^^ D^10^398^398^7^0^0 X^10^r^444^66^0^ X^10^D^398^7^0^ S^11^3^P^telefono_r^VARCHAR(20)^^ D^11^399^399^7^0^0 X^11^r^444^78^0^ X^11^D^399^7^0^ S^12^3^P^telefono_o^VARCHAR(20)^^ D^12^400^400^7^0^0 X^12^r^444^91^0^ X^12^D^400^7^0^ S^13^3^P^celular^VARCHAR(20)^^ D^13^401^401^7^0^0 X^13^r^445^9^0^ X^13^D^401^7^0^ S^14^3^P^usuario_autoriza^VARCHAR(50)^^ D^14^402^402^7^0^0 X^14^r^444^18^0^ X^14^D^402^7^0^ S^15^3^P^fecha_autorizacion^CHAR(16)^^ D^15^403^403^7^0^0 X^15^r^443^65^0^ X^15^D^403^7^0^ S^16^3^P^estado_despacho^VARCHAR(50)^^ D^16^404^404^7^0^0 X^16^r^443^25^0^ X^16^D^404^7^0^ S^17^3^P^cod_n^SMALLINT^^ D^17^405^405^7^0^0 X^17^r^488^15^0^ X^17^r^466^49^0^ X^17^r^459^49^0^ X^17^r^452^51^0^ X^17^D^405^7^0^ S^18^3^P^cod_grupo^SMALLINT^^ D^18^406^406^7^0^0 X^18^r^488^23^0^ X^18^r^467^30^0^ X^18^r^460^30^0^ X^18^r^453^24^0^ X^18^D^406^7^0^ S^19^3^P^cod_tipo^SMALLINT^^ D^19^407^407^7^0^0 X^19^r^488^35^0^ X^19^r^468^29^0^ X^19^r^461^29^0^ X^19^r^454^23^0^ X^19^D^407^7^0^ S^20^3^P^cod_sec^SMALLINT^^ D^20^408^408^7^0^0 X^20^r^488^46^0^ X^20^r^468^56^0^ X^20^r^461^56^0^ X^20^r^454^50^0^ X^20^D^408^7^0^ S^21^3^P^descripcion^VARCHAR(80)^^ D^21^409^409^7^0^0 X^21^r^488^56^0^ X^21^D^409^7^0^ S^22^3^P^cantidad^DECIMAL(12,4)^^ D^22^410^410^7^0^0 X^22^r^488^70^0^ X^22^r^486^39^0^ X^22^D^410^7^0^ S^23^3^P^etiqueta^CHAR(20)^^ D^23^411^411^7^0^0 X^23^r^498^14^0^ X^23^D^411^7^0^ S^24^3^P^lado_1^DECIMAL(12,5)^^ D^24^412^412^7^0^0 X^24^r^498^25^0^ X^24^D^412^7^0^ S^25^3^P^lado_2^DECIMAL(12,5)^^ D^25^413^413^7^0^0 X^25^r^498^34^0^ X^25^D^413^7^0^ S^26^3^P^lado_3^DECIMAL(12,5)^^ D^26^414^414^7^0^0 X^26^r^498^43^0^ X^26^D^414^7^0^ S^27^3^P^cantidad_r^DECIMAL(12,4)^^ D^27^415^415^7^0^0 X^27^r^498^52^0^ X^27^D^415^7^0^ S^28^3^P^medida_r^DECIMAL(12,4)^^ D^28^416^416^7^0^0 X^28^r^498^65^0^ X^28^D^416^7^0^ S^29^3^P^cantidad1^DECIMAL(12,5)^^ D^29^417^417^7^0^0 X^29^r^499^20^0^ X^29^D^417^7^0^ S^30^3^P^codn^SMALLINT^^ D^30^418^418^7^0^0 X^30^r^493^22^0^ X^30^r^491^10^0^ X^30^D^418^7^0^ S^31^3^P^codgrupo^SMALLINT^^ D^31^419^419^7^0^0 X^31^r^493^46^0^ X^31^D^419^7^0^ S^32^3^P^codtipo^SMALLINT^^ D^32^420^420^7^0^0 X^32^r^493^74^0^ X^32^D^420^7^0^ S^33^3^P^codsec^SMALLINT^^ D^33^421^421^7^0^0 X^33^r^494^22^0^ X^33^D^421^7^0^ S^34^3^P^descripcion1^VARCHAR(60)^^ D^34^422^422^7^0^0 X^34^r^494^48^0^ X^34^D^422^7^0^ S^35^3^P^kit^INTEGER^^ D^35^423^423^7^0^0 X^35^D^423^7^0^ S^36^3^P^cantidad_despachada_req^DECIMAL(12,4)^^ D^36^424^424^7^0^0 X^36^r^486^52^0^ X^36^l^472^17^0^ X^36^r^471^13^0^ X^36^l^450^40^0^ X^36^l^449^14^0^ X^36^D^424^7^0^ S^37^3^P^cantidad_despachada_ord^DECIMAL(12,4)^^ D^37^425^425^7^0^0 X^37^r^484^54^0^ X^37^l^476^17^0^ X^37^r^475^13^0^ X^37^l^457^40^0^ X^37^l^456^14^0^ X^37^D^425^7^0^ S^38^3^P^cantidad_pendiente_ord^DECIMAL(12,4)^^ D^38^426^426^7^0^0 X^38^r^489^40^0^ X^38^l^484^14^0^ X^38^D^426^7^0^ S^39^3^P^cantidad_pendiente_req^DECIMAL(12,4)^^ D^39^427^427^7^0^0 X^39^r^489^15^0^ X^39^l^486^14^0^ X^39^D^427^7^0^ S^40^3^P^cantidad_ord^DECIMAL(12,4)^^ D^40^428^428^7^0^0 X^40^r^484^39^0^ X^40^l^481^17^0^ X^40^r^480^13^0^ X^40^l^464^38^0^ X^40^D^428^7^0^ S^41^3^P^codigo^CHAR(25)^^ D^41^429^429^7^0^0 X^41^l^447^22^0^ X^41^D^429^7^0^ S^42^2^V^fecha_imp^CHAR(16)^^ D^42^431^431^4^0^0 X^42^r^444^46^0^ X^42^l^440^10^0^ X^42^D^431^4^0^ S^43^2^V^semaforo^BOOLEAN^^ D^43^432^432^4^0^0 X^43^r^499^30^0^ X^43^l^496^12^0^ X^43^l^492^12^0^ X^43^D^432^4^0^ S^44^2^V^chkit^CHAR(100)^^ D^44^433^433^4^0^0 X^44^r^499^12^0^ X^44^l^493^12^0^ X^44^D^433^4^0^ S^45^2^V^reportDef^base.Report^^ D^45^0^0^0^0^0 S^46^1^F^fbuscaMaterial^^^public D^46^131^278^10^0^0 X^46^D^131^10^0^ X^46^c^103^12^0^ S^47^46^P^xreq^INTEGER^^ D^47^146^146^3^0^0 X^47^r^254^28^0^ X^47^r^196^25^0^ X^47^r^181^25^0^ X^47^r^159^27^0^ X^47^l^131^25^0^ X^47^D^146^3^0^ S^48^46^P^xnumoc^INTEGER^^ D^48^146^146^8^0^0 X^48^r^222^27^0^ X^48^r^209^23^0^ X^48^l^131^30^0^ X^48^D^146^8^0^ S^49^46^V^arr_material^DYNAMIC ARRAY OF RECORD^^ D^49^132^145^9^0^0 X^49^r^258^28^0^ X^49^r^257^29^0^ X^49^r^256^30^0^ X^49^r^255^26^0^ X^49^r^251^51^0^ X^49^r^250^48^0^ X^49^r^249^11^0^ X^49^r^243^48^0^ X^49^r^243^10^0^ X^49^r^235^17^0^ X^49^l^230^11^0^ X^49^l^229^11^0^ X^49^r^221^25^0^ X^49^r^220^27^0^ X^49^r^219^27^0^ X^49^r^218^23^0^ X^49^r^208^25^0^ X^49^r^207^27^0^ X^49^r^206^27^0^ X^49^r^205^23^0^ X^49^r^195^28^0^ X^49^r^194^25^0^ X^49^r^193^27^0^ X^49^r^192^27^0^ X^49^r^191^23^0^ X^49^r^180^25^0^ X^49^r^179^27^0^ X^49^r^178^27^0^ X^49^r^177^23^0^ X^49^r^174^25^0^ X^49^D^132^9^0^ S^50^49^V^fecha_compromiso^CHAR(10)^^ D^50^133^133^5^0^0 X^50^D^133^5^0^ S^51^49^V^fecha_transporte^DATE^^ D^51^134^134^5^0^0 X^51^r^251^69^0^ X^51^r^243^29^0^ X^51^D^134^5^0^ S^52^49^V^fecha_llegada^DATE^^ D^52^135^135^5^0^0 X^52^r^250^66^0^ X^52^r^249^29^0^ X^52^r^243^67^0^ X^52^D^135^5^0^ S^53^49^V^material^CHAR(50)^^ D^53^136^136^5^0^0 X^53^D^136^5^0^ S^54^49^V^cantidad^DECIMAL(12,4)^^ D^54^137^137^5^0^0 X^54^D^137^5^0^ S^55^49^V^pendiente^DECIMAL(12,4)^^ D^55^138^138^5^0^0 X^55^l^230^29^0^ X^55^D^138^5^0^ S^56^49^V^pendiente_ord^DECIMAL(12,4)^^ D^56^139^139^5^0^0 X^56^l^229^29^0^ X^56^D^139^5^0^ S^57^49^V^cod_n^SMALLINT^^ D^57^140^140^5^0^0 X^57^r^255^44^0^ X^57^r^218^41^0^ X^57^r^205^41^0^ X^57^r^191^41^0^ X^57^r^177^41^0^ X^57^D^140^5^0^ S^58^49^V^cod_grupo^SMALLINT^^ D^58^141^141^5^0^0 X^58^r^256^48^0^ X^58^r^219^45^0^ X^58^r^206^45^0^ X^58^r^192^45^0^ X^58^r^178^45^0^ X^58^D^141^5^0^ S^59^49^V^cod_tipo^SMALLINT^^ D^59^142^142^5^0^0 X^59^r^257^47^0^ X^59^r^220^45^0^ X^59^r^207^45^0^ X^59^r^193^45^0^ X^59^r^179^45^0^ X^59^D^142^5^0^ S^60^49^V^cod_sec^SMALLINT^^ D^60^143^143^5^0^0 X^60^r^258^46^0^ X^60^r^221^43^0^ X^60^r^208^43^0^ X^60^r^194^43^0^ X^60^r^180^43^0^ X^60^D^143^5^0^ S^61^49^V^num_oc^INTEGER^^ D^61^144^144^5^0^0 X^61^r^195^46^0^ X^61^D^144^5^0^ S^62^46^V^cantidad_req^DECIMAL(12,4)^^ D^62^147^147^3^0^0 X^62^r^230^40^0^ X^62^l^185^14^0^ X^62^r^184^10^0^ X^62^l^176^35^0^ X^62^l^175^11^0^ X^62^D^147^3^0^ S^63^46^V^cantidad_desp^DECIMAL(12,4)^^ D^63^147^147^16^0^0 X^63^r^230^55^0^ X^63^l^200^14^0^ X^63^r^199^10^0^ X^63^l^189^37^0^ X^63^l^188^11^0^ X^63^D^147^16^0^ S^64^46^V^cantidad_ord^DECIMAL(12,4)^^ D^64^147^147^30^0^0 X^64^r^229^45^0^ X^64^l^213^14^0^ X^64^r^212^10^0^ X^64^l^204^35^0^ X^64^l^203^11^0^ X^64^D^147^30^0^ S^65^46^V^cantidad_desp1^DECIMAL(12,4)^^ D^65^147^147^43^0^0 X^65^r^229^60^0^ X^65^l^227^14^0^ X^65^r^226^10^0^ X^65^l^217^37^0^ X^65^l^216^11^0^ X^65^D^147^43^0^ S^66^1^F^imprime_req^^^public D^66^279^389^10^0^0 X^66^D^279^10^0^ X^66^c^100^11^0^ S^67^66^P^xnumreq^INTEGER^^ D^67^280^280^9^0^0 X^67^r^355^22^0^ X^67^l^279^22^0^ X^67^D^280^9^0^ S^68^66^V^handler^om.SaxDocumentHandler^^ D^68^282^282^3^0^0 X^68^r^379^40^0^ X^68^l^376^14^0^ X^68^D^282^3^0^ S^69^66^V^r_filename^STRING^^ D^69^283^283^10^0^0 X^69^r^373^37^0^ X^69^l^370^7^0^ X^69^D^283^10^0^ S^70^66^V^r_output^STRING^^ D^70^284^284^11^0^0 X^70^r^374^39^0^ X^70^l^369^7^0^ X^70^D^284^11^0^ S^71^66^V^preview^INTEGER^^ D^71^285^285^11^0^0 X^71^r^375^40^0^ X^71^l^371^7^0^ X^71^D^285^11^0^ S^72^66^V^mrequisicion^RECORD^^ D^72^287^326^11^0^0 X^72^r^385^27^0^ X^72^r^384^29^0^ X^72^r^383^29^0^ X^72^r^382^29^0^ X^72^r^381^63^0^ X^72^r^381^28^0^ X^72^l^381^7^0^ X^72^r^380^25^0^ X^72^D^287^11^0^ S^73^72^V^numreq^INTEGER^^ D^73^288^288^7^0^0 X^73^D^288^7^0^ S^74^72^V^numoc^INTEGER^^ D^74^289^289^7^0^0 X^74^D^289^7^0^ S^75^72^V^nombre^VARCHAR(80)^^ D^75^290^290^7^0^0 X^75^D^290^7^0^ S^76^72^V^vendedor^VARCHAR(80)^^ D^76^291^291^7^0^0 X^76^D^291^7^0^ S^77^72^V^fecha^VARCHAR(10)^^ D^77^292^292^7^0^0 X^77^D^292^7^0^ S^78^72^V^estatus_req^VARCHAR(50)^^ D^78^293^293^7^0^0 X^78^D^293^7^0^ S^79^72^V^direccion^VARCHAR(100)^^ D^79^294^294^7^0^0 X^79^D^294^7^0^ S^80^72^V^telefono_r^VARCHAR(20)^^ D^80^295^295^7^0^0 X^80^D^295^7^0^ S^81^72^V^telefono_o^VARCHAR(20)^^ D^81^296^296^7^0^0 X^81^D^296^7^0^ S^82^72^V^celular^VARCHAR(20)^^ D^82^297^297^7^0^0 X^82^D^297^7^0^ S^83^72^V^usuario_autoriza^VARCHAR(50)^^ D^83^298^298^7^0^0 X^83^D^298^7^0^ S^84^72^V^fecha_autorizacion^CHAR(16)^^ D^84^299^299^7^0^0 X^84^D^299^7^0^ S^85^72^V^estado_despacho^VARCHAR(50)^^ D^85^300^300^7^0^0 X^85^D^300^7^0^ S^86^72^V^cod_n^SMALLINT^^ D^86^301^301^7^0^0 X^86^r^381^76^0^ X^86^D^301^7^0^ S^87^72^V^cod_grupo^SMALLINT^^ D^87^302^302^7^0^0 X^87^r^382^42^0^ X^87^D^302^7^0^ S^88^72^V^cod_tipo^SMALLINT^^ D^88^303^303^7^0^0 X^88^r^383^42^0^ X^88^D^303^7^0^ S^89^72^V^cod_sec^SMALLINT^^ D^89^304^304^7^0^0 X^89^r^384^42^0^ X^89^D^304^7^0^ S^90^72^V^descripcion^VARCHAR(80)^^ D^90^305^305^7^0^0 X^90^D^305^7^0^ S^91^72^V^cantidad^DECIMAL(12,4)^^ D^91^306^306^7^0^0 X^91^D^306^7^0^ S^92^72^V^etiqueta^CHAR(20)^^ D^92^307^307^7^0^0 X^92^D^307^7^0^ S^93^72^V^lado_1^DECIMAL(12,5)^^ D^93^308^308^7^0^0 X^93^D^308^7^0^ S^94^72^V^lado_2^DECIMAL(12,5)^^ D^94^309^309^7^0^0 X^94^D^309^7^0^ S^95^72^V^lado_3^DECIMAL(12,5)^^ D^95^310^310^7^0^0 X^95^D^310^7^0^ S^96^72^V^cantidad_r^DECIMAL(12,4)^^ D^96^311^311^7^0^0 X^96^D^311^7^0^ S^97^72^V^medida_r^DECIMAL(12,4)^^ D^97^312^312^7^0^0 X^97^D^312^7^0^ S^98^72^V^cantidad1^DECIMAL(12,5)^^ D^98^313^313^7^0^0 X^98^D^313^7^0^ S^99^72^V^codn^SMALLINT^^ D^99^314^314^7^0^0 X^99^D^314^7^0^ S^100^72^V^codgrupo^SMALLINT^^ D^100^315^315^7^0^0 X^100^D^315^7^0^ S^101^72^V^codtipo^SMALLINT^^ D^101^316^316^7^0^0 X^101^D^316^7^0^ S^102^72^V^codsec^SMALLINT^^ D^102^317^317^7^0^0 X^102^D^317^7^0^ S^103^72^V^descripcion1^VARCHAR(60)^^ D^103^318^318^7^0^0 X^103^D^318^7^0^ S^104^72^V^kit^INTEGER^^ D^104^319^319^7^0^0 X^104^r^381^41^0^ X^104^D^319^7^0^ S^105^72^V^cantidad_despachada_req^DECIMAL(12,4)^^ D^105^320^320^7^0^0 X^105^D^320^7^0^ S^106^72^V^cantidad_despachada_ord^DECIMAL(12,4)^^ D^106^321^321^7^0^0 X^106^D^321^7^0^ S^107^72^V^cantidad_pendiente_ord^DECIMAL(12,4)^^ D^107^322^322^7^0^0 X^107^D^322^7^0^ S^108^72^V^cantidad_pendiente_req^DECIMAL(12,4)^^ D^108^323^323^7^0^0 X^108^D^323^7^0^ S^109^72^V^cantidad_ord^DECIMAL(12,4)^^ D^109^324^324^7^0^0 X^109^D^324^7^0^ S^110^72^V^codigo^CHAR(25)^^ D^110^325^325^7^0^0 X^110^l^381^20^0^ X^110^D^325^7^0^ S^111^1^F^refrescar^^^public D^111^501^540^10^0^0 X^111^D^501^10^0^ X^111^c^97^12^0^ S^112^1^F^ccprmt010^^^public D^112^22^130^10^0^0 X^112^D^22^10^0^ X^112^c^20^7^0^ S^113^112^V^actualice^BOOLEAN^^ D^113^24^24^9^0^0 X^113^D^24^9^0^ S^114^112^V^registros^INTEGER^^ D^114^25^25^9^0^0 X^114^D^25^9^0^ S^115^1^F^main^^^public D^115^11^21^1^0^0 X^115^D^11^1^0^ S^116^1^C^comando^base.Cursor^^private D^116^70^70^13^0^0 X^116^u^71^38^0^ X^116^D^70^13^0^ S^117^1^C^busca_requisi^base.Cursor^^private D^117^71^71^13^0^0 X^117^u^73^13^0^ X^117^D^71^13^0^ S^118^1^C^comando10^base.Cursor^^private D^118^170^170^12^0^0 X^118^u^171^30^0^ X^118^D^170^12^0^ S^119^1^C^buscaM^base.Cursor^^private D^119^171^171^12^0^0 X^119^u^174^13^0^ X^119^D^171^12^0^ S^120^1^C^busca_req^base.Cursor^^private D^120^327^327^12^0^0 X^120^u^380^10^0^ X^120^D^327^12^0^ S^121^1^C^comando1^base.Cursor^^private D^121^532^532^13^0^0 X^121^u^533^39^0^ X^121^D^532^13^0^ S^122^1^C^busca_requisi1^base.Cursor^^private D^122^533^533^13^0^0 X^122^u^536^13^0^ X^122^D^533^13^0^ S^123^0^V^status^INTEGER^^builtin F^1^C:\Program Files\FourJs\Genero Studio\fgl\lib/fgl.4gl D^123^14^14^1^1^1 X^123^r^260^18^0^ X^123^D^14^1^1^ S^124^0^V^int_flag^INTEGER^^builtin D^124^14^14^9^1^1 X^124^l^275^12^0^ X^124^r^274^8^0^ X^124^r^238^10^0^ X^124^l^115^14^0^ X^124^r^111^10^0^ X^124^D^14^9^1^ S^125^0^V^comisiones^RECORD^^global F^2^ccprgb000.4gl D^125^5^5^10^2^2 X^125^D^5^10^2^ S^126^125^V^sec_vend^SMALLINT^smarmotech.cctb00008.sec_vend^ D^126^0^0^0^0^0 X^126^D^5^10^2^ S^127^125^V^cod_n^SMALLINT^smarmotech.cctb00008.cod_n^ D^127^0^0^0^0^0 X^127^D^5^10^2^ S^128^125^V^cod_grupo^SMALLINT^smarmotech.cctb00008.cod_grupo^ D^128^0^0^0^0^0 X^128^D^5^10^2^ S^129^125^V^cod_tipo^SMALLINT^smarmotech.cctb00008.cod_tipo^ D^129^0^0^0^0^0 X^129^D^5^10^2^ S^130^125^V^cod_sec^SMALLINT^smarmotech.cctb00008.cod_sec^ D^130^0^0^0^0^0 X^130^D^5^10^2^ S^131^125^V^porc_ventas^DECIMAL(8,4)^smarmotech.cctb00008.porc_ventas^ D^131^0^0^0^0^0 X^131^D^5^10^2^ S^132^125^V^porc_cobros^DECIMAL(8,4)^smarmotech.cctb00008.porc_cobros^ D^132^0^0^0^0^0 X^132^D^5^10^2^ S^133^125^V^status_t^VARCHAR(1)^smarmotech.cctb00008.status_t^ D^133^0^0^0^0^0 X^133^D^5^10^2^ S^134^125^V^us_crea^VARCHAR(9)^smarmotech.cctb00008.us_crea^ D^134^0^0^0^0^0 X^134^D^5^10^2^ S^135^125^V^fech_crea^DATETIME YEAR TO FRACTION^smarmotech.cctb00008.fech_crea^ D^135^0^0^0^0^0 X^135^D^5^10^2^ S^136^125^V^us_mod^VARCHAR(9)^smarmotech.cctb00008.us_mod^ D^136^0^0^0^0^0 X^136^D^5^10^2^ S^137^125^V^fech_mod^DATETIME YEAR TO FRACTION^smarmotech.cctb00008.fech_mod^ D^137^0^0^0^0^0 X^137^D^5^10^2^ S^138^0^V^pventas^ui.ComboBox^^global D^138^6^6^10^2^2 X^138^D^6^10^2^ S^139^0^V^nombre_sucursal^CHAR(60)^^global D^139^7^7^10^2^2 X^139^D^7^10^2^ S^140^0^V^codigo_sucursal^SMALLINT^^global D^140^8^8^10^2^2 X^140^D^8^10^2^ S^141^0^V^vendedorEmail^CHAR(150)^^global D^141^9^9^10^2^2 X^141^D^9^10^2^ S^142^0^V^subject^CHAR(150)^^global D^142^9^9^24^2^2 X^142^D^9^24^2^ S^143^0^V^cuerpo_correo^VARCHAR(1000)^^global D^143^10^10^10^2^2 X^143^D^10^10^2^ S^144^0^V^copiacorreo^DYNAMIC ARRAY OF CHAR(80)^^global D^144^11^11^10^2^2 X^144^D^11^10^2^ S^145^0^V^copiaemail^VARCHAR(160)^^global D^145^12^12^10^2^2 X^145^D^12^10^2^ S^146^0^V^pperfil^SMALLINT^^global D^146^13^13^10^2^2 X^146^D^13^10^2^ S^147^0^V^acceso^CHAR(2)^^global D^147^14^14^10^2^2 X^147^D^14^10^2^ S^148^0^V^pflag^CHAR(1)^^global D^148^15^15^10^2^2 X^148^D^15^10^2^ S^149^0^V^p_fechas^DATE^^global D^149^17^17^10^2^2 X^149^D^17^10^2^ S^150^0^V^comp_fech^DATE^^global D^150^17^17^19^2^2 X^150^D^17^19^2^ S^151^0^V^comp_fech1^DATE^^global D^151^17^17^29^2^2 X^151^D^17^29^2^ S^152^0^V^fecha_c^DATE^^global D^152^17^17^40^2^2 X^152^D^17^40^2^ S^153^0^V^respuesta^CHAR(3)^^global D^153^18^18^10^2^2 X^153^D^18^10^2^ S^154^0^V^impresion^CHAR(1)^^global D^154^19^19^10^2^2 X^154^D^19^10^2^ S^155^0^V^verdad^CHAR(1)^^global D^155^19^19^20^2^2 X^155^D^19^20^2^ S^156^0^V^identifica^CHAR(1)^^global D^156^19^19^27^2^2 X^156^D^19^27^2^ S^157^0^V^existe^CHAR(1)^^global D^157^19^19^38^2^2 X^157^D^19^38^2^ S^158^0^V^status_reg^CHAR(1)^^global D^158^19^19^45^2^2 X^158^D^19^45^2^ S^159^0^V^mes_control^CHAR(2)^^global D^159^20^20^10^2^2 X^159^D^20^10^2^ S^160^0^V^opcion^CHAR(2)^^global D^160^20^20^22^2^2 X^160^D^20^22^2^ S^161^0^V^localidad^CHAR(80)^^global D^161^21^21^10^2^2 X^161^D^21^10^2^ S^162^0^V^direccion^CHAR(80)^^global D^162^21^21^20^2^2 X^162^D^21^20^2^ S^163^0^V^c_ano^CHAR(4)^^global D^163^22^22^10^2^2 X^163^D^22^10^2^ S^164^0^V^a_ano^CHAR(4)^^global D^164^22^22^16^2^2 X^164^D^22^16^2^ S^165^0^V^criterio^CHAR(1000)^^global D^165^23^23^10^2^2 X^165^r^519^55^0^ X^165^r^57^55^0^ X^165^l^31^20^0^ X^165^D^23^10^2^ S^166^0^V^selec^STRING^^global D^166^24^24^10^2^2 X^166^r^532^27^0^ X^166^l^502^5^0^ X^166^r^170^27^0^ X^166^l^152^6^0^ X^166^r^70^26^0^ X^166^l^40^9^0^ X^166^D^24^10^2^ S^167^0^V^procedimiento^STRING^^global D^167^25^25^10^2^2 X^167^D^25^10^2^ S^168^0^V^selec2^CHAR(500)^^global D^168^26^26^10^2^2 X^168^D^26^10^2^ S^169^0^V^selec3^STRING^^global D^169^27^27^10^2^2 X^169^D^27^10^2^ S^170^0^V^selec1^STRING^^global D^170^27^27^17^2^2 X^170^D^27^17^2^ S^171^0^V^selec4^STRING^^global D^171^27^27^25^2^2 X^171^D^27^25^2^ S^172^0^V^descrip1^CHAR(30)^^global D^172^28^28^10^2^2 X^172^D^28^10^2^ S^173^0^V^descrip2^CHAR(30)^^global D^173^29^29^10^2^2 X^173^D^29^10^2^ S^174^0^V^descrip3^CHAR(30)^^global D^174^30^30^10^2^2 X^174^D^30^10^2^ S^175^0^V^descrip4^CHAR(30)^^global D^175^31^31^10^2^2 X^175^D^31^10^2^ S^176^0^V^nombre_tipo^CHAR(60)^^global D^176^32^32^10^2^2 X^176^D^32^10^2^ S^177^0^V^nombre_emp^CHAR(60)^^global D^177^32^32^22^2^2 X^177^D^32^22^2^ S^178^0^V^nom_cli^CHAR(60)^^global D^178^32^32^33^2^2 X^178^D^32^33^2^ S^179^0^V^descrip5^CHAR(65)^^global D^179^33^33^10^2^2 X^179^D^33^10^2^ S^180^0^V^descrip6^CHAR(45)^^global D^180^34^34^10^2^2 X^180^D^34^10^2^ S^181^0^V^desc_p^DECIMAL(12,2)^^global D^181^35^35^10^2^2 X^181^D^35^10^2^ S^182^0^V^valor_fac^DECIMAL(12,2)^^global D^182^35^35^17^2^2 X^182^D^35^17^2^ S^183^0^V^pagada^DECIMAL(12,2)^^global D^183^35^35^27^2^2 X^183^D^35^27^2^ S^184^0^V^monto^DECIMAL(12,2)^^global D^184^35^35^34^2^2 X^184^D^35^34^2^ S^185^0^V^pendiente^DECIMAL(12,2)^^global D^185^35^35^40^2^2 X^185^D^35^40^2^ S^186^0^V^valor1^DECIMAL(12,2)^^global D^186^35^35^50^2^2 X^186^D^35^50^2^ S^187^0^V^k^SMALLINT^^global D^187^36^36^10^2^2 X^187^D^36^10^2^ S^188^0^V^tipo_papel^SMALLINT^^global D^188^36^36^12^2^2 X^188^D^36^12^2^ S^189^0^V^curr^SMALLINT^^global D^189^36^36^24^2^2 X^189^r^243^61^0^ X^189^r^243^23^0^ X^189^l^242^11^0^ X^189^r^106^65^0^ X^189^r^106^38^0^ X^189^l^105^9^0^ X^189^r^103^67^0^ X^189^r^103^40^0^ X^189^l^102^11^0^ X^189^r^100^36^0^ X^189^l^99^10^0^ X^189^D^36^24^2^ S^190^0^V^curr1^SMALLINT^^global D^190^36^36^30^2^2 X^190^D^36^30^2^ S^191^0^V^fila^SMALLINT^^global D^191^36^36^37^2^2 X^191^D^36^37^2^ S^192^0^V^scr_l^SMALLINT^^global D^192^36^36^42^2^2 X^192^D^36^42^2^ S^193^0^V^bandera^SMALLINT^^global D^193^36^36^48^2^2 X^193^D^36^48^2^ S^194^0^V^otrab^SMALLINT^^global D^194^36^36^56^2^2 X^194^D^36^56^2^ S^195^0^V^mes_calc^SMALLINT^^global D^195^36^36^62^2^2 X^195^D^36^62^2^ S^196^0^V^dia^SMALLINT^^global D^196^37^37^10^2^2 X^196^D^37^10^2^ S^197^0^V^cmd^CHAR(150)^^global D^197^38^38^10^2^2 X^197^D^38^10^2^ S^198^0^V^imprime^CHAR(150)^^global D^198^38^38^14^2^2 X^198^D^38^14^2^ S^199^0^V^copia^CHAR(150)^^global D^199^38^38^22^2^2 X^199^D^38^22^2^ S^200^0^V^archivo^CHAR(80)^^global D^200^38^38^38^2^2 X^200^D^38^38^2^ S^201^0^V^file^CHAR(80)^^global D^201^38^38^47^2^2 X^201^D^38^47^2^ S^202^0^V^impresor^SMALLINT^^global D^202^38^38^61^2^2 X^202^l^15^28^0^ X^202^D^38^61^2^ S^203^0^V^progreso^SMALLINT^^global D^203^38^38^70^2^2 X^203^D^38^70^2^ S^204^0^V^p_ano^SMALLINT^^global D^204^38^38^79^2^2 X^204^D^38^79^2^ S^205^0^V^p_mes^SMALLINT^^global D^205^38^38^85^2^2 X^205^D^38^85^2^ S^206^0^V^normal^CHAR(3)^^global D^206^39^39^10^2^2 X^206^D^39^10^2^ S^207^0^V^negrilla_on^CHAR(3)^^global D^207^39^39^17^2^2 X^207^D^39^17^2^ S^208^0^V^negrillas_of^CHAR(3)^^global D^208^39^39^29^2^2 X^208^D^39^29^2^ S^209^0^V^comp_on^CHAR(3)^^global D^209^39^39^42^2^2 X^209^D^39^42^2^ S^210^0^V^comp_off^CHAR(3)^^global D^210^39^39^50^2^2 X^210^D^39^50^2^ S^211^0^V^doce^CHAR(3)^^global D^211^39^39^59^2^2 X^211^D^39^59^2^ S^212^0^V^doble_on^CHAR(3)^^global D^212^39^39^64^2^2 X^212^D^39^64^2^ S^213^0^V^doble_off^CHAR(3)^^global D^213^39^39^73^2^2 X^213^D^39^73^2^ S^214^0^V^opt^CHAR(10)^^global D^214^40^40^18^2^2 X^214^D^40^18^2^ S^215^0^V^opt1^CHAR(10)^^global D^215^40^40^22^2^2 X^215^D^40^22^2^ S^216^0^V^cero^CHAR(10)^^global D^216^40^40^27^2^2 X^216^D^40^27^2^ S^217^0^V^usuarios^CHAR(80)^^global D^217^41^41^10^2^2 X^217^r^252^41^0^ X^217^r^106^89^0^ X^217^r^17^32^0^ X^217^l^13^28^0^ X^217^D^41^10^2^ S^218^0^V^clave^CHAR(80)^^global D^218^41^41^19^2^2 X^218^r^17^47^0^ X^218^l^14^28^0^ X^218^D^41^19^2^ S^219^0^V^tipo_venta^CHAR(30)^^global D^219^41^41^34^2^2 X^219^D^41^34^2^ S^220^0^V^chmensaje^STRING^^global D^220^42^42^10^2^2 X^220^r^263^46^0^ X^220^l^262^22^0^ X^220^D^42^10^2^ S^221^0^V^idx^INTEGER^^global D^221^43^43^10^2^2 X^221^r^537^17^0^ X^221^l^537^11^0^ X^221^r^536^46^0^ X^221^l^534^9^0^ X^221^r^258^41^0^ X^221^r^257^42^0^ X^221^r^256^43^0^ X^221^r^255^39^0^ X^221^r^251^64^0^ X^221^r^250^61^0^ X^221^r^249^24^0^ X^221^l^248^12^0^ X^221^r^234^20^0^ X^221^r^232^17^0^ X^221^l^232^11^0^ X^221^l^230^24^0^ X^221^l^229^24^0^ X^221^r^221^38^0^ X^221^r^220^40^0^ X^221^r^219^40^0^ X^221^r^218^36^0^ X^221^r^208^38^0^ X^221^r^207^40^0^ X^221^r^206^40^0^ X^221^r^205^36^0^ X^221^r^195^41^0^ X^221^r^194^38^0^ X^221^r^193^40^0^ X^221^r^192^40^0^ X^221^r^191^36^0^ X^221^r^180^38^0^ X^221^r^179^40^0^ X^221^r^178^40^0^ X^221^r^177^36^0^ X^221^r^174^38^0^ X^221^l^173^9^0^ X^221^r^84^20^0^ X^221^r^82^13^0^ X^221^r^76^8^0^ X^221^r^74^17^0^ X^221^l^74^11^0^ X^221^r^73^45^0^ X^221^l^72^9^0^ X^221^D^43^10^2^ S^222^0^V^rango^RECORD^^global D^222^46^49^10^2^2 X^222^D^46^10^2^ S^223^222^V^fecha_ini^DATE^^ D^223^47^47^10^2^2 X^223^D^47^10^2^ S^224^222^V^fecha_fin^DATE^^ D^224^48^48^10^2^2 X^224^D^48^10^2^ S^225^0^V^numero_msg^SMALLINT^smarmotech.msgtable.cod_msg^global D^225^51^51^10^2^2 X^225^D^51^10^2^ S^226^0^V^requisicion^RECORD^^global D^226^53^62^10^2^2 X^226^D^53^10^2^ S^227^226^V^num_req^INTEGER^^ D^227^54^54^6^2^2 X^227^D^54^6^2^ S^228^226^V^fecha_requisicion^DATE^^ D^228^55^55^6^2^2 X^228^D^55^6^2^ S^229^226^V^sec_vend^SMALLINT^^ D^229^56^56^6^2^2 X^229^D^56^6^2^ S^230^226^V^nombre_vendedor^CHAR(30)^^ D^230^57^57^6^2^2 X^230^D^57^6^2^ S^231^226^V^busca_orden^INTEGER^^ D^231^58^58^6^2^2 X^231^D^58^6^2^ S^232^226^V^sec_vend_a^INTEGER^^ D^232^59^59^6^2^2 X^232^D^59^6^2^ S^233^226^V^nombre_a^CHAR(60)^^ D^233^60^60^6^2^2 X^233^D^60^6^2^ S^234^226^V^estado^CHAR(20)^^ D^234^61^61^6^2^2 X^234^D^61^6^2^ S^235^0^V^arr_requisicion^DYNAMIC ARRAY OF RECORD^^global D^235^63^88^10^2^2 X^235^D^63^10^2^ S^236^235^V^procesa^CHAR(3)^^ D^236^64^64^10^2^2 X^236^D^64^10^2^ S^237^235^V^num_oc^INTEGER^^ D^237^65^65^10^2^2 X^237^D^65^10^2^ S^238^235^V^fecha^CHAR(10)^^ D^238^66^66^10^2^2 X^238^D^66^10^2^ S^239^235^V^cotizacion_no^INTEGER^^ D^239^67^67^10^2^2 X^239^D^67^10^2^ S^240^235^V^tipo_cliente^SMALLINT^^ D^240^68^68^10^2^2 X^240^D^68^10^2^ S^241^235^V^sec_cliente^INTEGER^^ D^241^69^69^10^2^2 X^241^D^69^10^2^ S^242^235^V^nombre^CHAR(30)^^ D^242^70^70^10^2^2 X^242^D^70^10^2^ S^243^235^V^cantidad_1^DECIMAL(12,5)^^ D^243^71^71^10^2^2 X^243^D^71^10^2^ S^244^235^V^cantidad^DECIMAL(12,5)^^ D^244^72^72^10^2^2 X^244^D^72^10^2^ S^245^235^V^area^SMALLINT^^ D^245^73^73^10^2^2 X^245^D^73^10^2^ S^246^235^V^cod_n^SMALLINT^^ D^246^74^74^10^2^2 X^246^D^74^10^2^ S^247^235^V^cod_grupo^SMALLINT^^ D^247^75^75^10^2^2 X^247^D^75^10^2^ S^248^235^V^cod_tipo^SMALLINT^^ D^248^76^76^10^2^2 X^248^D^76^10^2^ S^249^235^V^cod_sec^SMALLINT^^ D^249^77^77^10^2^2 X^249^D^77^10^2^ S^250^235^V^descripcion^CHAR(30)^^ D^250^78^78^10^2^2 X^250^D^78^10^2^ S^251^235^V^unidad_med^CHAR(3)^^ D^251^79^79^10^2^2 X^251^D^79^10^2^ S^252^235^V^cantidad_ord1^DECIMAL(12,5)^^ D^252^80^80^10^2^2 X^252^D^80^10^2^ S^253^235^V^cantidad_ord^DECIMAL(12,5)^^ D^253^81^81^10^2^2 X^253^D^81^10^2^ S^254^235^V^cantidad_pendiente^DECIMAL(12,5)^^ D^254^82^82^10^2^2 X^254^D^82^10^2^ S^255^235^V^precio^DECIMAL(12,4)^^ D^255^83^83^10^2^2 X^255^D^83^10^2^ S^256^235^V^descuento^DECIMAL(12,2)^^ D^256^84^84^10^2^2 X^256^D^84^10^2^ S^257^235^V^descvalor^DECIMAL(12,2)^^ D^257^85^85^10^2^2 X^257^D^85^10^2^ S^258^235^V^valor^DECIMAL(12,2)^^ D^258^86^86^10^2^2 X^258^D^86^10^2^ S^259^235^V^kit^INTEGER^^ D^259^87^87^10^2^2 X^259^D^87^10^2^ S^260^0^V^arr_autoriza^DYNAMIC ARRAY OF RECORD^^global D^260^91^113^10^2^2 X^260^r^536^33^0^ X^260^r^535^10^0^ X^260^r^122^14^0^ X^260^r^113^15^0^ X^260^r^106^52^0^ X^260^r^106^25^0^ X^260^r^103^54^0^ X^260^r^103^27^0^ X^260^r^100^23^0^ X^260^r^87^18^0^ X^260^r^73^32^0^ X^260^D^91^10^2^ S^261^260^V^inserta^CHAR(2)^^ D^261^92^92^6^2^2 X^261^D^92^6^2^ S^262^260^V^estado^CHAR(20)^^ D^262^93^93^6^2^2 X^262^D^93^6^2^ S^263^260^V^estado_despacho^CHAR(20)^^ D^263^94^94^6^2^2 X^263^D^94^6^2^ S^264^260^V^vendedor^CHAR(60)^^ D^264^95^95^6^2^2 X^264^D^95^6^2^ S^265^260^V^num_req^INTEGER^^ D^265^96^96^6^2^2 X^265^r^106^44^0^ X^265^r^103^46^0^ X^265^r^100^42^0^ X^265^D^96^6^2^ S^266^260^V^fecha^DATE^^ D^266^97^97^6^2^2 X^266^D^97^6^2^ S^267^260^V^cotizacion_no^INTEGER^^ D^267^98^98^6^2^2 X^267^r^106^71^0^ X^267^D^98^6^2^ S^268^260^V^num_oc^INTEGER^^ D^268^99^99^6^2^2 X^268^r^103^73^0^ X^268^D^99^6^2^ S^269^260^V^tipo_venta^CHAR(60)^^ D^269^100^100^6^2^2 X^269^D^100^6^2^ S^270^260^V^cliente^CHAR(60)^^ D^270^101^101^6^2^2 X^270^D^101^6^2^ S^271^260^V^valor_cotizacion^DECIMAL(12,2)^^ D^271^102^102^6^2^2 X^271^D^102^6^2^ S^272^260^V^valor_autorizar^DECIMAL(12,2)^^ D^272^103^103^6^2^2 X^272^D^103^6^2^ S^273^260^V^sec_vend^SMALLINT^^ D^273^104^104^6^2^2 X^273^D^104^6^2^ S^274^260^V^cod_n^SMALLINT^^ D^274^105^105^6^2^2 X^274^D^105^6^2^ S^275^260^V^cod_grupo^SMALLINT^^ D^275^106^106^6^2^2 X^275^D^106^6^2^ S^276^260^V^cod_tipo^SMALLINT^^ D^276^107^107^6^2^2 X^276^D^107^6^2^ S^277^260^V^cod_sec^SMALLINT^^ D^277^108^108^6^2^2 X^277^D^108^6^2^ S^278^260^V^tipo_cliente^INTEGER^^ D^278^109^109^6^2^2 X^278^D^109^6^2^ S^279^260^V^sec_cliente^INTEGER^^ D^279^110^110^6^2^2 X^279^D^110^6^2^ S^280^260^V^balance^DECIMAL(12,2)^^ D^280^111^111^6^2^2 X^280^D^111^6^2^ S^281^260^V^balance_restante^DECIMAL(12,2)^^ D^281^112^112^6^2^2 X^281^D^112^6^2^ S^282^0^V^recibo^RECORD^^global D^282^116^126^10^2^2 X^282^D^116^10^2^ S^283^282^V^tipo_doc^CHAR(2)^smarmotech.cctb00001.tipo_doc^ D^283^119^119^6^2^2 X^283^D^119^6^2^ S^284^282^V^num_doc^INTEGER^smarmotech.cctb00001.num_doc^ D^284^120^120^6^2^2 X^284^D^120^6^2^ S^285^282^V^tipo_cliente^SMALLINT^smarmotech.cctb00001.tipo_cliente^ D^285^121^121^6^2^2 X^285^D^121^6^2^ S^286^282^V^sec_cliente^SMALLINT^smarmotech.cctb00001.sec_cliente^ D^286^122^122^6^2^2 X^286^D^122^6^2^ S^287^282^V^cod_emp_sec^SMALLINT^smarmotech.cctb00001.cod_emp_sec^ D^287^123^123^6^2^2 X^287^D^123^6^2^ S^288^282^V^fecha_orig^DATE^smarmotech.cctb00001.fecha_orig^ D^288^124^124^6^2^2 X^288^D^124^6^2^ S^289^282^V^comentario^CHAR(60)^^ D^289^125^125^6^2^2 X^289^D^125^6^2^ S^290^0^V^arr_recibo^DYNAMIC ARRAY OF RECORD^^global D^290^128^134^10^2^2 X^290^D^128^10^2^ S^291^290^V^num_nc^INTEGER^^ D^291^129^129^8^2^2 X^291^D^129^8^2^ S^292^290^V^aplica_a^INTEGER^smarmotech.cctb00001.aplica_a^ D^292^130^130^8^2^2 X^292^D^130^8^2^ S^293^290^V^valor_pen^DECIMAL(12,2)^^ D^293^131^131^8^2^2 X^293^D^131^8^2^ S^294^290^V^desc_p^DECIMAL(12,2)^smarmotech.cctb00001.monto_desc^ D^294^132^132^8^2^2 X^294^D^132^8^2^ S^295^290^V^valor_pag^DECIMAL(12,2)^^ D^295^133^133^8^2^2 X^295^D^133^8^2^ S^296^0^V^arr_recibo4^ARRAY[200] OF RECORD^^global D^296^136^141^10^2^2 X^296^D^136^10^2^ S^297^296^V^aplica_a^INTEGER^smarmotech.cctb00001.aplica_a^ D^297^137^137^8^2^2 X^297^D^137^8^2^ S^298^296^V^valor_pen^DECIMAL(12,2)^^ D^298^138^138^8^2^2 X^298^D^138^8^2^ S^299^296^V^desc_p^DECIMAL(12,2)^smarmotech.cctb00001.monto_desc^ D^299^139^139^8^2^2 X^299^D^139^8^2^ S^300^296^V^valor_pag^DECIMAL(12,2)^^ D^300^140^140^8^2^2 X^300^D^140^8^2^ S^301^0^V^cobrar^ARRAY[200] OF RECORD^^global D^301^143^146^10^2^2 X^301^D^143^10^2^ S^302^301^V^aplica_a^INTEGER^smarmotech.cctb00001.aplica_a^ D^302^144^144^6^2^2 X^302^D^144^6^2^ S^303^301^V^valor^DECIMAL(12,2)^smarmotech.cctb00001.valor^ D^303^145^145^6^2^2 X^303^D^145^6^2^ S^304^0^V^aplica_wd^ARRAY[200] OF RECORD^^global D^304^148^152^10^2^2 X^304^D^148^10^2^ S^305^304^V^aplica_a^INTEGER^smarmotech.cctb00001.aplica_a^ D^305^149^149^8^2^2 X^305^D^149^8^2^ S^306^304^V^pendiente^DECIMAL(12,2)^^ D^306^150^150^8^2^2 X^306^D^150^8^2^ S^307^304^V^tipo_doc^CHAR(2)^^ D^307^151^151^8^2^2 X^307^D^151^8^2^ S^308^0^V^arr_clientes^DYNAMIC ARRAY OF RECORD^^global D^308^154^159^10^2^2 X^308^D^154^10^2^ S^309^308^V^tipo_cliente^SMALLINT^smarmotech.vetb00004.tipo_cliente^ D^309^155^155^10^2^2 X^309^D^155^10^2^ S^310^308^V^sec_cliente^SMALLINT^smarmotech.vetb00004.sec_cliente^ D^310^156^156^10^2^2 X^310^D^156^10^2^ S^311^308^V^nombre^CHAR(100)^smarmotech.vetb00004.nombre^ D^311^157^157^10^2^2 X^311^D^157^10^2^ S^312^308^V^nombre_proyecto^CHAR(30)^^ D^312^158^158^10^2^2 X^312^D^158^10^2^ S^313^0^V^arr_empleados^ARRAY[200] OF RECORD^^global D^313^160^164^10^2^2 X^313^D^160^10^2^ S^314^313^V^num_emp^SMALLINT^smarmotech.adtb00003.num_emp^ D^314^161^161^10^2^2 X^314^D^161^10^2^ S^315^313^V^nom1_emp^CHAR(15)^smarmotech.adtb00003.nom1_emp^ D^315^162^162^10^2^2 X^315^D^162^10^2^ S^316^313^V^apell1_emp^CHAR(15)^smarmotech.adtb00003.apell1_emp^ D^316^163^163^10^2^2 X^316^D^163^10^2^ S^317^0^V^empleados^ARRAY[200] OF RECORD^^global D^317^166^169^10^2^2 X^317^D^166^10^2^ S^318^317^V^num_emp^SMALLINT^smarmotech.adtb00003.num_emp^ D^318^167^167^10^2^2 X^318^D^167^10^2^ S^319^317^V^descrip6^CHAR(65)^^ D^319^168^168^10^2^2 X^319^D^168^10^2^ S^320^0^V^relacion^RECORD^^global D^320^171^171^10^2^2 X^320^D^171^10^2^ S^321^320^V^fecha^DATETIME YEAR TO FRACTION^smarmotech.cctb00002.fecha^ D^321^0^0^0^0^0 X^321^D^171^10^2^ S^322^320^V^cod_vend^SMALLINT^smarmotech.cctb00002.cod_vend^ D^322^0^0^0^0^0 X^322^D^171^10^2^ S^323^320^V^sec_vend^SMALLINT^smarmotech.cctb00002.sec_vend^ D^323^0^0^0^0^0 X^323^D^171^10^2^ S^324^320^V^sec_de^INTEGER^smarmotech.cctb00002.sec_de^ D^324^0^0^0^0^0 X^324^D^171^10^2^ S^325^320^V^sec_a^INTEGER^smarmotech.cctb00002.sec_a^ D^325^0^0^0^0^0 X^325^D^171^10^2^ S^326^320^V^status_t^VARCHAR(1)^smarmotech.cctb00002.status_t^ D^326^0^0^0^0^0 X^326^D^171^10^2^ S^327^320^V^us_crea^VARCHAR(9)^smarmotech.cctb00002.us_crea^ D^327^0^0^0^0^0 X^327^D^171^10^2^ S^328^320^V^fech_crea^DATETIME YEAR TO FRACTION^smarmotech.cctb00002.fech_crea^ D^328^0^0^0^0^0 X^328^D^171^10^2^ S^329^320^V^us_mod^VARCHAR(9)^smarmotech.cctb00002.us_mod^ D^329^0^0^0^0^0 X^329^D^171^10^2^ S^330^320^V^fech_mod^DATETIME YEAR TO FRACTION^smarmotech.cctb00002.fech_mod^ D^330^0^0^0^0^0 X^330^D^171^10^2^ S^331^0^V^rec_pago^RECORD^^global D^331^172^172^10^2^2 X^331^D^172^10^2^ S^332^331^V^cuenta_no^CHAR(8)^smarmotech.cctb00001.cuenta_no^ D^332^0^0^0^0^0 X^332^D^172^10^2^ S^333^331^V^cod_cia^SMALLINT^smarmotech.cctb00001.cod_cia^ D^333^0^0^0^0^0 X^333^D^172^10^2^ S^334^331^V^tipo_doc^CHAR(2)^smarmotech.cctb00001.tipo_doc^ D^334^0^0^0^0^0 X^334^D^172^10^2^ S^335^331^V^num_doc^INTEGER^smarmotech.cctb00001.num_doc^ D^335^0^0^0^0^0 X^335^D^172^10^2^ S^336^331^V^tipo_cliente^SMALLINT^smarmotech.cctb00001.tipo_cliente^ D^336^0^0^0^0^0 X^336^D^172^10^2^ S^337^331^V^sec_cliente^SMALLINT^smarmotech.cctb00001.sec_cliente^ D^337^0^0^0^0^0 X^337^D^172^10^2^ S^338^331^V^cod_emp^SMALLINT^smarmotech.cctb00001.cod_emp^ D^338^0^0^0^0^0 X^338^D^172^10^2^ S^339^331^V^cod_emp_sec^SMALLINT^smarmotech.cctb00001.cod_emp_sec^ D^339^0^0^0^0^0 X^339^D^172^10^2^ S^340^331^V^fecha_orig^DATE^smarmotech.cctb00001.fecha_orig^ D^340^0^0^0^0^0 X^340^D^172^10^2^ S^341^331^V^fecha_ven^DATE^smarmotech.cctb00001.fecha_ven^ D^341^0^0^0^0^0 X^341^D^172^10^2^ S^342^331^V^aplica_a^INTEGER^smarmotech.cctb00001.aplica_a^ D^342^0^0^0^0^0 X^342^D^172^10^2^ S^343^331^V^banco^SMALLINT^smarmotech.cctb00001.banco^ D^343^0^0^0^0^0 X^343^D^172^10^2^ S^344^331^V^num_cheque^CHAR(12)^smarmotech.cctb00001.num_cheque^ D^344^0^0^0^0^0 X^344^D^172^10^2^ S^345^331^V^valor^DECIMAL(12,2)^smarmotech.cctb00001.valor^ D^345^0^0^0^0^0 X^345^D^172^10^2^ S^346^331^V^valor_efectivo^DECIMAL(12,2)^smarmotech.cctb00001.valor_efectivo^ D^346^0^0^0^0^0 X^346^D^172^10^2^ S^347^331^V^valor_cheque^DECIMAL(12,2)^smarmotech.cctb00001.valor_cheque^ D^347^0^0^0^0^0 X^347^D^172^10^2^ S^348^331^V^costo^DECIMAL(12,2)^smarmotech.cctb00001.costo^ D^348^0^0^0^0^0 X^348^D^172^10^2^ S^349^331^V^monto_desc^DECIMAL(12,2)^smarmotech.cctb00001.monto_desc^ D^349^0^0^0^0^0 X^349^D^172^10^2^ S^350^331^V^status_t^CHAR(1)^smarmotech.cctb00001.status_t^ D^350^0^0^0^0^0 X^350^D^172^10^2^ S^351^331^V^us_crea^CHAR(50)^smarmotech.cctb00001.us_crea^ D^351^0^0^0^0^0 X^351^D^172^10^2^ S^352^331^V^fech_crea^DATE^smarmotech.cctb00001.fech_crea^ D^352^0^0^0^0^0 X^352^D^172^10^2^ S^353^331^V^us_mod^CHAR(50)^smarmotech.cctb00001.us_mod^ D^353^0^0^0^0^0 X^353^D^172^10^2^ S^354^331^V^fech_mod^DATE^smarmotech.cctb00001.fech_mod^ D^354^0^0^0^0^0 X^354^D^172^10^2^ S^355^331^V^bodega^SMALLINT^smarmotech.cctb00001.bodega^ D^355^0^0^0^0^0 X^355^D^172^10^2^ S^356^0^V^cliente_bas^RECORD^^global D^356^173^173^10^2^2 X^356^D^173^10^2^ S^357^356^V^tipo_cliente^SMALLINT^smarmotech.vetb00004.tipo_cliente^ D^357^0^0^0^0^0 X^357^D^173^10^2^ S^358^356^V^sec_cliente^SMALLINT^smarmotech.vetb00004.sec_cliente^ D^358^0^0^0^0^0 X^358^D^173^10^2^ S^359^356^V^nombre^CHAR(100)^smarmotech.vetb00004.nombre^ D^359^0^0^0^0^0 X^359^D^173^10^2^ S^360^356^V^cod_zona^SMALLINT^smarmotech.vetb00004.cod_zona^ D^360^0^0^0^0^0 X^360^D^173^10^2^ S^361^356^V^cod_provincia^SMALLINT^smarmotech.vetb00004.cod_provincia^ D^361^0^0^0^0^0 X^361^D^173^10^2^ S^362^356^V^telefono^CHAR(16)^smarmotech.vetb00004.telefono^ D^362^0^0^0^0^0 X^362^D^173^10^2^ S^363^356^V^fax^CHAR(16)^smarmotech.vetb00004.fax^ D^363^0^0^0^0^0 X^363^D^173^10^2^ S^364^356^V^telex^CHAR(16)^smarmotech.vetb00004.telex^ D^364^0^0^0^0^0 X^364^D^173^10^2^ S^365^356^V^patente^VARCHAR(80)^smarmotech.vetb00004.patente^ D^365^0^0^0^0^0 X^365^D^173^10^2^ S^366^356^V^limite_credito^DECIMAL(10,2)^smarmotech.vetb00004.limite_credito^ D^366^0^0^0^0^0 X^366^D^173^10^2^ S^367^356^V^zona_postal^CHAR(10)^smarmotech.vetb00004.zona_postal^ D^367^0^0^0^0^0 X^367^D^173^10^2^ S^368^356^V^num_rnc^CHAR(25)^smarmotech.vetb00004.num_rnc^ D^368^0^0^0^0^0 X^368^D^173^10^2^ S^369^356^V^nombre_patente^CHAR(30)^smarmotech.vetb00004.nombre_patente^ D^369^0^0^0^0^0 X^369^D^173^10^2^ S^370^356^V^status_t^CHAR(1)^smarmotech.vetb00004.status_t^ D^370^0^0^0^0^0 X^370^D^173^10^2^ S^371^356^V^us_crea^CHAR(50)^smarmotech.vetb00004.us_crea^ D^371^0^0^0^0^0 X^371^D^173^10^2^ S^372^356^V^fech_crea^DATE^smarmotech.vetb00004.fech_crea^ D^372^0^0^0^0^0 X^372^D^173^10^2^ S^373^356^V^us_mod^CHAR(50)^smarmotech.vetb00004.us_mod^ D^373^0^0^0^0^0 X^373^D^173^10^2^ S^374^356^V^fech_mod^DATE^smarmotech.vetb00004.fech_mod^ D^374^0^0^0^0^0 X^374^D^173^10^2^ S^375^356^V^puesto_laboral^VARCHAR(50)^smarmotech.vetb00004.puesto_laboral^ D^375^0^0^0^0^0 X^375^D^173^10^2^ S^376^356^V^telefono_casa^CHAR(15)^smarmotech.vetb00004.telefono_casa^ D^376^0^0^0^0^0 X^376^D^173^10^2^ S^377^356^V^tipo_negocio^SMALLINT^smarmotech.vetb00004.tipo_negocio^ D^377^0^0^0^0^0 X^377^D^173^10^2^ S^378^356^V^cond_pago^SMALLINT^smarmotech.vetb00004.cond_pago^ D^378^0^0^0^0^0 X^378^D^173^10^2^ S^379^356^V^id_ciudad^SMALLINT^smarmotech.vetb00004.id_ciudad^ D^379^0^0^0^0^0 X^379^D^173^10^2^ S^380^0^V^p_companias^RECORD^^global D^380^174^174^10^2^2 X^380^r^443^84^0^ X^380^r^438^22^0^ X^380^D^174^10^2^ S^381^380^V^cod_comp^CHAR(5)^smarmotech.companias.cod_comp^ D^381^0^0^0^0^0 X^381^D^174^10^2^ S^382^380^V^nombre^CHAR(40)^smarmotech.companias.nombre^ D^382^0^0^0^0^0 X^382^r^443^96^0^ X^382^D^174^10^2^ S^383^380^V^rnc^CHAR(30)^smarmotech.companias.rnc^ D^383^0^0^0^0^0 X^383^D^174^10^2^ S^384^380^V^direccion^CHAR(40)^smarmotech.companias.direccion^ D^384^0^0^0^0^0 X^384^D^174^10^2^ S^385^380^V^telefono^CHAR(15)^smarmotech.companias.telefono^ D^385^0^0^0^0^0 X^385^D^174^10^2^ S^386^380^V^fax^CHAR(15)^smarmotech.companias.fax^ D^386^0^0^0^0^0 X^386^D^174^10^2^ S^387^380^V^administrador^CHAR(40)^smarmotech.companias.administrador^ D^387^0^0^0^0^0 X^387^D^174^10^2^ S^388^380^V^email^CHAR(100)^smarmotech.companias.email^ D^388^0^0^0^0^0 X^388^D^174^10^2^ S^389^380^V^paginaweb^CHAR(100)^smarmotech.companias.paginaweb^ D^389^0^0^0^0^0 X^389^D^174^10^2^ S^390^380^V^direccion1^CHAR(50)^smarmotech.companias.direccion1^ D^390^0^0^0^0^0 X^390^D^174^10^2^ S^391^380^V^telefono1^CHAR(15)^smarmotech.companias.telefono1^ D^391^0^0^0^0^0 X^391^D^174^10^2^ S^392^380^V^fax1^CHAR(15)^smarmotech.companias.fax1^ D^392^0^0^0^0^0 X^392^D^174^10^2^ S^393^380^V^status_t^CHAR(1)^smarmotech.companias.status_t^ D^393^0^0^0^0^0 X^393^D^174^10^2^ S^394^380^V^us_crea^CHAR(9)^smarmotech.companias.us_crea^ D^394^0^0^0^0^0 X^394^D^174^10^2^ S^395^380^V^fech_crea^DATE^smarmotech.companias.fech_crea^ D^395^0^0^0^0^0 X^395^D^174^10^2^ S^396^380^V^us_mod^CHAR(9)^smarmotech.companias.us_mod^ D^396^0^0^0^0^0 X^396^D^174^10^2^ S^397^380^V^fech_mod^DATE^smarmotech.companias.fech_mod^ D^397^0^0^0^0^0 X^397^D^174^10^2^ S^398^380^V^codnomina^CHAR(30)^smarmotech.companias.codnomina^ D^398^0^0^0^0^0 X^398^D^174^10^2^ S^399^380^V^cuenta_no_inv^CHAR(10)^smarmotech.companias.cuenta_no_inv^ D^399^0^0^0^0^0 X^399^D^174^10^2^ S^400^380^V^dias_vence_reservas^SMALLINT^smarmotech.companias.dias_vence_reservas^ D^400^0^0^0^0^0 X^400^D^174^10^2^ S^401^0^V^cliente_dir^RECORD^^global D^401^175^175^10^2^2 X^401^D^175^10^2^ S^402^401^V^tipo_cliente^SMALLINT^smarmotech.vetb00005.tipo_cliente^ D^402^0^0^0^0^0 X^402^D^175^10^2^ S^403^401^V^sec_cliente^SMALLINT^smarmotech.vetb00005.sec_cliente^ D^403^0^0^0^0^0 X^403^D^175^10^2^ S^404^401^V^calle^CHAR(60)^smarmotech.vetb00005.calle^ D^404^0^0^0^0^0 X^404^D^175^10^2^ S^405^401^V^casa_num^CHAR(10)^smarmotech.vetb00005.casa_num^ D^405^0^0^0^0^0 X^405^D^175^10^2^ S^406^401^V^barrio^CHAR(30)^smarmotech.vetb00005.barrio^ D^406^0^0^0^0^0 X^406^D^175^10^2^ S^407^401^V^urbanizacion^CHAR(30)^smarmotech.vetb00005.urbanizacion^ D^407^0^0^0^0^0 X^407^D^175^10^2^ S^408^401^V^secuencia_visita^INTEGER^smarmotech.vetb00005.secuencia_visita^ D^408^0^0^0^0^0 X^408^D^175^10^2^ S^409^401^V^status_t^CHAR(1)^smarmotech.vetb00005.status_t^ D^409^0^0^0^0^0 X^409^D^175^10^2^ S^410^401^V^us_crea^CHAR(50)^smarmotech.vetb00005.us_crea^ D^410^0^0^0^0^0 X^410^D^175^10^2^ S^411^401^V^fech_crea^DATE^smarmotech.vetb00005.fech_crea^ D^411^0^0^0^0^0 X^411^D^175^10^2^ S^412^401^V^us_mod^CHAR(50)^smarmotech.vetb00005.us_mod^ D^412^0^0^0^0^0 X^412^D^175^10^2^ S^413^401^V^fech_mod^DATE^smarmotech.vetb00005.fech_mod^ D^413^0^0^0^0^0 X^413^D^175^10^2^ S^414^0^V^transportista^RECORD^^global D^414^176^176^10^2^2 X^414^D^176^10^2^ S^415^414^V^cod_transp^SMALLINT^smarmotech.vetb00015.cod_transp^ D^415^0^0^0^0^0 X^415^D^176^10^2^ S^416^414^V^sec_transp^SMALLINT^smarmotech.vetb00015.sec_transp^ D^416^0^0^0^0^0 X^416^D^176^10^2^ S^417^414^V^nombre^CHAR(30)^smarmotech.vetb00015.nombre^ D^417^0^0^0^0^0 X^417^D^176^10^2^ S^418^414^V^cedula^INTEGER^smarmotech.vetb00015.cedula^ D^418^0^0^0^0^0 X^418^D^176^10^2^ S^419^414^V^serie^SMALLINT^smarmotech.vetb00015.serie^ D^419^0^0^0^0^0 X^419^D^176^10^2^ S^420^414^V^calle^CHAR(30)^smarmotech.vetb00015.calle^ D^420^0^0^0^0^0 X^420^D^176^10^2^ S^421^414^V^casa_num^CHAR(10)^smarmotech.vetb00015.casa_num^ D^421^0^0^0^0^0 X^421^D^176^10^2^ S^422^414^V^barrio^CHAR(20)^smarmotech.vetb00015.barrio^ D^422^0^0^0^0^0 X^422^D^176^10^2^ S^423^414^V^urbanizacion^CHAR(20)^smarmotech.vetb00015.urbanizacion^ D^423^0^0^0^0^0 X^423^D^176^10^2^ S^424^414^V^cod_zona^SMALLINT^smarmotech.vetb00015.cod_zona^ D^424^0^0^0^0^0 X^424^D^176^10^2^ S^425^414^V^cod_provincia^SMALLINT^smarmotech.vetb00015.cod_provincia^ D^425^0^0^0^0^0 X^425^D^176^10^2^ S^426^414^V^telefono^CHAR(8)^smarmotech.vetb00015.telefono^ D^426^0^0^0^0^0 X^426^D^176^10^2^ S^427^414^V^status_t^CHAR(1)^smarmotech.vetb00015.status_t^ D^427^0^0^0^0^0 X^427^D^176^10^2^ S^428^414^V^us_crea^CHAR(50)^smarmotech.vetb00015.us_crea^ D^428^0^0^0^0^0 X^428^D^176^10^2^ S^429^414^V^fech_crea^DATE^smarmotech.vetb00015.fech_crea^ D^429^0^0^0^0^0 X^429^D^176^10^2^ S^430^414^V^us_mod^CHAR(50)^smarmotech.vetb00015.us_mod^ D^430^0^0^0^0^0 X^430^D^176^10^2^ S^431^414^V^fech_mod^DATE^smarmotech.vetb00015.fech_mod^ D^431^0^0^0^0^0 X^431^D^176^10^2^ S^432^0^V^lj^INTEGER^^global D^432^177^177^10^2^2 X^432^D^177^10^2^ S^433^0^F^fgl_report_commitCurrentSettings^^^extern X^433^c^376^24^0^ S^434^0^F^fgl_report_selectPreview^^^extern X^434^c^375^15^0^ S^435^0^F^fgl_report_selectDevice^^^extern X^435^c^374^15^0^ S^436^0^F^fgl_report_loadCurrentSettings^^^extern X^436^c^373^6^0^ S^437^0^F^msg^^^extern X^437^c^268^23^0^ X^437^c^239^15^0^ S^438^0^F^entramensaje^^^extern X^438^c^106^12^0^ S^439^0^F^fgl_winmessage^^^extern X^439^c^263^23^0^ X^439^c^244^15^0^ X^439^c^112^15^0^ X^439^c^78^13^0^ T^8^8^d^0^0^DEFINE T^11^21^f^0^0^MAIN T^11^11^d^0^0^DEFINE T^22^130^f^0^0^FUNCTION T^23^25^d^0^0^DEFINE T^29^128^i^0^0^DIALOG T^31^35^i^0^0^CONSTRUCT T^33^34^i^0^0^ T^73^75^l^0^0^FOREACH T^76^80^c^0^0^IF T^77^79^c^0^0^THEN T^79^79^g^0^0^CONTINUE DIALOG T^87^119^i^0^0^INPUT ARRAY T^88^94^i^0^0^ T^95^97^i^0^0^ T^98^100^i^0^0^ T^101^103^i^0^0^ T^104^106^i^0^0^ T^108^117^i^0^0^ T^111^117^c^0^0^IF T^112^116^c^0^0^THEN T^116^116^g^0^0^EXIT INPUT T^131^278^f^0^0^FUNCTION T^132^147^d^0^0^DEFINE T^132^145^d^0^0^RECORD T^174^233^l^0^0^FOREACH T^184^186^c^0^0^IF T^185^185^c^0^0^THEN T^199^201^c^0^0^IF T^200^200^c^0^0^THEN T^212^214^c^0^0^IF T^213^213^c^0^0^THEN T^226^228^c^0^0^IF T^227^227^c^0^0^THEN T^235^273^i^0^0^INPUT ARRAY T^237^272^i^0^0^ T^238^241^c^0^0^IF T^239^240^c^0^0^THEN T^240^240^g^0^0^EXIT INPUT T^243^246^c^0^0^IF T^244^245^c^0^0^THEN T^248^272^l^0^0^FOR T^249^271^c^0^0^IF T^250^270^c^0^0^THEN T^260^270^c^0^0^IF T^261^265^c^0^0^THEN T^265^265^g^0^0^CONTINUE INPUT T^266^268^c^0^0^ELSE T^274^276^c^0^0^IF T^275^275^c^0^0^THEN T^279^389^f^0^0^FUNCTION T^280^326^d^0^0^DEFINE T^287^326^d^0^0^RECORD T^373^388^c^0^0^IF T^374^387^c^0^0^THEN T^380^386^l^0^0^FOREACH T^390^500^f^0^0^REPORT T^391^433^d^0^0^DEFINE T^391^430^d^0^0^RECORD r^2^ORDER EXTERNAL^0 o^2^4^1 T^437^440^a^0^0^FIRST PAGE HEADER T^441^445^a^0^0^BEFORE GROUP OF 4 x^443^0^ p^v^4 p^v^16 p^v^9 p^v^8 p^v^15 p^v^382 p^v^6 p^v^14 p^v^7 p^v^42 p^v^5 p^v^10 p^v^11 p^v^12 p^v^13 T^447^489^a^0^0^BEFORE GROUP OF 41 T^471^473^c^0^0^IF T^472^472^c^0^0^THEN T^475^477^c^0^0^IF T^476^476^c^0^0^THEN T^480^482^c^0^0^IF T^481^481^c^0^0^THEN x^488^0^ p^v^17 p^v^18 p^v^19 p^v^20 p^v^21 p^v^22 p^v^39 p^v^38 T^490^499^a^0^0^ON EVERY ROW T^491^497^c^0^0^IF T^492^494^c^0^0^THEN T^495^496^c^0^0^ELSE x^498^0^ p^v^23 p^v^24 p^v^25 p^v^26 p^v^27 p^v^28 p^v^44 p^v^29 p^v^43 T^501^540^f^0^0^FUNCTION T^501^501^d^0^0^DEFINE T^536^538^l^0^0^FOREACH