problema con first en zeoslib 7 y delphi 2010

[ritamarkarla]

hola, hice lo que me dijistes, y el problema si es con el cxgrid, cuando lo desvinculo del cxgrid, si se me mueve hacia el primer record, y entonces porque el componente me hara eso?

[[Al González]]

Si no tienes código en algún evento del cxGrid que pudiera ser el causante de esto, lo más probable es que alguna propiedad del cxGrid está determinando cuál debe ser el orden de visualización de los registros.

Lo curioso es que, si así fuera, los métodos Prior, Next y Last debieran también hacer posicionamientos extraños. Pero según comentaste antes, éstos funcionan bien.

En el conjunto de datos (ZQueryEmpresas), los registros vienen según se trajeron de la base de datos, y cuando llamas a First, lo más seguro es que ZQueryEmpresas sí se posicione en el primero.

Lo que ves en el cxGrid es una representación particular de esa información, en un orden de visualización que no necesariamente corresponde a como están dentro de ZQueryEmpresas.

¿Qué pasa si agregas de nuevo un cxGrid limpio, desde cero, y lo asocias a la consulta?

[ritamarkarla]

hola, no tengo ningun codigo en el cxgrid, incluso lo borre, puse uno nuevo y nada, nada mas hago vincularlo con el datasource del query y ya no me hace el first, y no es que no lo visualice bien, es que no lo hace ni el zquery, verás este es el codigo que uso, en el que veo que no me funciona el zquery.first,

Código Delphi [-]
  with form1 do
    begin
   //   cxGrid1DBTableView1.ViewData.Records[0].Selected := true;
      {Abriendo el Modelo de reporte}
      AppPath := TApplication(Application).ExeName;
      DeleteName(AppPath);
      AppPath := AppPath + 'Empresas.xls';
      Lcid := LOCALE_USER_DEFAULT;
      ExcelModelo := TExcelApplication.Create(Application);
      ExcelModelo.ConnectKind := ckNewInstance;
      ExcelWorkbook1 := TExcelWorkbook.Create(Application);
      ExcelWorkbook1.ConnectTo(ExcelModelo.Workbooks.Add(AppPath, Lcid));
      {llenando el modelo}
      ZQueryEmpresas.First;
      i := 6;
      while not ZQueryEmpresas.Eof do
        begin
          ExcelModelo.Cells.Item[i,1] := ZQueryEmpresas.FieldByName('nombre').AsString;
          ZQueryEmpresas.Next;
          inc(i);
        end;
      {visualixando el modelo}
      ExcelModelo.Visible[Lcid] := true;
      ExcelModelo.Disconnect;
    end;

cuando vinculo el datasource al cxgrid pues me sale en blanco el excel, desvinculo el datasource y me llena el excel con los datos.
???

[[Al González]]

Esto me suena a un problema de ZeosLib con las marcas de registro (bookmarks). Cuando llamas a First, el cxGrid responde rellenándose con todos los registros del conjunto de datos asociado. Para esto lo recorre desde el primero hasta el último, y al finalizar regresa el conjunto de datos al registro donde se encontraba posicionado. Esto último lo hace mediante bookmarks, pero si el conjunto de datos (en este caso un ZQuery) presenta algún problema con la propiedad Bookmark o el método GoToBookmark, ese "regreso" no se realizará y quedará posicionado en el último registro que leyó el cxGrid.

Alguien más ya pasó por esa situación: http://www.devexpress.com/Support/Center/p/Q242456.aspx

No tengo Delphi 2010, pero si alguien pudiera confirmar si lo mismo ocurre en XE2, con gusto puedo echar una mirada.

Saludos.

Al González.

Agrego: Para salir del paso por el momento, puedes intentar llamando a los métodos DisableControls y EnableControls del ZQuery, antes de llamar a First y después de la exportación a Excel, respectivamente.

[ritamarkarla]

hola:
muchas gracias por la ayuda, por el momento lo que hecho es utilizar esta propiedad del cxgrid cxGrid1DBTableView1.DataController.GotoFirst para que aunque sea el cxgrid vaya al primer registro, y se pueda llenar el doc en excel, pero la verdad es que si alguien encuentra otra solución no estaría de más, lo más molesto es que el problema es solo con el first, no asi con next, prior.
saludos