Zeoslib TZTables

[[Al González]]

Hola Connor.

Empezado por connor

si yo grabo un registro en la Tabla_01 se mueve el registro de la Tabla_02 hasta el final porque??

Asumo que con grabar te refieres a llamar al método Post del componente. Pues sí que es un comportamiento raro, pero nada que no pueda investigarse con el depurador de Delphi.

No conozco gran cosa de la biblioteca ZeosLib, pero algo que se me ocurre es que uses el evento AfterScroll de la tabla detalle para colocar en él un punto de ruptura (tecla F5), el cual esté habilitado en el momento de hacer el guardado del registro maestro.

Esto para que, una vez detenido el programa en ese punto, hagas aparecer la pila de llamadas (Ctrl+Alt+S) y con ella conocer el camino que siguió el programa (que rutinas se fueron llamando en cadena), desde que hiciste el Post hasta que se llamó al evento AfterScroll (suponiendo que este evento sí es disparado cuando la tabla detalle se posiciona en el último registro).

¿Podrías hacer lo anterior y decirnos qué ves? De preferencia copia aquí la pila de llamadas que te aparece (una imagen de la misma si te resulta más fácil), para que podamos echarle un vistazo.

Saludos.

Al González.

[RebeccaGL]

Gracias por responder,

No se como hacer lo que dices, y si, hago post en la tabla padre y en la tabla hija el registro se va hasta el final, el registro deberia quedarse en su posicion actual y no irse hasta el final, solo deberia irse hasta el principio si hiciera un scroll y no hasta el final. Esto no se como resolverlo, es un comportamiento raro como dices no se que hacer.

Otro error con los componentes zeoslib son que al insertar un nuevo registro no se refrescan las grillas se quedan con los datos anteriores, tengo que usar un afterInsert y refrescarlas manualmente.

[[Al González]]

Empezado por connor

Gracias por responder,

No se como hacer lo que dices...

¿Cuál parte en específico? ¿Qué has investigado de lo que no comprendes? Te animo a desglosar tus dudas, pregunta.

Empezado por connor

Otro error con los componentes zeoslib son que al insertar un nuevo registro no se refrescan las grillas se quedan con los datos anteriores, tengo que usar un afterInsert y refrescarlas manualmente.

Tema nuevo, hilo nuevo.

[RebeccaGL]

Mira ya decubri el error de porque pasaba eso, el problema es que yo pintaba los DDGrids en el evento DBGrid1DrawColumnCell y le quite y ahora funciona muy bien, el problema es que ahora tengo mis DBGrids Standard como vienen, la idea era "Pintar la fila seleccionada del DBGrid", ahi estaba el problema.

Código Delphi [-]
 
procedure TForm_BeEMPPRJ.DBGrid_MTRPRTDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  // Init
  DBGrid_MTRPRT.Canvas.Font.Style := [];
  DBGrid_MTRPRT.Canvas.Font.Color := clWindowText;
  if (DBGrid_MTRPRT.DataSource.DataSet.RecNo = MTRPRT_RecNo) then
    DbGrid_MTRPRT.Canvas.Brush.Color := $00EFD3C6
  else
    DbGrid_MTRPRT.Canvas.Brush.Color := clWindow;
  if (gdSelected in State) and
     (DBGrid_MTRPRT.Focused) then
  begin
    DBGrid_MTRPRT.Canvas.Font.Color := clWindow;
    DbGrid_MTRPRT.Canvas.Brush.Color := clHighlight;
  end;
  // Continue
  DBGrid_MTRPRT.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

La variable "MTRMRD_RecNo" la actualizaba en el evento Dataset "DataChage" y el DBGrid lo refrescaba en el Evento AfterScroll, quite los eventos "DrawColumnCell" y ahora si funciona claro quite todos los eventos de pintado de grilla.

Como Podria pintar un DBGrid pero solo la Fila seleccionada, he visto ejemplos aca pero no funcionan alguna idea.


Gracias

[[Al González]]

A simple vista no veo la relación entre ese evento y el posicionamiento de la tabla detalle en el último registro.

Sería muy útil que hicieras lo que te sugerí primero. En este foro, en la ayuda y en la Red en general encuentras muchos temas sobre los puntos de ruptura (breakpoints) y la pila de llamadas (call stack) del depurador de Delphi. Pero a lo visto no has estimado esa sugerencia que muy probablemente daría con la clave de por qué ocurre tal efecto.

[RebeccaGL]

Volvio a pasarme esto no se que sera, aca pongo una imagen del debug.

http://img243.imageshack.us/img243/9153/32598529.jpg

Código Delphi [-]
 
procedure TForm_BeEMPPRJ.Button1Click(Sender: TObject);
begin
  // SAVE_Status
  Table_STDANO.Edit;
  Table_STDANO.FieldByName('IE').AsString := vkc_0042;
  Table_STDANO.Post;
end;

En este codigo hago Post en la tabla Año y me manda las posiciones de los registros mes y dias por donde sea.

Table_STDANO es la tabla padre Table_STDMES es hija de la Table_STDANO y Table_SDTDIA es hija de la Tabla_STDMES.

Table_STDANO >> Table_STDMES >> Table_STDDIA

Ejemplo. Si estoy en el año 2010 mes=Septiempbre y dia=22, entonces hago post en Table_STDANO y la Table_STDMES se posiciona en culaquier mes y pierdo el mes de Septiembre igual con la Table_STDDIA.

He revisado todos los Eventos de tablas dbgrids pero nada, la verdad no se que esta pasando, o seran que los componentes zeos estan con fallas.


Saludos

[[Al González]]

Empezado por connor

...hago post en Table_STDANO y la Table_STDMES se posiciona en cualquier mes...

Ah, ¿entonces no necesariamente la tabla detalle se va al último registro? Puede quedar en cualquiera, por lo que dices.

Gracias por seguir proporcionando estas pistas, Connor. La imagen que pusiste es de la ventana CPU, pero en este caso sería más útil la ventana Call Stack (menú View-Debug Windows-Call Stack).

¿Entonces sí pusiste un punto de ruptura en el evento AfterScroll de Table_STDMES, y en él se detiene el programa cuando guardas el registro en Table_STDANO?

Saludos.

Al.