La base de datos que me dá error es la Firebird, la tabla que me dá errores, le he hecho un count y me da un total de 653.398 registros y simplemente lo que hago es acceder a la tabla mediante los componentes tTable de la solapa Data Access y simplemnte lo que hago es asignaciones de un campo a otro. Ya te digo el código funciona perfectamente en todas las bases de datos que he probado excepto en esta, siendo la estructura la misma, ya que ese era el proposito de la aplicación.
El código que utilizo para dicho volcado de datos es el siguiente:
Código:
procedure TForm1.btProcesarClick(Sender: TObject);
var
i, j, k, nLinea : Integer;
cTabla : String;
begin
nLinea := 0;
Bloquear_Botones(True);
try
// Abrimos las dos transacciones.
if trTrans1.InTransaction then trTrans1.Rollback;
trTrans1.StartTransaction;
trTrans3.StartTransaction;
// Antes de nada comprobamos si está marcado el check, y si es así
// desactivamos todos los triggers de Insert de la tabla apuntes y
// de la tabla cuentas.
if mmTriggers.Lines.Count <> 0 then Deshabilitar_Triggers;
// Una vez todo listo, procesamos los datos.
for i := 0 to mmPlantilla.Lines.Count - 1 do // Recorremos la lista de tablas.
begin
cTabla := Trim(mmPlantilla.lines[i]);
// Si es la tabla cuentas, debemos realizar dos pasadas.
if UpperCase(cTabla) = 'CUENTAS' then
begin
// Primera pasada
tbTabla1.TableName := cTabla;
tbTabla3.TableName := cTabla;
pgbProceso.Position := 0;
MandarMensaje('Sincronizando tabla [ ' + cTabla + ' - pasada 1 ].');
tbTabla1.Active := True;
tbTabla1.First;
tbTabla3.Active := True;
// Contamos el total de registros
tbTabla1.Last;
tbTabla1.First;
pgbProceso.Max := tbTabla1.RecordCount;
k := 0;
while not tbTabla1.Eof do
begin
lbContador.Caption := IntToStr(k) + ' de ' + IntToStr(pgbProceso.Max);
application.ProcessMessages;
nLinea := tbTabla1.RecNo;
tbTabla3.Insert;
for j := 0 to tbTabla1.Fields.Count - 1 do
begin
if (j <> 9) and (j <> 10) then
tbTabla3.Fields[j].Value := tbTabla1.Fields[j].Value;
end;
pgbProceso.StepIt;
application.ProcessMessages;
tbTabla3.Post;
tbTabla1.Next;
Inc(k);
end;
pgbProceso.Position := pgbProceso.Max;
trTrans3.Commit;
trTrans3.StartTransaction;
tbTabla1.Active := False;
tbTabla3.Active := False;
// Programación de la 2ª pasada en la cual lo que se hace es
// pasar la cuenta del debe y la cuenta del haber.
tbTabla1.TableName := cTabla;
tbTabla3.TableName := cTabla;
pgbProceso.Position := 0;
MandarMensaje('Sincronizando tabla [ ' + cTabla + ' - pasada 2 ].');
tbTabla1.Active := True;
tbTabla1.First;
tbTabla3.Active := True;
tbTabla1.Last;
tbTabla1.Edit;
pgbProceso.Max := tbTabla1.RecordCount;
k := 0;
while not tbTabla1.Eof do
begin
lbContador.Caption := IntToStr(k) + ' de ' + IntToStr(pgbProceso.Max);
application.ProcessMessages;
nLinea := tbTabla1.RecNo;
tbTabla3.Insert;
for j := 9 to 10 do
tbTabla3.Fields[j].Value := tbTabla1.Fields[j].Value;
pgbProceso.StepIt;
application.ProcessMessages;
tbTabla3.Post;
tbTabla1.Next;
Inc(k);
end;
pgbProceso.Position := pgbProceso.Max;
trTrans3.Commit;
trTrans3.StartTransaction;
tbTabla1.Active := False;
tbTabla3.Active := False;
end
else
begin
// Procesamos el resto de las tablas.
if Trim(cTabla) <> '' then
begin
tbTabla1.TableName := cTabla;
tbTabla3.TableName := cTabla;
pgbProceso.Position := 0;
MandarMensaje('Sincronizando tabla [ ' + cTabla + ' ].');
tbTabla1.Active := True;
tbTabla1.First;
tbTabla3.Active := True;
tbTabla1.Last;
tbTabla1.First;
pgbProceso.Max := tbTabla1.RecordCount;
k := 0;
while not tbTabla1.Eof do
begin
lbContador.Caption := IntToStr(k) + ' de ' + IntToStr(pgbProceso.Max);
Application.ProcessMessages;
nLinea := tbTabla1.RecNo;
tbTabla3.Insert;
for j := 0 to tbTabla1.Fields.Count - 1 do
begin
// CONTROL CON EL QUE REVISAMOS SI EN LA RAZON SOCIAL DE LOS REGISTRO DE IVA
// NO SE HA INTRODUCIDO NADA. SI ES ASÍ, ENTONCES PONEMOS DICHO LITERAL.
if UpperCase(cTabla) = 'REGISTRO_IVA' then
begin
if UpperCase(tbTabla1.Fields[j].FieldName) = 'CRAZ_SOCIAL' then
begin
if tbTabla1.Fields[j].Value = '' then
tbTabla3.Fields[j].Value := 'SIN RAZON SOCIAL'
else tbTabla3.Fields[j].Value := tbTabla1.Fields[j].Value;
end
else tbTabla3.Fields[j].Value := tbTabla1.Fields[j].Value;
end
else tbTabla3.Fields[j].Value := tbTabla1.Fields[j].Value;
end;
pgbProceso.StepIt;
application.ProcessMessages;
tbTabla3.Post;
tbTabla1.Next;
Inc(k);
end;
pgbProceso.Position := pgbProceso.Max;
trTrans3.Commit;
trTrans3.StartTransaction;
tbTabla1.Active := False;
tbTabla3.Active := False;
end;
end;
end;
// Si está marcado el Check para actualizar contadores de SurConta, entonces los acutalizamos.
if chkAjSurConta.Checked then Actualizar_Contadores(2);
// Antes de nada validar el resto de las operaciones, procedemos
// a activar de nuevo todos los triggers que hemos desactivado.
if mmTriggers.Lines.Count <> 0 then Habilitar_Triggers;
trTrans3.Commit;
trTrans1.Rollback;
MessageDlg('Proceso de sincronización finalizado.', mtInformation, [mbOK], 0);
MandarMensaje('Proceso de sincronización finalizado.');
except
on E: Exception do
begin
// MessageDlg('Hubo un error en el proceso de sincronización de las bases de datos.', mtError, [mbOK], 0);
MandarMensaje('Error en la siguiente línea [ ' + IntToStr(nLinea) + ' ] de la tabla [ ' + cTabla + ' ] con el siguiente mensaje [ ' + e.message + ' ].');
trTrans1.Rollback;
trTrans3.Rollback;
end;
end;
Bloquear_Botones(False);
end;