18 lines
399 B
Plaintext
18 lines
399 B
Plaintext
DEFINE pbanco ui.ComboBox
|
|
FUNCTION bancos()
|
|
|
|
DEFINE kbanco SMALLINT, dbanco CHAR(50)
|
|
|
|
LET pbanco = ui.combobox.forname("formonly.cuenta_no")
|
|
|
|
DECLARE bbancos CURSOR FOR
|
|
SELECT a.cuenta_no,a.nombre_bco FROM cgtb00012 a
|
|
WHERE a.status_t IS NULL
|
|
CALL pbanco.clear()
|
|
|
|
FOREACH bbancos INTO kbanco,dbanco
|
|
CALL pbanco.additem(kbanco,dbanco)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|