FUNCTION estadosprocesos(idopcion)
 DEFINE estado ui.ComboBox,
        id,idopcion SMALLINT,
        ddescripcion CHAR(50)

 IF idopcion = 1 THEN       
    LET  estado = ui.ComboBox.forName("formonly.idestado")  
 ELSE
   LET  estado = ui.ComboBox.forName("formonly.idestado1")  
 END IF
 CALL estado.clear()

 DECLARE busca CURSOR FOR
   SELECT a.idestado,a.descripcion FROM iptb00061 a
   ORDER BY a.descripcion
   FOREACH busca INTO id,ddescripcion
     CALL estado.addItem(id,ddescripcion)
   END FOREACH

 
END FUNCTION