Convertir Albaranes a Factura

[[Lepe]]

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