17 lines
497 B
Plaintext
17 lines
497 B
Plaintext
FUNCTION lugarentregas()
|
|
|
|
DEFINE ketiquetas SMALLINT, detiquetas CHAR(30),
|
|
cbodegas ui.ComboBox
|
|
LET cbodegas = ui.combobox.forname("formonly.bodega")
|
|
DECLARE bbodegas CURSOR FOR
|
|
SELECT a.cod_bodega,a.descripcion FROM intb00009 a WHERE a.lugar_entega = 'SI'
|
|
ORDER BY a.descripcion
|
|
CALL cbodegas.clear()
|
|
|
|
FOREACH bbodegas INTO ketiquetas,detiquetas
|
|
CALL cbodegas.additem(ketiquetas,detiquetas)
|
|
END FOREACH
|
|
|
|
|
|
END FUNCTION
|