Fórum Urgentissimo #381267

Ola wesley , Como voce ve abaixo fiz um rotina para exportar dados de um banco firebird para sql, é aquele negocio do identificador. Estou tentando no momento que o programa do cara la registrar uma nova chamada eu tranporte ela na mesma hora para o sqlserver. Como voce abaixo fiz a rotina , quase tudo certo so que da aquele tal de deadlock , ao meu entender isso acontece quando duas pessoas tentao alter o mesmo registo. Da uma olhada nesse codigo e me diz o que esta errado ai.     Sempre que entra uma nova chamada no banco do kara la , eu busco ele transfiro para o sqlserver e seto o estatus com 'f' , afinal preciso de um criterio para nao copiar coisas repetidas.   Da uma força amigo veja o que estou fazendo de errado.   Ja adiantando eu vou precisar rodar isso futuramente como serviço pois no evento timer pesa demais a aplicaçao , seria possivel futuramente voce me ajudar e criar um serviço ?         procedure TfrmMigracaoFirebird.tmrTesteTimer(Sender: TObject);
begin
  dsTodasLinhasF.DataSet.close;
  dsTodasLinhasF.DataSet.Open;   Dmfirebird.cdsTodasLinhasf.First;
  while not Dmfirebird.cdsTodasLinhasf.Eof do
  begin
    with Dmfirebird do
    begin
      cdsTodasLinhasSQl.Open;
      cdsTodasLinhasSQl.Append;
      cdsTodasLinhasSQlNr_Linha.AsInteger := cdsTodasLInhasFLinha.AsInteger;
      cdsTodasLinhasSQlDS_DDD.AsString := cdsTodasLInhasFDDD.AsString;
      cdsTodasLinhasSQlDs_Fone.AsString := cdsTodasLInhasFFone.AsString;
      cdsTodasLinhasSQlDs_Nome.AsString := cdsTodasLInhasFNome.AsString;
      cdsTodasLinhasSQlHr_Inicio.AsString := cdsTodasLInhasFInicio.AsString;
      cdsTodasLinhasSQlHr_Fim.AsString := cdsTodasLInhasFFim.AsString;
      cdsTodasLinhasSQlTempoTotal.AsString := cdsTodasLInhasFTempoTotal.AsString;
      cdsTodasLinhasSQlFileRecord.AsString := cdsTodasLInhasFFileRecord.AsString;
      cdsTodasLinhasSQlTipo.AsInteger := cdsTodasLInhasFTipo.AsInteger;
      cdsTodasLinhasSQlId_Usuario.AsString := '1';
      cdsTodasLinhasSQlFiltro.AsString := cdsTodasLInhasFFiltro.AsString;
      cdsTodasLinhasSQlTipoCH.AsString := cdsTodasLInhasFTipoCH.AsString;
      cdsTodasLinhasSQlOPR.AsString := cdsTodasLInhasFOPR.AsString;
      cdsTodasLinhasf.Next;
      cdsTodasLinhasSQl.Post;
    end;
    Dmfirebird.cdsTodasLinhasSQl.ApplyUpdates(0);
    Dmfirebird.cdsTodasLinhasSQl.EmptyDataSet;
  end;   Dmfirebird.cdsTodasLinhasf.First;
  while not Dmfirebird.cdsTodasLinhasf.Eof do
  begin
    Dmfirebird.cdsTodasLinhasf.Edit;
    Dmfirebird.cdsTodasLInhasFESTATUS.AsString := 'f';
    Dmfirebird.cdsTodasLinhasf.Next;
  end;   Dmfirebird.cdsTodasLinhasf.ApplyUpdates(0);
  Dmfirebird.cdsTodasLinhasf.EmptyDataSet;   dsTodasLinhasSQl.DataSet.close;
  dsTodasLinhasSQl.DataSet.Open;   lblsql.Caption := IntToStr(dsTodasLinhasSQl.DataSet.RecordCount); end;