factura maestro detalle

[anubis]

Hola,

Se que es una tonteria de pregunta a estas alturas del partido, pero ahi va.

Si tengo una factura que voy a dar de alta, lo primero que estaba haciendo era dar de alta la factura, hacer un post, transaction comminretaining para obtener el registro y poder empezar con los registros detalle que conforman la factura.

Esto esta bien asi, o hay alguna otra forma.

Lo digo porque tengo dos tablas:

Código SQL [-]
CREATE TABLE COMPRAS
(
  ID_COMPRA integer NOT NULL,
  FACTURA varchar(15),
  FECHA_COMPRA date,
  ID_PROVEEDOR integer,
  CONSTRAINT INTEG_17 PRIMARY KEY (ID_COMPRA)
);
ALTER TABLE COMPRAS ADD CONSTRAINT INTEG_18
  FOREIGN KEY (ID_PROVEEDOR) REFERENCES PROVEEDOR (ID_CODIGOPROVE);



CREATE TABLE COMPRASDETALLE
(
  ID_COMPRADETALLE integer NOT NULL,
  CODIGOPRODUCTO varchar(15),
  CANTIDAD date,
  PRECIOCOSTE numeric(7,2),
  ID_COMPRA integer,
  LOTE varchar(10),
  FECHA_CADUCIDAD date,
  CONSTRAINT INTEG_19 PRIMARY KEY (ID_COMPRADETALLE)
);
ALTER TABLE COMPRASDETALLE ADD CONSTRAINT INTEG_20
  FOREIGN KEY (ID_COMPRA) REFERENCES COMPRAS (ID_COMPRA);

Tengo asociado el ibdataset de compradetalle con ibcompra.

[[AzidRain]]

Tienes que iniciar una transacción antes de grabar nada. Es decir, primero tienes que crear tu transacción y hacer todas las operaciones que necesites sobre la BD si alguna falla deshaces la transacción y no pasó nada. En estos casos es forzoso que lo hagas así, de lo contrario podrías quedarte con un detalle sin cabecera, si es que no diseñaste bien el modelo de tablas.

[[AgustinOrtu]]

Yo antes lo hacia de esa manera, pero es un desastre. La mejor forma de hacerlo: Olvidate de la base de datos hasta el momento de grabar

Manten todo en memoria (usa objetos) y luego mandas todo a grabar, en una transaccion

Piensa en codigo de este estilo:

Código Delphi [-]
var
  f: TFactura;
  d: TDetalle;
begin
  f := TFactura.Create; { obvio el try finally que libera de memoria... }
  f.Cliente := {  ... }  
  d := f.AgregarDetalle;
  d.Producto := {  ... }  

  GrabarFactura(f);
end;

procedure GrabarFactura(f: TFactura);
var
  IdCabecera: Integer;
begin
  IniciarTrans;
  try
   IdCabecera := GrabarCabecera;
   GrabarDetalle(IdCabecera, f.Detalle); 
   Commit;
 except
   Rollback;
   raise;
 end;
end;

[anubis]

Gracias por contestar.
Si, es lo que estaba buscando, alguna forma alternativa de hacer eso mismo.
Lo de la memoria mas o menos lo entiendo, pero me parece mas lio, porque tengo que pasar todo a variables o arrays y luego lo vuelco a las tablas.

Lo interesante es iniciar la transaction pero mi pregunta era si hago un post de la factura todavia no tengo asignado el codigo de compras para pasarselo a comprasdetalle.
o quiza no lo entendi, perdon.

[[AgustinOrtu]]

La mayoria de los motores soportan algun tipo de operacion especial, externa al standart SQL, que permite insertar una tupla y devolver el Id que uso al insertar

Por ejemplo en Firebird se usa la cláusula returning

[[Lepe]]

O usar ClientDataset, es lo mismo que tener los datos en memoria, insertando todo en cada tabla y hasta que no haces un ClientDataset1.ApplyUpdates() inicia la transacción y graba los cambios.

Es igual para borrado, puedes borrar 20 filas de un grid (que está enlazado al ClientDataset). Tú ves que las filas se eliminan del grid, pero no se aplican los cambios a la BBDD hasta que no lo ordenas.

Saludos!