FUNCTION formaspago()
 DEFINE formas ui.ComboBox,
        idforma SMALLINT,
        ddescripcion CHAR(60)

 LET  formas = ui.ComboBox.forName("formonly.fpago")  

 CALL formas.clear()

 DECLARE busca CURSOR FOR
   SELECT a.id_pago,a.titulo FROM formadepago a
   ORDER BY a.id_pago
   FOREACH busca INTO idforma,ddescripcion
     CALL formas.addItem(idforma,ddescripcion)
   END FOREACH

 
END FUNCTION