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; Try
CDSCabeza.ApplyUpdates(-1);
CDSCabeza.Refresh;
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.