24 lines
668 B
Plaintext
24 lines
668 B
Plaintext
{
|
|
FUNCTION : COMBOMES.4GL
|
|
OBJETIVO : PRESNETAR AL USUARIO LOS PERIODOS de la tabla prdtable
|
|
PROGRAMADOR : ING. JUAN SOTO
|
|
FECHA REALIZACION: DICIEMBRE 18, 2013.
|
|
}
|
|
|
|
FUNCTION combomes(ccampo)
|
|
DEFINE pmes ui.ComboBox,
|
|
kmes SMALLINT, dmes char(20),
|
|
ccampo CHAR(30)
|
|
|
|
LET pmes = ui.ComboBox.forName(ccampo CLIPPED)
|
|
#LET pmes = ui.ComboBox.forName(ccampo)
|
|
CALL pmes.clear()
|
|
|
|
DECLARE busca CURSOR FOR
|
|
SELECT DISTINCT a.mes,a.descrip FROM mestable a
|
|
ORDER BY a.mes
|
|
|
|
FOREACH busca INTO kmes,dmes
|
|
CALL pmes.addItem(kmes,dmes)
|
|
END FOREACH
|
|
END FUNCTION |