15 lines
450 B
Plaintext
15 lines
450 B
Plaintext
FUNCTION proveedores()
|
|
|
|
DEFINE cod_sp SMALLINT, titulo CHAR(30),
|
|
cproveedores ui.ComboBox
|
|
|
|
LET cproveedores = ui.combobox.forname("formonly.cod_sp")
|
|
DECLARE bproveedores CURSOR FOR
|
|
SELECT cod_sp, CONCAT('(' ,cod_sp, ')',' ',titulo) FROM cotb00047
|
|
CALL cproveedores.clear()
|
|
|
|
FOREACH bproveedores INTO cod_sp,titulo
|
|
CALL cproveedores.additem(cod_sp,titulo)
|
|
END FOREACH
|
|
|
|
END FUNCTION |