Código Delphi
[-]
DataModule_Fact_Albar.Query_Alb.First;
DataModule_Fact_Albar.Query_Alb.DisableControls;
while not(DataModule_Fact_Albar.Query_Alb.Eof) do
begin
DataModule_Fact_Albar.Query_Lin_Alb.First;
DataModule_Fact_Albar.Query_Lin_Alb.DisableControls;
while not(DataModule_Fact_Albar.Query_Lin_Alb.Eof) do
begin
with DataModule_Fact_Albar do
begin
Query_Lin_Fact.Edit;
Query_Lin_FactCANTIDAD.Value:=Query_Lin_AlbCANTIDAD.Value;
Query_Lin_FactCONCEPTO.Value:=Query_Lin_AlbCONCEPTO.Value;
Query_Lin_FactPRECIOUNIDAD.Value:=Query_Lin_AlbPRECIOUNIDAD.Value;
Query_Lin_FactTOTAL.Value:=Query_Lin_AlbTOTAL.Value;
Query_Lin_Fact.Post;
Query_Lin_Alb.Next;
end;
end;
DataModule_Fact_Albar.Query_Lin_Alb.EnableControls;
DataModule_Fact_Albar.Query_Alb.Next;
end;
DataModule_Fact_Albar.Query_Alb.EnableControls;
Te equivocas, lo añade todo, el problema es que estas haciendo un Query_Lin_Fact.Edit, por tanto, todos los albaranes se machacan en
la misma linea de la factura. ¿No Debería ser Query_Lin_Fact.Append?
Por otra parte.... yo usaría tbl_Lin_Fact, la tabla, en lugar de un Query.
Supongo que es un extracto del código, ya que no se crean nuevos registros en la tabla Facturas, y siendo una relación Maestro-Detalle, debe crearse la Factura antes que las lineas de factura.
En cuanto a la pregunta original, se podría hacer con consultas de inserción.... pero tal cual está, es más simple.
Un saludo