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