Bucle for

[[oscarac]]

a simple viste el append lo estas haciendo fuera del segundo bucle, es por eso que solo te guarda 2 registros

[jafera]

Gracias Oscarac.

Lo he solucionado asi:

Código Delphi [-]
while not Inscripcio.Eof do
        begin
                for v := 1 to v1 do
                begin
                        for z := 1 to z1 do
                        begin
                                F_ModulDades.Punts_Zona.Open;
                                F_ModulDades.Punts_Zona.Append;
                                F_ModulDades.Punts_ZonaID_CURSA.Value:=InscripcioCURSA.Value;
                                F_ModulDades.Punts_ZonaDATA.Value:=F_ModulDades.CursaDATA_CURSA.Value;
                                F_ModulDades.Punts_ZonaDORSAL.Value:=InscripcioDORSAL.Value;
                                F_ModulDades.Punts_ZonaVOLTA.Value:=v;
                                F_ModulDades.Punts_ZonaZONA.Value:=z;
                                F_ModulDades.Punts_ZonaPUNTS.Value:=0;
                        end;
                        F_ModulDades.Punts_Zona.Post;
                end;
                Inscripcio.Next;
        end;

Ahora si que el resultado es correcto

Saludos

Josep

[juanlaplata]

Hola, ten cuidado con el "post" fuera del bucle. Si no se entra en el mismo te dará un error de que el Dataset no esta en modo de edicion o insercion.

[jafera]

Gracias Juan.

Ya lo solucioné siguiendo tus instruciones, este es el problema de reutilizar código, luego borras un begin...end y ya está liada.
Funciona de mil maravillas.

No respondí antes ya que estuve liado como la pata de un romano.

Saludos