33 lines
923 B
Plaintext
33 lines
923 B
Plaintext
|
|
FUNCTION cuenta()
|
|
|
|
DEFINE
|
|
kcuenta VARCHAR(20),
|
|
kdescripcion CHAR(80),
|
|
cuenta_no ui.ComboBox,
|
|
cuentaForm,qcuentas STRING
|
|
|
|
|
|
LET cuentaForm = "formonly.cuenta_no"
|
|
|
|
|
|
LET cuenta_no = ui.combobox.forname(cuentaForm)
|
|
|
|
LET qcuentas = "SELECT RTRIM(a.cuenta_no),
|
|
ISNULL('(' + RTRIM(a.cuenta_no) + ')'+ RTRIM(b.nombre_bco) + ' ('+
|
|
RTrIM(b.cuenta_bank) + ')',a.descripcion)
|
|
FROM marmotech.dbo.cgtb00001 a,marmotech.dbo.cgtb00012 b
|
|
WHERE a.status_t IS NULL AND a.cuenta_no=b.cuenta_no
|
|
ORDER BY a.cuenta_no
|
|
"
|
|
|
|
PREPARE bcuentas FROM qcuentas
|
|
DECLARE busca_cuenta CURSOR FOR bcuentas
|
|
|
|
|
|
CALL cuenta_no.clear()
|
|
FOREACH busca_cuenta INTO kcuenta, kdescripcion
|
|
CALL cuenta_no.additem(kcuenta, kdescripcion)
|
|
END FOREACH
|
|
|
|
END FUNCTION |