Fórum A linha não pôde ser encontrada para a atualização... #295723

    while not adoPPADespesa.Eof do
    begin
      AdoDSTabelaDestino.Locate(´CD_PPA_DESPESA´, (adoPPADespesa.FieldByName(´CD_PPA_DESPESA´).asString), []);
      if adoPPADespesa.FieldByName(´CD_PPA_DESPESA´).asInteger = AdoDSTabelaDestino.FieldByName(´CD_PPA_DESPESA´).asInteger Then
      begin
        AdoDSTabelaDestino.Edit;
        AdoDSTabelaDestino.FieldByName (´AN_PPA_DESPESA_CORRENTE´).asString := adoPPADespesa.FieldByName (´AN_PPA_DESPESA_CORRENTE´).asString;
        AdoDSTabelaDestino.FieldByName (´CD_UNIDADE_GESTORA´).asString      := adoPPADespesa.FieldByName (´CD_UNIDADE_GESTORA´).asString;
        AdoDSTabelaDestino.FieldByName (´CD_UNIDADE_ORCAMENTARIA´).asString := adoPPADespesa.FieldByName (´CD_UNIDADE_ORCAMENTARIA´).asString;
        AdoDSTabelaDestino.FieldByName (´CD_FUNCAO´).asString               := adoPPADespesa.FieldByName (´CD_FUNCAO´).asString;
        AdoDSTabelaDestino.FieldByName (´CD_SUBFUNCAO´).asString            := adoPPADespesa.FieldByName (´CD_SUBFUNCAO´).asString;
        AdoDSTabelaDestino.FieldByName (´CD_PROGRAMA´).asString             := adoPPADespesa.FieldByName (´CD_PROGRAMA´).asString;
        AdoDSTabelaDestino.FieldByName (´CD_PROJETO_ATIVIDADE´).asString    := adoPPADespesa.FieldByName (´CD_PROJETO_ATIVIDADE´).asString;
        AdoDSTabelaDestino.FieldByName (´CD_MACRO_OBJETIVO´).asString       := adoPPADespesa.FieldByName (´CD_MACRO_OBJETIVO´).asString;
        AdoDSTabelaDestino.FieldByName (´CD_FONTE_RECURSO´).asString        := adoPPADespesa.FieldByName (´CD_FONTE_RECURSO´).asString;
        AdoDSTabelaDestino.FieldByName (´NR_PPA_DESPESA_FICHA´).asString    := adoPPADespesa.FieldByName (´NR_PPA_DESPESA_FICHA´).asString;
        AdoDSTabelaDestino.FieldByName (´QT_PPA_DESPESA_CORRENTE´).asFloat   := adoPPADespesa.FieldByName (´QT_PPA_DESPESA_CORRENTE´).asFloat;
        AdoDSTabelaDestino.FieldByName (´VL_PPA_DESPESA_CORRENTE´).asFloat   := adoPPADespesa.FieldByName (´VL_PPA_DESPESA_CORRENTE´).asFloat;
        AdoDSTabelaDestino.FieldByName (´QT_PPA_DESPESA_01´).asFloat         := adoPPADespesa.FieldByName (´QT_PPA_DESPESA_01´).asFloat;
        AdoDSTabelaDestino.FieldByName (´VL_PPA_DESPESA_01´).asFloat         := adoPPADespesa.FieldByName (´VL_PPA_DESPESA_01´).asFloat;
        AdoDSTabelaDestino.FieldByName (´QT_PPA_DESPESA_02´).asFloat         := adoPPADespesa.FieldByName (´QT_PPA_DESPESA_02´).asFloat;
        AdoDSTabelaDestino.FieldByName (´VL_PPA_DESPESA_02´).asFloat         := adoPPADespesa.FieldByName (´VL_PPA_DESPESA_02´).asFloat;
        AdoDSTabelaDestino.FieldByName (´QT_PPA_DESPESA_03´).asFloat         := adoPPADespesa.FieldByName (´QT_PPA_DESPESA_03´).asFloat;
        AdoDSTabelaDestino.FieldByName (´VL_PPA_DESPESA_03´).asFloat         := adoPPADespesa.FieldByName (´VL_PPA_DESPESA_03´).asFloat;
        AdoDSTabelaDestino.FieldByName (´QT_PPA_DESPESA_04´).asFloat         := adoPPADespesa.FieldByName (´QT_PPA_DESPESA_04´).asFloat;
        AdoDSTabelaDestino.FieldByName (´VL_PPA_DESPESA_04´).asFloat         := adoPPADespesa.FieldByName (´VL_PPA_DESPESA_04´).asFloat;
        AdoDSTabelaDestino.Post;
        adoPPADespesa.Next;
      end else