Ayuda para configurar componentes Zeos

[[AzidRain]]

A ver si te sirves este comentario a propósito de lo que estás haciendo, precisamente acabo de terminar una parte de un sistema que hace eso con zeos.

Aunque ZConnection trae sus métodos commit y rollback...no funcionan bien, me parece que es un bugcillo por ahí que inclusive ya se ha comentado muchas veces en portal de Zeos pero al parecer no lo han solucionado. Bien.

Yo te recomiendo utilizar 3 capas de abstracción ya que de esta forma trabajarás mas ordenadamente y podrás hacer cambios fácilmente.

1.- Crea un datamodule y llamale como gustes que será nuestra capa de datos.
2.- Crea otro que sera la capa de reglas de negocio.
3.- Lo demás son tus forms y etc.

Bien, en la capa de datos pones los zquery y el zconnection que vayas a usar yconfigura todos los querys. Unicamente introduce el texto sql de cada query, no es necesario crear campos ni nada en esta capa.

En la capa de negocios creas las tclientdataset que requieras acompañadas de sus providers correspondientes. Aquí, si donde requieras creas campos persistentes, calculados y demás, así como toda la lógica de negocio, restricciones, etc.

Por último haz tus formas pero conectadose a los clientdataset.

Ahora bien, las transacciones.

Como ya te comente que Zeos tiene algunos detalles con eso, vamos a crear una zquery en la capa de datos y sendos procediminientos para mandar directamente la transacción al servidor:

Código Delphi [-]
procedure Tcapadatos.Commit;
begin
   ZTransacciones.SQL.Clear;
    ZTransacciones.SQL.Text := 'COMMIT;';
   ZTransacciones.ExecSQL;
end;

procedure Tcapadatos.RollBack;
begin
  ZTransacciones.SQL.Clear;
   ZTransacciones.SQL.Text := 'ROLLBACK;';
   ZTransacciones.ExecSQL;
end;

procedure Tcapadatos.StartTrans;
begin
   ZTransacciones.SQL.Clear;

   ZTransacciones.SQL.Text := 'START TRANSACTION;';
   ZTransacciones.ExecSQL;
end;

Ahora ya podemos hacer en este caso lo de tu factura, el manejo de la transacción lo vamos a hacer en la capa de negocio, para que en la forma donde capturas la factura solo tengas que poner un Post en el botón de guardado de la misma.

Para ello vamos a programar el evento AfterPost correspondiente a tu TClientDataset del encabezado (llámemosle CDSCabeza)

Código Delphi [-]
 procedure TCapaNegocio.CDSCabezaAfterPost(DataSet: TDataSet);
Begin
  CapaDatos.StartTrans;  // Iniciamos la transacción
  Try
     CDSCabeza.ApplyUpdates(-1);
     CDSCabeza.Refresh; 
    // Aquí pondrías el código que requiera saber algo de la cabeza que acabas de      guardar, por ejemplo el numero de folio asignado o algo asi 
    CDSDetalle.ApplyUpdates(-1);
    CapaDatos.Commit;
 except
    CapaDatos.RollBack;
    raise; 
 end; 
end;

Finalmente si utilizas campos autoincrementados (MySQL) o Generadores (FB) es importante recordar que el número obtenido no puede volver atrás en caso de un rollback, asi que en ese caso simplemente la numeración continúa y no se utiliza el mismo.

En el ClientDataset también puedes meter código en OnReconcileError o OnUpdateError para manejar los posibles errores que se generen o bien así como este ejemplo te debe funcionar.