Así es como lo he dejado, pero sigue tardando mucho tiempo, en una aplicacion que usa acces como base de datos este proceso es muy rápido. Yo ya casi que tiro la toalla. Delphius me dice que si uso indices, no se exactamente a que se refiere, campo llave?, si es así es el DNI
Código:
procedure TF_Actualitza.BitBtn1Click(Sender: TObject);
var i:integer;
begin
If RadioGroup1.ItemIndex=0 then
begin
F_Confirmacio := TF_Confirmacio.Create(self);
F_Confirmacio.Label1.Caption:= 'Aquesta acció actualitzarà el Master';
F_Confirmacio.Label2.Caption:= 'general amb les noves dades';
F_Confirmacio.Label3.Caption:= 'Estas segur?';
try
If F_Confirmacio.ShowModal = mrok then
begin
F_ModulDades.MasterE.Close;
F_ModulDades.MasterE.Open;
F_ModulDades.Master.Close;
F_ModulDades.Master.Open;
F_ModulDades.MasterE.Last;
Progressbar1.Max := F_ModulDades.MasterE.RecordCount;
F_ModulDades.MasterE.First;
While not F_ModulDades.MasterE.Eof do
begin
F_ModulDades.Master.Close;
F_ModulDades.Master.SelectSQL.Text:='SELECT COUNT DNI FROM CU0001 WHERE DNI='+QuotedStr(F_ModulDades.MasterEC11.Value);
F_ModulDades.Master.Open;
If F_ModulDades.Master.RecordCount>0 then
begin
F_ModulDades.Master.Edit;
F_ModulDades.MasterNOM.Value:=F_ModulDades.MasterEC5.Value;
F_ModulDades.MasterCOGNOM1.Value:=F_ModulDades.MasterEC6.Value;
F_ModulDades.MasterCOGNOM2.Value:=F_ModulDades.MasterEC7.Value;
F_ModulDades.MasterCODI_CAT.Value:=F_ModulDades.MasterEC8.Value;
F_ModulDades.MasterNACIO.Value:=F_ModulDades.MasterEC9.Value;
F_ModulDades.MasterLLICENCIA.Value:=F_ModulDades.MasterEC10.Value;
F_ModulDades.MasterCODIUCI.Value:=F_ModulDades.MasterEC12.Value;
F_ModulDades.MasterCLUB.Value:=F_ModulDades.MasterEC13.Value;
F_ModulDades.MasterPUBLICITAT.Value:=F_ModulDades.MasterEC15.Value;
F_Moduldades.Master.Post;
F_ModulDades.MasterE.Next;
end
else
begin
F_ModulDades.Master.Last;
i:=F_ModulDades.MasterID_CORREDOR.Value+1;
F_ModulDades.Master.Append;
F_ModulDades.MasterID_CORREDOR.Value:=i;
F_ModulDades.MasterNOM.Value:=F_ModulDades.MasterEC5.Value;
F_ModulDades.MasterCOGNOM1.Value:=F_ModulDades.MasterEC6.Value;
F_ModulDades.MasterCOGNOM2.Value:=F_ModulDades.MasterEC7.Value;
F_ModulDades.MasterCODI_CAT.Value:=F_ModulDades.MasterEC8.Value;
F_ModulDades.MasterNACIO.Value:=F_ModulDades.MasterEC9.Value;
F_ModulDades.MasterLLICENCIA.Value:=F_ModulDades.MasterEC10.Value;
F_ModulDades.MasterDNI.Value:=F_ModulDades.MasterEC11.Value;
F_ModulDades.MasterCODIUCI.Value:=F_ModulDades.MasterEC12.Value;
F_ModulDades.MasterCLUB.Value:=F_ModulDades.MasterEC13.Value;
F_ModulDades.MasterPUBLICITAT.Value:=F_ModulDades.MasterEC15.Value;
F_Moduldades.Master.Post;
F_ModulDades.MasterE.Next;
end;
Progressbar1.Position := F_ModulDades.MasterE.RecNo;
end;
end;
finally
F_Confirmacio.Free;
end;
ShowMessage('Procés finalitzat');
end
else
If RadioGroup1.ItemIndex=1 then
begin
F_Confirmacio := TF_Confirmacio.Create(self);
F_Confirmacio.Label1.Caption:= 'Aquesta acció actualitzarà el Master';
F_Confirmacio.Label2.Caption:= 'general amb les noves dades';
F_Confirmacio.Label3.Caption:= 'Estas segur?';
try
If F_Confirmacio.ShowModal = mrok then
begin
F_ModulDades.MasterC.Close;
F_ModulDades.MasterC.Open;
F_ModulDades.Master.Close;
F_ModulDades.Master.Open;
F_ModulDades.MasterC.Last;
Progressbar1.Max := F_ModulDades.MasterC.RecordCount;
F_ModulDades.MasterC.First;
While not F_ModulDades.MasterC.Eof do
begin
F_ModulDades.Master.Close;
F_ModulDades.Master.SelectSQL.Text:='SELECT * FROM CU0001 WHERE DNI='+QuotedStr(F_ModulDades.MasterEC11.Value);
F_ModulDades.Master.Open;
If F_ModulDades.Master.RecordCount>0 then
begin
F_ModulDades.Master.Edit;
F_ModulDades.MasterNOM.Value:=F_ModulDades.MasterCC5.Value;
F_ModulDades.MasterCOGNOM1.Value:=F_ModulDades.MasterCC6.Value;
F_ModulDades.MasterCOGNOM2.Value:=F_ModulDades.MasterCC7.Value;
F_ModulDades.MasterCODI_CAT.Value:=StrToInt(F_ModulDades.MasterCC10.Value);
F_ModulDades.MasterLLICENCIA.Value:=F_ModulDades.MasterCC11.Value;
F_ModulDades.MasterCLUB.Value:=F_ModulDades.MasterCC13.Value;
F_ModulDades.MasterPUBLICITAT.Value:=F_ModulDades.MasterCC14.Value;
F_Moduldades.Master.Post;
F_ModulDades.MasterC.Next;
end
else
begin
F_ModulDades.Master.Last;
i:=F_ModulDades.MasterID_CORREDOR.Value+1;
F_ModulDades.Master.Append;
F_ModulDades.MasterID_CORREDOR.Value:=i;
F_ModulDades.MasterNOM.Value:=F_ModulDades.MasterCC5.Value;
F_ModulDades.MasterCOGNOM1.Value:=F_ModulDades.MasterCC6.Value;
F_ModulDades.MasterCOGNOM2.Value:=F_ModulDades.MasterCC7.Value;
F_ModulDades.MasterCODI_CAT.Value:=StrToInt(F_ModulDades.MasterCC10.Value);
F_ModulDades.MasterLLICENCIA.Value:=F_ModulDades.MasterCC11.Value;
F_ModulDades.MasterDNI.Value:=F_ModulDades.MasterCC12.Value;
F_ModulDades.MasterCLUB.Value:=F_ModulDades.MasterCC13.Value;
F_ModulDades.MasterPUBLICITAT.Value:=F_ModulDades.MasterCC14.Value;
F_Moduldades.Master.Post;
F_ModulDades.MasterC.Next;
end;
Progressbar1.Position := F_ModulDades.MasterC.RecNo;
end;
end;
finally
F_Confirmacio.Free;
end;
ShowMessage('Procés finalitzat');
end;
end;
Gracias a todos a ver si alguien tiene una bombilla que luzca más que la mia, creo que se me ha fundido de tanto pensar.
Josep