FUNCTION cseccion(almacen)
 DEFINE kcod_seccion SMALLINT,kdescripcion CHAR(30),
        pseccion ui.ComboBox,
        almacen SMALLINT
 
 LET pseccion = ui.combobox.forname("formonly.seccion")
 
 DECLARE busca_sec CURSOR FOR
  SELECT a.cod_seccion,a.descripcion FROM Intb00010 a
  WHERE a.cod_bodega = almacen
  
  CALL pseccion.clear()
  FOREACH busca_sec INTO kcod_seccion,kdescripcion
   CALL pseccion.additem(kcod_seccion,kdescripcion)
  END FOREACH 
  
END FUNCTION