24 lines
617 B
Plaintext
24 lines
617 B
Plaintext
{
|
|
FUNCTION : COMBOANO.4GL
|
|
OBJETIVO : PRESNETAR AL USUARIO LOS PERIODOS de la tabla prdtable
|
|
PROGRAMADOR : ING. JUAN SOTO
|
|
FECHA REALIZACION: DICIEMBRE 18, 2013.
|
|
}
|
|
|
|
FUNCTION comboano(ccampo)
|
|
DEFINE pano ui.ComboBox,
|
|
kano SMALLINT,
|
|
ccampo CHAR(30)
|
|
DISPLAY "ccampo ",ccampo
|
|
LET pano = ui.ComboBox.forName(ccampo)
|
|
CALL pano.clear()
|
|
|
|
DECLARE busca CURSOR FOR
|
|
SELECT DISTINCT a.ano FROM prdtable a
|
|
ORDER BY a.ano
|
|
|
|
FOREACH busca INTO kano
|
|
|
|
CALL pano.addItem(kano,kano)
|
|
END FOREACH
|
|
END FUNCTION |