{
  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