27 lines
671 B
Plaintext
27 lines
671 B
Plaintext
|
|
FUNCTION plataformapago()
|
|
|
|
DEFINE
|
|
kcuenta VARCHAR(20),
|
|
kdescripcion CHAR(80),
|
|
cuenta_no ui.ComboBox,
|
|
cuentaForm,plataforma STRING
|
|
|
|
|
|
LET cuentaForm = "formonly.plataforma"
|
|
|
|
|
|
LET cuenta_no = ui.combobox.forname(cuentaForm)
|
|
|
|
LET plataforma = "SELECT a.id, a.plataforma
|
|
FROM marmotech.dbo.cctb00009 a"
|
|
PREPARE bplataforma FROM plataforma
|
|
DECLARE busca_cuenta CURSOR FOR bplataforma
|
|
|
|
|
|
CALL cuenta_no.clear()
|
|
FOREACH busca_cuenta INTO kcuenta, kdescripcion
|
|
CALL cuenta_no.additem(kcuenta, kdescripcion)
|
|
END FOREACH
|
|
|
|
END FUNCTION |