18 lines
418 B
Plaintext
18 lines
418 B
Plaintext
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 |