19 lines
601 B
Plaintext
19 lines
601 B
Plaintext
|
|
FUNCTION ctramo(almacen,seccion)
|
|
DEFINE kcod_tramo,almacen,seccion SMALLINT,kdescripcion CHAR(30),
|
|
ptramo ui.ComboBox
|
|
|
|
LET ptramo = ui.combobox.forname("formonly.tramo")
|
|
|
|
DECLARE busca_tramo CURSOR FOR
|
|
SELECT a.cod_tramo,a.descripcion FROM Intb00043 a
|
|
WHERE a.cod_bodega = almacen and a.cod_Seccion = seccion
|
|
|
|
CALL ptramo.clear()
|
|
FOREACH busca_tramo INTO kcod_tramo,kdescripcion
|
|
DISPLAY "tramos ",kcod_tramo,kdescripcion," ",almacen," ",seccion
|
|
CALL ptramo.additem(kcod_tramo,kdescripcion)
|
|
END FOREACH
|
|
CALL ptramo.additem(99,"TODOS")
|
|
END FUNCTION
|