Creo que no me expliqué muy bien xDD. Ya está programado la creación de 1 albarán y 1 factura, con sus tablas factura y línea factura... típico xD
La duda era si es razonable usar un bucle para recorrer los albaranes y a su vez cada una de las líneas de ese albarán e ir guardando con 2 whiles.
Por ahora he hecho esto:
Código:
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;
Pero sólo me guarda la ultima línea del 1º albarán
Salu2!!!