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

167 lines
3.2 KiB
Plaintext

S^1^0^M^loadDespiece^MODULE^^
S^2^1^F^loadDespiece^^^public
F^0^C:\Users\luis_\Documents\fuentes\decomarmol\PROYECTOS\ipdir\loadDespiece.4gl
D^2^1^94^10^0^0
X^2^D^1^10^0^
S^3^2^P^pcodn^INTEGER^^
D^3^4^5^18^0^0
X^3^r^73^24^0^
X^3^r^54^24^0^
X^3^r^34^27^0^
X^3^r^33^22^0^
X^3^l^1^23^0^
X^3^D^4^18^0^
S^4^2^P^pcodgrupo^INTEGER^^
D^4^4^5^24^0^0
X^4^r^74^28^0^
X^4^r^55^28^0^
X^4^r^35^27^0^
X^4^l^1^29^0^
X^4^D^4^24^0^
S^5^2^P^pcodtipo^INTEGER^^
D^5^4^5^34^0^0
X^5^r^75^27^0^
X^5^r^56^27^0^
X^5^r^36^27^0^
X^5^l^1^39^0^
X^5^D^4^34^0^
S^6^2^P^pcodsec^INTEGER^^
D^6^4^5^43^0^0
X^6^r^76^26^0^
X^6^r^57^26^0^
X^6^r^37^29^0^
X^6^l^1^48^0^
X^6^D^4^43^0^
S^7^2^P^parea^INTEGER^^
D^7^4^5^51^0^0
X^7^r^72^23^0^
X^7^r^53^23^0^
X^7^r^38^21^0^
X^7^l^1^56^0^
X^7^D^4^51^0^
S^8^2^P^pentrada^INTEGER^^
D^8^4^5^57^0^0
X^8^r^32^24^0^
X^8^r^26^8^0^
X^8^l^1^62^0^
X^8^D^4^57^0^
S^9^2^P^pcodmov1^INTEGER^^
D^9^4^5^66^0^0
X^9^r^31^25^0^
X^9^l^1^71^0^
X^9^D^4^66^0^
S^10^2^P^control_despacho^VARCHAR(2)^^
D^10^6^6^12^0^0
X^10^r^47^10^0^
X^10^l^2^23^0^
X^10^D^6^12^0^
S^11^2^P^ordenx^INTEGER^^
D^11^4^5^75^0^0
X^11^r^70^27^0^
X^11^r^52^27^0^
X^11^l^2^40^0^
X^11^D^4^75^0^
S^12^2^P^pnum_req^INTEGER^^
D^12^5^5^18^0^0
X^12^r^81^26^0^
X^12^l^2^47^0^
X^12^D^5^18^0^
S^13^2^V^i^INTEGER^^
D^13^4^5^12^0^0
X^13^D^4^12^0^
S^14^2^V^idx^INTEGER^^
D^14^4^5^14^0^0
X^14^r^87^20^0^
X^14^l^87^14^0^
X^14^r^86^58^0^
X^14^r^85^48^0^
X^14^r^61^20^0^
X^14^l^61^14^0^
X^14^r^60^47^0^
X^14^r^43^18^0^
X^14^l^43^12^0^
X^14^r^41^39^0^
X^14^l^25^9^0^
X^14^D^4^14^0^
S^15^2^V^total_cantidad^DECIMAL(12,5)^^
D^15^7^7^12^0^0
X^15^r^86^31^0^
X^15^l^86^14^0^
X^15^l^84^12^0^
X^15^D^7^12^0^
S^16^2^V^container^DYNAMIC ARRAY OF RECORD^^
D^16^9^23^12^0^0
X^16^r^92^8^0^
X^16^r^86^48^0^
X^16^r^85^38^0^
X^16^r^60^37^0^
X^16^r^41^29^0^
X^16^D^9^12^0^
S^17^16^V^id_etiqueta^SMALLINT^^
D^17^10^10^13^0^0
X^17^D^10^13^0^
S^18^16^V^cod_n^INTEGER^^
D^18^11^11^13^0^0
X^18^D^11^13^0^
S^19^16^V^cod_grupo^INTEGER^^
D^19^12^12^13^0^0
X^19^D^12^13^0^
S^20^16^V^cod_tipo^INTEGER^^
D^20^13^13^13^0^0
X^20^D^13^13^0^
S^21^16^V^cod_sec^INTEGER^^
D^21^14^14^13^0^0
X^21^D^14^13^0^
S^22^16^V^lado_1^DECIMAL(12,5)^^
D^22^15^15^13^0^0
X^22^D^15^13^0^
S^23^16^V^lado_2^DECIMAL(12,5)^^
D^23^16^16^13^0^0
X^23^D^16^13^0^
S^24^16^V^lado_3^DECIMAL(12,5)^^
D^24^17^17^13^0^0
X^24^D^17^13^0^
S^25^16^V^cantidad^DECIMAL(12,5)^^
D^25^18^18^13^0^0
X^25^D^18^13^0^
S^26^16^V^medida^DECIMAL(12,5)^^
D^26^19^19^13^0^0
X^26^D^19^13^0^
S^27^16^V^secuencia^INTEGER^^
D^27^20^20^13^0^0
X^27^D^20^13^0^
S^28^16^V^id_despiece^INTEGER^^
D^28^20^20^23^0^0
X^28^D^20^23^0^
S^29^16^V^bodega^SMALLINT^^
D^29^21^21^13^0^0
X^29^D^21^13^0^
S^30^1^C^busca_ent^base.SqlHandle^^private
D^30^28^28^15^0^0
X^30^u^41^14^0^
X^30^D^28^15^0^
S^31^1^C^busca_despiece1^base.SqlHandle^^private
D^31^48^48^16^0^0
X^31^u^60^16^0^
X^31^D^48^16^0^
S^32^1^C^busca_despiece12^base.SqlHandle^^private
D^32^65^65^17^0^0
X^32^u^85^16^0^
X^32^D^65^17^0^
S^33^0^V^status^INTEGER^^builtin
F^1^C:\Program Files\FourJs\Genero Studio\fgl\lib/fgl.4gl
D^33^15^15^9^1^1
X^33^D^15^9^1^
T^1^1^d^0^0^DEFINE
T^1^94^f^0^0^FUNCTION
T^4^23^d^0^0^DEFINE
T^9^23^d^0^0^RECORD
T^26^45^c^0^0^IF
T^28^44^c^0^0^THEN
T^41^44^l^0^0^FOREACH
T^47^89^c^0^0^IF
T^48^62^c^0^0^THEN
T^60^62^l^0^0^FOREACH
T^64^88^c^0^0^ELSE
T^85^88^l^0^0^FOREACH