S^1^0^M^piking^MODULE^^ S^2^1^F^pendienteRecibir^^^public F^0^C:\Users\luis_\Documents\fuentes\decomarmol\PROYECTOS\ipdir\piking.4gl D^2^359^378^10^0^0 X^2^D^359^10^0^ S^3^2^P^xbodega^INTEGER^^ D^3^360^360^10^0^0 X^3^r^366^45^0^ X^3^l^359^27^0^ X^3^D^360^10^0^ S^4^2^V^j^INTEGER^^ D^4^360^360^18^0^0 X^4^r^377^14^0^ X^4^r^375^18^0^ X^4^l^375^14^0^ X^4^l^373^11^0^ X^4^D^360^18^0^ S^5^1^F^buscadata^^^public D^5^329^358^10^0^0 X^5^c^171^30^0^ X^5^c^152^24^0^ X^5^D^329^10^0^ S^6^5^P^i^INTEGER^^ D^6^330^330^15^0^0 X^6^r^356^55^0^ X^6^r^354^55^0^ X^6^r^352^55^0^ X^6^r^351^55^0^ X^6^r^350^55^0^ X^6^r^347^55^0^ X^6^r^340^59^0^ X^6^r^339^34^0^ X^6^r^338^33^0^ X^6^l^329^20^0^ X^6^D^330^15^0^ S^7^1^F^adicionaTransf^^^public D^7^242^328^10^0^0 X^7^c^175^30^0^ X^7^D^242^10^0^ S^8^7^V^selec^STRING^^ D^8^243^243^11^0^0 X^8^r^281^26^0^ X^8^r^280^13^0^ X^8^l^262^10^0^ X^8^D^243^11^0^ S^9^1^F^itemsTransferencia^^^public D^9^185^241^10^0^0 X^9^c^153^24^0^ X^9^D^185^10^0^ S^10^9^V^xcodmov^STRING^^ D^10^186^186^11^0^0 X^10^l^209^29^0^ X^10^l^205^17^0^ X^10^D^186^11^0^ S^11^9^V^xbodega^STRING^^ D^11^186^186^19^0^0 X^11^l^209^45^0^ X^11^l^208^17^0^ X^11^D^186^19^0^ S^12^9^V^xnumdoc^INTEGER^^ D^12^187^187^11^0^0 X^12^l^209^37^0^ X^12^l^207^17^0^ X^12^D^187^11^0^ S^13^1^F^piking^^^public D^13^98^184^10^0^0 X^13^D^98^10^0^ S^14^13^P^usuario^CHAR(50)^^ D^14^110^110^2^0^0 X^14^r^124^44^0^ X^14^r^113^17^0^ X^14^l^98^17^0^ X^14^D^110^2^0^ S^15^13^P^clave^CHAR(50)^^ D^15^110^110^10^0^0 X^15^r^114^17^0^ X^15^l^98^25^0^ X^15^D^110^10^0^ S^16^13^P^impresor^SMALLINT^^ D^16^111^111^2^0^0 X^16^r^115^18^0^ X^16^l^98^31^0^ X^16^D^111^2^0^ S^17^13^P^xbodega^SMALLINT^^ D^17^111^111^11^0^0 X^17^l^98^40^0^ X^17^D^111^11^0^ S^18^13^P^sucursal^SMALLINT^^ D^18^111^111^19^0^0 X^18^l^98^48^0^ X^18^D^111^19^0^ S^19^13^V^letras^RECORD^^ D^19^100^109^8^0^0 X^19^D^100^8^0^ S^20^19^V^negrillas_on^CHAR(6)^^ D^20^101^101^8^0^0 X^20^D^101^8^0^ S^21^19^V^negrillas_off^CHAR(6)^^ D^21^102^102^8^0^0 X^21^D^102^8^0^ S^22^19^V^doble_on^CHAR(6)^^ D^22^103^103^8^0^0 X^22^D^103^8^0^ S^23^19^V^doble_off^CHAR(6)^^ D^23^104^104^8^0^0 X^23^D^104^8^0^ S^24^19^V^comp_on^CHAR(6)^^ D^24^105^105^8^0^0 X^24^D^105^8^0^ S^25^19^V^comp_off^CHAR(6)^^ D^25^106^106^8^0^0 X^25^D^106^8^0^ S^26^19^V^doce^CHAR(6)^^ D^26^107^107^8^0^0 X^26^D^107^8^0^ S^27^19^V^normal^CHAR(6)^^ D^27^108^108^8^0^0 X^27^D^108^8^0^ S^28^1^V^piking^DYNAMIC ARRAY OF RECORD^^private D^28^3^21^10^0^0 X^28^r^356^48^0^ X^28^r^354^48^0^ X^28^r^352^48^0^ X^28^r^351^48^0^ X^28^r^350^48^0^ X^28^r^347^48^0^ X^28^r^340^52^0^ X^28^r^339^27^0^ X^28^r^338^26^0^ X^28^r^172^28^0^ X^28^r^170^23^0^ X^28^r^168^32^0^ X^28^r^148^20^0^ X^28^r^139^47^0^ X^28^r^138^29^0^ X^28^l^136^34^0^ X^28^r^134^29^0^ X^28^l^132^34^0^ X^28^r^131^31^0^ X^28^D^3^10^0^ S^29^28^V^transportista^STRING^^ D^29^4^4^13^0^0 X^29^D^4^13^0^ S^30^28^V^bodega^SMALLINT^^ D^30^5^5^14^0^0 X^30^D^5^14^0^ S^31^28^V^nombre_b^CHAR(25)^^ D^31^6^6^14^0^0 X^31^D^6^14^0^ S^32^28^V^bodega2^SMALLINT^^ D^32^7^7^14^0^0 X^32^D^7^14^0^ S^33^28^V^nombre_b2^CHAR(25)^^ D^33^8^8^14^0^0 X^33^D^8^14^0^ S^34^28^V^num_doc^INTEGER^^ D^34^9^9^14^0^0 X^34^D^9^14^0^ S^35^28^V^fecha^DATE^^ D^35^10^10^14^0^0 X^35^D^10^14^0^ S^36^28^V^cod_mov^SMALLINT^^ D^36^11^11^14^0^0 X^36^D^11^14^0^ S^37^28^V^nombre^VARCHAR(100)^^ D^37^12^12^14^0^0 X^37^D^12^14^0^ S^38^28^V^usuario^CHAR(60)^^ D^38^13^13^14^0^0 X^38^D^13^14^0^ S^39^28^V^recibo^CHAR(1)^^ D^39^14^14^14^0^0 X^39^D^14^14^0^ S^40^28^V^impresion^CHAR(1)^^ D^40^15^15^14^0^0 X^40^D^15^14^0^ S^41^28^V^cod_mov_transferencia^SMALLINT^^ D^41^16^16^14^0^0 X^41^D^16^14^0^ S^42^28^V^cod_transp^SMALLINT^^ D^42^17^17^14^0^0 X^42^D^17^14^0^ S^43^28^V^sec_transp^SMALLINT^^ D^43^18^18^14^0^0 X^43^D^18^14^0^ S^44^28^V^placa^VARCHAR(50)^^ D^44^19^19^14^0^0 X^44^D^19^14^0^ S^45^28^V^numero_doc^INTEGER^^ D^45^20^20^14^0^0 X^45^D^20^14^0^ S^46^1^V^ximpresion^CHAR(1)^^private D^46^22^22^6^0^0 X^46^r^295^8^0^ X^46^l^173^32^0^ X^46^l^169^24^0^ X^46^D^22^6^0^ S^47^1^V^movi2^DYNAMIC ARRAY OF RECORD^^private D^47^24^41^8^0^0 X^47^r^321^54^0^ X^47^l^317^58^0^ X^47^l^317^35^0^ X^47^l^316^76^0^ X^47^l^316^54^0^ X^47^l^316^35^0^ X^47^l^315^73^0^ X^47^l^315^52^0^ X^47^l^315^35^0^ X^47^r^231^57^0^ X^47^r^229^32^0^ X^47^r^223^27^0^ X^47^l^218^39^0^ X^47^l^217^39^0^ X^47^l^216^39^0^ X^47^l^215^39^0^ X^47^l^214^39^0^ X^47^l^213^39^0^ X^47^l^212^39^0^ X^47^l^211^38^0^ X^47^D^24^8^0^ S^48^47^V^area^SMALLINT^^ D^48^25^25^5^0^0 X^48^D^25^5^0^ S^49^47^V^descripcion_area^VARCHAR(30)^^ D^49^26^26^5^0^0 X^49^D^26^5^0^ S^50^47^V^cod_n^SMALLINT^decomarmol.intb00003.cod_n^ D^50^27^27^5^0^0 X^50^D^27^5^0^ S^51^47^V^cod_grupo^SMALLINT^decomarmol.intb00003.cod_grupo^ D^51^28^28^5^0^0 X^51^D^28^5^0^ S^52^47^V^cod_tipo^SMALLINT^decomarmol.intb00003.cod_tipo^ D^52^29^29^5^0^0 X^52^D^29^5^0^ S^53^47^V^cod_sec^SMALLINT^decomarmol.intb00003.cod_sec^ D^53^30^30^5^0^0 X^53^D^30^5^0^ S^54^47^V^cantidad_1^DECIMAL(12,5)^^ D^54^31^31^5^0^0 X^54^D^31^5^0^ S^55^47^V^cantidad_2^DECIMAL(12,5)^^ D^55^32^32^5^0^0 X^55^D^32^5^0^ S^56^47^V^cantidad_p^DECIMAL(12,5)^^ D^56^33^33^5^0^0 X^56^D^33^5^0^ S^57^47^V^unidad_med^CHAR(4)^decomarmol.iptb00002.unidad_med^ D^57^34^34^5^0^0 X^57^D^34^5^0^ S^58^47^V^descrip_esp^CHAR(80)^^ D^58^35^35^5^0^0 X^58^D^35^5^0^ S^59^47^V^existencia^DECIMAL(12,5)^^ D^59^36^36^5^0^0 X^59^D^36^5^0^ S^60^47^V^disponible^DECIMAL(12,5)^^ D^60^37^37^5^0^0 X^60^D^37^5^0^ S^61^47^V^codigo_bloque^CHAR(15)^^ D^61^38^38^5^0^0 X^61^D^38^5^0^ S^62^47^V^id_kit^INTEGER^^ D^62^39^39^5^0^0 X^62^D^39^5^0^ S^63^1^V^negrilla_on^CHAR(3)^^private D^63^42^43^10^0^0 X^63^l^309^69^0^ X^63^l^225^77^0^ X^63^D^42^10^0^ S^64^1^V^negrillas_of^CHAR(3)^^private D^64^42^43^22^0^0 X^64^l^309^81^0^ X^64^l^225^89^0^ X^64^D^42^22^0^ S^65^1^V^doble_on^CHAR(3)^^private D^65^42^43^35^0^0 X^65^l^310^60^0^ X^65^l^226^60^0^ X^65^D^42^35^0^ S^66^1^V^doble_off^CHAR(3)^^private D^66^42^43^44^0^0 X^66^l^310^69^0^ X^66^l^226^69^0^ X^66^D^42^44^0^ S^67^1^V^comp_on^CHAR(3)^^private D^67^42^43^54^0^0 X^67^l^310^79^0^ X^67^l^226^79^0^ X^67^D^42^54^0^ S^68^1^V^comp_off^CHAR(3)^^private D^68^42^43^62^0^0 X^68^l^310^87^0^ X^68^l^226^87^0^ X^68^D^42^62^0^ S^69^1^V^doce^CHAR(3)^^private D^69^43^43^10^0^0 X^69^l^311^60^0^ X^69^l^227^60^0^ X^69^D^43^10^0^ S^70^1^V^NORMAL^CHAR(3)^^private D^70^43^43^15^0^0 X^70^l^311^65^0^ X^70^l^227^65^0^ X^70^D^43^15^0^ S^71^1^V^imprime^CHAR(100)^^private D^71^44^44^7^0^0 X^71^r^324^15^0^ X^71^l^309^61^0^ X^71^r^235^21^0^ X^71^l^225^69^0^ X^71^D^44^7^0^ S^72^1^V^gclave^CHAR(100)^^private D^72^44^44^15^0^0 X^72^r^309^33^0^ X^72^r^225^41^0^ X^72^l^114^6^0^ X^72^D^44^15^0^ S^73^1^V^gusuario^CHAR(100)^^private D^73^44^44^22^0^0 X^73^r^309^24^0^ X^73^r^290^54^0^ X^73^r^274^81^0^ X^73^r^225^32^0^ X^73^l^113^6^0^ X^73^D^44^22^0^ S^74^1^V^archivo^CHAR(100)^^private D^74^44^44^31^0^0 X^74^r^313^34^0^ X^74^l^311^72^0^ X^74^r^228^40^0^ X^74^l^227^72^0^ X^74^D^44^31^0^ S^75^1^V^DESCRIP_TRANSP^CHAR(100)^^private D^75^44^44^40^0^0 X^75^l^335^61^0^ X^75^D^44^40^0^ S^76^1^V^copia^CHAR(100)^^private D^76^44^44^55^0^0 X^76^l^311^80^0^ X^76^l^227^80^0^ X^76^D^44^55^0^ S^77^1^V^gimpresor^SMALLINT^^private D^77^45^45^7^0^0 X^77^r^309^40^0^ X^77^r^225^48^0^ X^77^l^115^6^0^ X^77^D^45^7^0^ S^78^1^V^idx1^SMALLINT^^private D^78^45^45^17^0^0 X^78^r^172^35^0^ X^78^r^171^40^0^ X^78^r^170^30^0^ X^78^l^168^20^0^ X^78^D^45^17^0^ S^79^1^V^idx^SMALLINT^^private D^79^45^45^22^0^0 X^79^r^321^60^0^ X^79^l^317^64^0^ X^79^l^317^41^0^ X^79^l^316^82^0^ X^79^l^316^60^0^ X^79^l^316^41^0^ X^79^l^315^79^0^ X^79^l^315^58^0^ X^79^l^315^41^0^ X^79^l^308^15^0^ X^79^r^231^63^0^ X^79^l^229^21^0^ X^79^r^220^24^0^ X^79^l^220^18^0^ X^79^l^218^45^0^ X^79^l^217^45^0^ X^79^l^216^45^0^ X^79^l^215^45^0^ X^79^l^214^45^0^ X^79^l^213^45^0^ X^79^l^212^45^0^ X^79^l^211^44^0^ X^79^l^204^17^0^ X^79^r^143^8^0^ X^79^r^140^23^0^ X^79^l^140^17^0^ X^79^r^139^54^0^ X^79^r^138^36^0^ X^79^l^136^41^0^ X^79^r^134^36^0^ X^79^l^132^41^0^ X^79^r^131^38^0^ X^79^l^130^9^0^ X^79^D^45^22^0^ S^80^1^V^p_act^SMALLINT^^private D^80^45^45^26^0^0 X^80^r^152^34^0^ X^80^l^151^23^0^ X^80^D^45^26^0^ S^81^1^V^numero_msg^SMALLINT^^private D^81^45^45^32^0^0 X^81^r^159^28^0^ X^81^l^158^23^0^ X^81^D^45^32^0^ S^82^1^V^tituloBodega^STRING^^private D^82^46^46^7^0^0 X^82^l^356^13^0^ X^82^D^46^7^0^ S^83^1^V^otros_mov1^RECORD^^private D^83^48^69^8^0^0 X^83^l^347^13^0^ X^83^r^346^48^0^ X^83^r^345^48^0^ X^83^l^336^40^0^ X^83^r^303^63^0^ X^83^r^291^53^0^ X^83^r^277^50^0^ X^83^r^275^43^0^ X^83^r^273^19^0^ X^83^r^260^22^0^ X^83^r^253^64^0^ X^83^r^248^22^0^ X^83^r^244^22^0^ X^83^l^219^39^0^ X^83^r^207^27^0^ X^83^r^194^43^0^ X^83^r^188^33^0^ X^83^l^139^12^0^ X^83^D^48^8^0^ S^84^83^V^num_doc^INTEGER^^ D^84^49^49^16^0^0 X^84^D^49^16^0^ S^85^83^V^cod_cia^SMALLINT^^ D^85^50^50^10^0^0 X^85^D^50^10^0^ S^86^83^V^cod_mov^SMALLINT^^ D^86^51^51^13^0^0 X^86^D^51^13^0^ S^87^83^V^fact_no^CHAR(25)^^ D^87^52^52^16^0^0 X^87^D^52^16^0^ S^88^83^V^cod_transp^SMALLINT^^ D^88^53^53^16^0^0 X^88^D^53^16^0^ S^89^83^V^sec_transp^SMALLINT^^ D^89^54^54^16^0^0 X^89^D^54^16^0^ S^90^83^V^cod_tarifa^SMALLINT^^ D^90^55^55^16^0^0 X^90^D^55^16^0^ S^91^83^V^placa^CHAR(25)^^ D^91^56^56^16^0^0 X^91^D^56^16^0^ S^92^83^V^conduce_no^CHAR(25)^^ D^92^57^57^16^0^0 X^92^D^57^16^0^ S^93^83^V^fecha^DATE^^ D^93^58^58^16^0^0 X^93^D^58^16^0^ S^94^83^V^descrip_mov^CHAR(30)^^ D^94^59^59^16^0^0 X^94^D^59^16^0^ S^95^83^V^bodega^SMALLINT^^ D^95^60^60^16^0^0 X^95^D^60^16^0^ S^96^83^V^bodega2^SMALLINT^^ D^96^61^61^16^0^0 X^96^D^61^16^0^ S^97^83^V^bodega_d^CHAR(30)^^ D^97^62^62^16^0^0 X^97^D^62^16^0^ S^98^83^V^num_bultos^SMALLINT^^ D^98^63^63^16^0^0 X^98^D^63^16^0^ S^99^83^V^detalle^CHAR(30)^^ D^99^64^64^16^0^0 X^99^D^64^16^0^ S^100^83^V^cod_sp^SMALLINT^^ D^100^65^65^16^0^0 X^100^D^65^16^0^ S^101^83^V^cod_sp_sec^INTEGER^^ D^101^66^66^16^0^0 X^101^D^66^16^0^ S^102^83^V^descrip4^CHAR(30)^^ D^102^67^67^16^0^0 X^102^D^67^16^0^ S^103^83^V^cod_mov_transferencia^INTEGER^^ D^103^68^68^16^0^0 X^103^D^68^16^0^ S^104^1^V^otros_mov^RECORD^^private D^104^71^96^8^0^0 X^104^l^354^13^0^ X^104^l^352^13^0^ X^104^l^351^13^0^ X^104^l^350^13^0^ X^104^l^346^13^0^ X^104^l^345^13^0^ X^104^l^336^73^0^ X^104^l^336^19^0^ X^104^l^335^76^0^ X^104^l^335^36^0^ X^104^l^335^19^0^ X^104^l^334^56^0^ X^104^l^334^34^0^ X^104^l^334^16^0^ X^104^r^321^42^0^ X^104^l^319^89^0^ X^104^l^319^68^0^ X^104^l^319^52^0^ X^104^l^319^35^0^ X^104^l^318^87^0^ X^104^l^318^69^0^ X^104^l^318^53^0^ X^104^l^318^35^0^ X^104^r^304^28^0^ X^104^r^303^29^0^ X^104^r^292^23^0^ X^104^r^291^22^0^ X^104^r^278^71^0^ X^104^r^278^32^0^ X^104^r^277^88^0^ X^104^r^275^66^0^ X^104^r^275^20^0^ X^104^r^274^51^0^ X^104^r^271^38^0^ X^104^r^260^68^0^ X^104^r^259^37^0^ X^104^r^255^28^0^ X^104^l^255^8^0^ X^104^r^253^97^0^ X^104^l^252^11^0^ X^104^r^251^7^0^ X^104^r^247^21^0^ X^104^l^245^26^0^ X^104^r^231^45^0^ X^104^r^208^64^0^ X^104^r^208^31^0^ X^104^r^205^66^0^ X^104^r^205^31^0^ X^104^r^201^38^0^ X^104^r^200^44^0^ X^104^r^195^40^0^ X^104^r^188^78^0^ X^104^r^188^56^0^ X^104^D^71^8^0^ S^105^104^V^num_doc^INTEGER^decomarmol.iptb00006.num_doc^ D^105^72^72^5^0^0 X^105^D^72^5^0^ S^106^104^V^cod_cia^SMALLINT^decomarmol.iptb00006.cod_cia^ D^106^73^73^5^0^0 X^106^D^73^5^0^ S^107^104^V^cod_mov^SMALLINT^decomarmol.iptb00006.cod_mov^ D^107^74^74^5^0^0 X^107^D^74^5^0^ S^108^104^V^fact_no^CHAR(10)^decomarmol.iptb00006.fact_no^ D^108^75^75^5^0^0 X^108^D^75^5^0^ S^109^104^V^cod_transp^SMALLINT^decomarmol.iptb00006.cod_transp^ D^109^76^76^5^0^0 X^109^D^76^5^0^ S^110^104^V^sec_transp^SMALLINT^decomarmol.iptb00006.sec_transp^ D^110^77^77^5^0^0 X^110^D^77^5^0^ S^111^104^V^cod_tarifa^SMALLINT^decomarmol.iptb00006.cod_tarifa^ D^111^78^78^5^0^0 X^111^D^78^5^0^ S^112^104^V^placa^CHAR(10)^decomarmol.iptb00006.placa^ D^112^79^79^5^0^0 X^112^D^79^5^0^ S^113^104^V^fecha^DATE^decomarmol.iptb00006.fecha^ D^113^80^80^5^0^0 X^113^D^80^5^0^ S^114^104^V^conduce_no^CHAR(10)^decomarmol.iptb00006.conduce_no^ D^114^81^81^5^0^0 X^114^D^81^5^0^ S^115^104^V^descrip_mov^CHAR(80)^^ D^115^82^82^5^0^0 X^115^D^82^5^0^ S^116^104^V^bodega^SMALLINT^decomarmol.iptb00006.bodega^ D^116^83^83^5^0^0 X^116^D^83^5^0^ S^117^104^V^bodega_destino^SMALLINT^^ D^117^84^84^5^0^0 X^117^D^84^5^0^ S^118^104^V^detalle^VARCHAR(100)^decomarmol.iptb00006.detalle^ D^118^85^85^5^0^0 X^118^D^85^5^0^ S^119^104^V^cod_sp^SMALLINT^decomarmol.iptb00006.cod_sp^ D^119^86^86^5^0^0 X^119^D^86^5^0^ S^120^104^V^cod_sp_sec^SMALLINT^decomarmol.iptb00006.cod_sp_sec^ D^120^87^87^5^0^0 X^120^D^87^5^0^ S^121^104^V^departamento^SMALLINT^^ D^121^88^88^5^0^0 X^121^D^88^5^0^ S^122^104^V^nombre_depto^CHAR(30)^^ D^122^89^89^5^0^0 X^122^D^89^5^0^ S^123^104^V^cod_mov1^SMALLINT^^ D^123^90^90^5^0^0 X^123^D^90^5^0^ S^124^104^V^entrada^INTEGER^^ D^124^91^91^5^0^0 X^124^D^91^5^0^ S^125^104^V^descrip_mov1^CHAR(40)^^ D^125^92^92^5^0^0 X^125^D^92^5^0^ S^126^104^V^descrip4^CHAR(30)^^ D^126^93^93^5^0^0 X^126^D^93^5^0^ S^127^104^V^factura^INTEGER^^ D^127^94^94^5^0^0 X^127^D^94^5^0^ S^128^1^C^busca_piking^base.SqlHandle^^private D^128^116^116^10^0^0 X^128^u^131^13^0^ X^128^D^116^10^0^ S^129^1^C^busca_items^base.SqlHandle^^private D^129^190^190^21^0^0 X^129^u^211^21^0^ X^129^D^190^21^0^ S^130^1^C^comando^base.SqlHandle^^private D^130^281^281^13^0^0 X^130^u^282^13^0^ X^130^D^281^13^0^ S^131^1^C^busca_data^base.SqlHandle^^private D^131^298^298^17^0^0 X^131^u^315^19^0^ X^131^D^298^17^0^ S^132^1^C^cuenta^base.SqlHandle^^private D^132^361^361^13^0^0 X^132^u^374^15^0^ X^132^D^361^13^0^ S^133^0^V^status^INTEGER^^builtin F^1^C:\Program Files\FourJs\Genero Studio\fgl\lib/fgl.4gl D^133^15^15^9^1^1 X^133^r^284^8^0^ X^133^D^15^9^1^ S^134^0^V^int_flag^INTEGER^^builtin D^134^15^15^17^1^1 X^134^l^182^6^0^ X^134^l^164^19^0^ X^134^r^163^15^0^ X^134^r^157^19^0^ X^134^l^147^12^0^ X^134^D^15^17^1^ S^135^0^F^fgl_winmessage^^^extern X^135^c^327^12^0^ X^135^c^286^13^0^ X^135^c^236^22^0^ S^136^0^R^formu4^^^extern X^136^c^323^25^0^finish X^136^c^321^35^0^output X^136^c^313^24^0^start X^136^c^234^31^0^finish X^136^c^231^38^0^output X^136^c^228^30^0^start S^137^0^F^defecto^^^extern X^137^c^309^16^0^ X^137^c^225^24^0^ S^138^0^F^msg^^^extern X^138^c^159^24^0^ T^1^96^d^0^0^DEFINE T^3^21^d^0^0^RECORD T^24^41^d^0^0^RECORD T^48^69^d^0^0^RECORD T^71^96^d^0^0^RECORD T^98^184^f^0^0^FUNCTION T^100^111^d^0^0^DEFINE T^100^109^d^0^0^RECORD T^131^141^l^0^0^FOREACH T^143^181^c^0^0^IF T^145^179^c^0^0^THEN T^148^162^i^0^0^INPUT ARRAY T^150^153^i^0^0^ T^155^161^i^0^0^ T^157^161^c^0^0^IF T^158^160^c^0^0^THEN T^160^160^g^0^0^EXIT INPUT T^163^167^c^0^0^IF T^164^166^c^0^0^THEN T^168^177^l^0^0^FOR T^170^176^c^0^0^IF T^171^175^c^0^0^THEN T^172^174^c^0^0^IF T^173^173^c^0^0^THEN T^185^241^f^0^0^FUNCTION T^186^187^d^0^0^DEFINE T^211^221^l^0^0^FOREACH T^224^236^i^0^0^ T^229^233^l^0^0^FOR T^237^238^i^0^0^ T^238^238^g^0^0^EXIT DISPLAY T^242^328^f^0^0^FUNCTION T^243^243^d^0^0^DEFINE T^251^254^c^0^0^IF T^252^253^c^0^0^THEN T^284^288^c^0^0^IF T^285^287^c^0^0^THEN T^295^326^c^0^0^IF T^298^324^c^0^0^THEN T^315^322^l^0^0^FOREACH T^329^358^f^0^0^FUNCTION T^330^330^d^0^0^DEFINE T^359^378^f^0^0^FUNCTION T^360^360^d^0^0^DEFINE T^374^376^l^0^0^FOREACH