41 lines
801 B
Plaintext
41 lines
801 B
Plaintext
S^1^0^M^ipactualizareqtrx^MODULE^^
|
|
S^2^1^F^actualizareqtrx^^^public
|
|
F^0^C:\Users\luis_\Documents\fuentes\decomarmol\PROYECTOS\ipdir\ipactualizareqtrx.4gl
|
|
D^2^1^30^10^0^0
|
|
X^2^D^1^10^0^
|
|
S^3^2^P^pnumdoc^INTEGER^^
|
|
D^3^2^2^11^0^0
|
|
X^3^r^18^26^0^
|
|
X^3^r^10^26^0^
|
|
X^3^l^1^26^0^
|
|
X^3^D^2^11^0^
|
|
S^4^2^V^cantidad_trx^DECIMAL(12,5)^^
|
|
D^4^3^3^11^0^0
|
|
X^4^r^21^8^0^
|
|
X^4^r^20^23^0^
|
|
X^4^r^13^27^0^
|
|
X^4^l^13^12^0^
|
|
X^4^r^12^8^0^
|
|
X^4^l^9^45^0^
|
|
X^4^D^3^11^0^
|
|
S^5^2^V^cantidad_req_trx^DECIMAL(12,5)^^
|
|
D^5^3^3^24^0^0
|
|
X^5^r^21^24^0^
|
|
X^5^r^20^40^0^
|
|
X^5^l^17^45^0^
|
|
X^5^D^3^24^0^
|
|
S^6^2^V^cerrar^BOOLEAN^^
|
|
D^6^4^4^11^0^0
|
|
X^6^r^27^12^0^
|
|
X^6^l^24^12^0^
|
|
X^6^l^22^12^0^
|
|
X^6^D^4^11^0^
|
|
T^1^1^d^0^0^DEFINE
|
|
T^1^30^f^0^0^FUNCTION
|
|
T^2^4^d^0^0^DEFINE
|
|
T^12^14^c^0^0^IF
|
|
T^13^13^c^0^0^THEN
|
|
T^21^25^c^0^0^IF
|
|
T^22^22^c^0^0^THEN
|
|
T^23^24^c^0^0^ELSE
|