Hola.
Tenes suerte que sea domingo.. que me he tomado el tiempo para "entender" el código publicado de esta manera. Para una próxima oportunidad, te recomiendo hacerlo entre las etiquetas [ delphi ] existentes en el club, y de las que hay mas información en el mensaje que está al inicio de cada foro.
Código Delphi
[-]
With dm3 do
Begin
TClientesADM.DisableControls;
CBTableSet5.DisableControls;
CBTableSet6.DisableControls;
try
TClientesADM.Open;
TClientesADM.EmptyTable;
CBTableSet6.open;
CBTableSet5.first;
while not cbTableSet5.eof do
Begin
TClientesADM.append;
TClientesADMCIDCLIEN01.AsInteger:=CBTableSet5CIDCLIEN01.asinteger;
TClientesADMCCODIGOC01.AsString:= CBTableSet5CCODIGOC01.AsString;
TClientesADMCRAZONSO01.AsString:= CBTableSet5CRAZONSO01.AsString;
TClientesADMCRFC.AsString:= CBTableSet5CRFC.AsString;
VcodigoCli:= TClientesADMCIDCLIEN01.Asinteger;
if cbTable6.FindKey(VCodigoCli) Then
Begin
TClientesADMCDIRECCION.AsString:=
CBTableSet6CNOMBREC01.AsString + ' '+ 'No.'+' '+
CBTableSet6CNUMEROE01.AsString + ' '+ 'Col.'+' '+
CBTableSet6CCOLONIA.Asstring;
TClientesADMCPAIS.AsString:= CBTableSet6CPAIS.Asstring;
TClientesADMCESTADO.AsString:= CBTableSet6CESTADO.Asstring;
TClientesADMCCIUDAD.AsString:= CBTableSet6CCIUDAD.Asstring;
CBTAbleSet6.next;
End;
TClientesADM.post;
cbTableSet5.Next;
FMenu.ProgressBar1.StepIt;
End;
finally
TClientesADM.EnableControls;
CBTableSet5.EnableControls;
CBTableSet6.EnableControls;
end;
FMenu.ProgressBar1.Position := 0;
End;
He cambiado el orden de algunas cosas, y quitado la re-apertura de la tabla cbTable6 del medio. También he agrupado los disablecontrols, de manera que sean posible rehabilitar los controles en caso de algún fallo.
También he quitado un doble recorrido del TableSet5, al que no hallé ningún sentido.
Un asunto "grave" y que es el que mas tiempo consume, es el recorrido de la tabla cbTable6 por cada registro de la tabla que se procesa. Si cbTable6 tiene 100 registros, y cbTableSet5 1600, tenemos en potencia 160,000 registros procesados para la cbTable6 al final del asunto.
Dado que es paradox, he cambiado el ciclo por un locate, pero podria ser también un Query que te devolviese exactamente ese registro.
Hasta luego.