22 lines
591 B
Plaintext
22 lines
591 B
Plaintext
FUNCTION localidades(chb)
|
|
DEFINE
|
|
klocalidad SMALLINT,
|
|
kdescripcion CHAR(30),
|
|
plocalidad ui.combobox,
|
|
chb CHAR(1)
|
|
IF chb = 1 THEN
|
|
LET plocalidad = ui.combobox.forname("formonly.sucid")
|
|
ELSE
|
|
LET plocalidad = ui.combobox.forname("formonly.bodega")
|
|
END IF
|
|
|
|
DECLARE busca_local CURSOR FOR SELECT a.sucid, a.sucnombre FROM sucursales a
|
|
|
|
CALL plocalidad.clear()
|
|
|
|
FOREACH busca_local INTO klocalidad, kdescripcion
|
|
CALL plocalidad.additem(klocalidad, kdescripcion)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|