20 lines
560 B
Plaintext
20 lines
560 B
Plaintext
FUNCTION cuentas()
|
|
DEFINE kcuenta VARCHAR(14),
|
|
kdescripcion CHAR(60),
|
|
cuentas ui.ComboBox
|
|
|
|
LET cuentas = ui.combobox.forname("formonly.xcuenta")
|
|
|
|
DECLARE busca_cuenta CURSOR FOR
|
|
SELECT RTRIM(a.cuenta_no),RTRIM(a.descripcion)+'('+RTRIM(a.cuenta_no)+')'
|
|
FROM cgtb00001 a
|
|
WHERE a.nivel > 2 AND a.cuenta_no LIKE '7%' AND a.status_t IS NULL
|
|
ORDER BY a.descripcion
|
|
|
|
CALL cuentas.clear()
|
|
FOREACH busca_cuenta INTO kcuenta,kdescripcion
|
|
CALL cuentas.additem(kcuenta,kdescripcion)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|