{
  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