S^1^0^M^ncf^MODULE^^
S^2^1^F^btipo_fact^^^public
F^0^C:\Users\luis_\Documents\fuentes\decomarmol\PROYECTO\otrodir\ncf.4gl
D^2^1^59^10^0^0
X^2^D^1^10^0^
S^3^2^P^ptipo_doc^CHAR(2)^^
D^3^8^8^6^0^0
X^3^r^32^21^0^
X^3^r^22^25^0^
X^3^l^1^21^0^
X^3^D^8^6^0^
S^4^2^V^arrtipofact^ARRAY[50] OF RECORD^^
D^4^3^7^9^0^0
X^4^r^53^27^0^
X^4^r^52^7^0^
X^4^r^51^22^0^
X^4^r^50^21^0^
X^4^r^47^18^0^
X^4^r^25^27^0^
X^4^D^3^9^0^
S^5^4^V^codigodgii^CHAR(16)^^
D^5^4^4^10^0^0
X^5^D^4^10^0^
S^6^4^V^descripcion^CHAR(80)^^
D^6^5^5^10^0^0
X^6^D^5^10^0^
S^7^4^V^fecha_vencimiento^DATE^^
D^7^6^6^10^0^0
X^7^D^6^10^0^
S^8^2^V^codigodgii^CHAR(16)^^
D^8^9^9^6^0^0
X^8^r^58^11^0^
X^8^l^50^8^0^
X^8^D^9^6^0^
S^9^2^V^descripcion^CHAR(30)^^
D^9^10^10^6^0^0
X^9^l^51^8^0^
X^9^D^10^6^0^
S^10^2^V^idx^SMALLINT^^
D^10^11^11^6^0^0
X^10^r^46^19^0^
X^10^r^30^6^0^
X^10^r^26^14^0^
X^10^l^26^8^0^
X^10^r^25^39^0^
X^10^l^24^7^0^
X^10^D^11^6^0^
S^11^2^V^curr1^SMALLINT^^
D^11^11^11^10^0^0
X^11^r^53^39^0^
X^11^r^52^19^0^
X^11^r^51^34^0^
X^11^r^50^33^0^
X^11^l^49^8^0^
X^11^D^11^10^0^
S^12^2^V^numero_msg^SMALLINT^^
D^12^11^11^16^0^0
X^12^r^41^15^0^
X^12^l^40^10^0^
X^12^D^11^16^0^
S^13^2^V^fecha_vencimiento^DATE^^
D^13^12^12^6^0^0
X^13^r^58^22^0^
X^13^l^55^8^0^
X^13^l^53^8^0^
X^13^D^12^6^0^
S^14^2^V^vmensaje^STRING^^
D^14^13^13^6^0^0
X^14^r^34^32^0^
X^14^l^31^10^0^
X^14^D^13^6^0^
S^15^1^C^busca_tipo^base.SqlHandle^^private
D^15^20^20^11^0^0
X^15^u^25^11^0^
X^15^D^20^11^0^
S^16^0^V^status^INTEGER^^builtin
F^1^C:\Program Files\FourJs\Genero Studio\fgl\lib/fgl.4gl
D^16^15^15^9^1^1
X^16^D^15^9^1^
S^17^0^V^int_flag^INTEGER^^builtin
D^17^15^15^17^1^1
X^17^l^42^10^0^
X^17^r^39^7^0^
X^17^l^36^10^0^
X^17^D^15^17^1^
S^18^0^F^msg^^^extern
X^18^c^41^11^0^
S^19^0^F^fgl_winmessage^^^extern
X^19^c^34^11^0^
T^1^1^d^0^0^DEFINE
T^1^59^f^0^0^FUNCTION
T^3^13^d^0^0^DEFINE
T^3^7^d^0^0^RECORD
T^25^27^l^0^0^FOREACH
T^30^38^c^0^0^IF
T^31^37^c^0^0^THEN
T^39^44^c^0^0^IF
T^40^43^c^0^0^THEN
T^52^56^c^0^0^IF
T^53^53^c^0^0^THEN
T^54^55^c^0^0^ELSE