Pues creo que ya me lo guarda todo bieeeeeeeeeeeeeeen
el problema estaba en los enable y disablecontrols
, me he dado cuenta porque he construido el codigo de nuevo y lo he ido probando y sin los enable y disablecontrols va y me funciona y he comporbado que tengo que poner EnableControls antes de hacer el Next
Nose si me explico pero bueno xDDDDD, el codigo queda tal que así:
Código:
Query_Alb.First;
while not(Query_Alb.Eof) do
begin
Query_Alb.DisableControls;
Query_Lin_Alb.First;
while not(Query_Lin_Alb.Eof) do
begin
Query_Lin_Alb.DisableControls;
Query_Lin_Fact.Append;
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.EnableControls;
Query_Lin_Alb.Next;
end;
Query_Alb.EnableControls;
Query_Alb.Next;
end;
Espero que siga todo bien, MUCHISIMAS GRACIAS POR TODOS!!!
Salu2!!!