39 lines
1.0 KiB
Plaintext
39 lines
1.0 KiB
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
|
|
IF chb = "3" THEN
|
|
LET plocalidad = ui.combobox.forname("formonly.bodega")
|
|
END IF
|
|
IF chb = "2" THEN
|
|
DISPLAY "este valor viene: ",plocalidad
|
|
LET plocalidad = ui.combobox.forname("formonly.xsucid")
|
|
END IF
|
|
END IF
|
|
CALL plocalidad.clear()
|
|
|
|
IF chb = 1 THEN
|
|
DECLARE busca_local CURSOR FOR
|
|
SELECT UNIQUE a.sucid,"("||CAST(a.sucid AS VARCHAR(2))||")"||a.sucnombre FROM sucursales a
|
|
|
|
FOREACH busca_local INTO klocalidad,kdescripcion
|
|
CALL plocalidad.additem(klocalidad,kdescripcion)
|
|
END FOREACH
|
|
|
|
ELSE
|
|
DECLARE busca_local2 CURSOR FOR
|
|
SELECT UNIQUE a.sucid,"("||CAST(a.sucid AS VARCHAR(2))||")"||a.sucnombre FROM sucursales a
|
|
|
|
|
|
FOREACH busca_local2 INTO klocalidad,kdescripcion
|
|
CALL plocalidad.additem(klocalidad,kdescripcion)
|
|
END FOREACH
|
|
|
|
END IF
|
|
|
|
END FUNCTION
|