FUNCTION lugarentregas()
 
 DEFINE  ketiquetas SMALLINT, detiquetas CHAR(30),
         cbodegas ui.ComboBox
    LET cbodegas = ui.combobox.forname("formonly.bodega")
    DECLARE bbodegas CURSOR FOR
      SELECT a.cod_bodega,a.descripcion FROM intb00009 a WHERE a.lugar_entega = 'SI'
      ORDER BY a.descripcion
      CALL cbodegas.clear()
 
    FOREACH bbodegas INTO ketiquetas,detiquetas
      CALL cbodegas.additem(ketiquetas,detiquetas)
    END FOREACH
    
    
 END FUNCTION