anchor.diff:  {$I mDefines.inc}
   
   uses
  -  DB, Classes,
  +  DB, Classes, {$ifdef gui}Forms,{$endif}
     mDatabaseConnection, mDatabaseConnectionClasses,
  -  mProgress, mThreads,
  +  mProgress, mThreads, mPerformedOperationResults,
     mDataPumpConfiguration;
  +
  +resourcestring
  +  SMsgStartProcessingTable = 'Start processing table %s...';
  +  SMsgProcessedRows = 'Processed %d rows against table %s...';
  +  SMsgTableDone = 'Table %s done (%d rows processed)';
   
   type
   
  
positive.code:               except
                  on e : Exception do
                  begin
                    logger.Error('Error in query ' + tmpsql);
                    logger.Error(e.Message);
                    raise;
                  end;
                end;
  
negative.code: 
  procedure TReplicaEngine.InternalReplicaTable(aProgress: ImProgress; aData : TObject; aJobResult: TJobResult);
  begin
    if DoReplicaTable((aData as TJobData).table, aProgress, (aData as TJobData).results) then
      aJobResult.ReturnCode:= 1
    else
      aJobResult.ReturnCode:= -1;
  