FUNCTION proveedores()

 DEFINE  cod_sp SMALLINT, titulo CHAR(30),
         cproveedores ui.ComboBox
         
    LET cproveedores = ui.combobox.forname("formonly.cod_sp")
    DECLARE bproveedores CURSOR FOR
      SELECT cod_sp, CONCAT('(' ,cod_sp, ')',' ',titulo) FROM cotb00047
      CALL cproveedores.clear()
 
    FOREACH bproveedores INTO cod_sp,titulo
      CALL cproveedores.additem(cod_sp,titulo)
    END FOREACH

END FUNCTION