anchor.diff:  interface
   
   uses
  -  System.SysUtils, System.Classes, Data.Db;
  +  System.SysUtils, System.Classes, Data.Db, System.StrUtils;
   
   type
     TdmdBaseCadastro = class(TDataModule)
  
positive.code:     procedure SetarDadosNovoRegistro; virtual;
  
      procedure SetCamposGerador;
    public
      constructor Create(AOwner: TComponent); override;
      procedure OnDataSetBeforePost(DataSet: TDataSet);
  
negative.code: 
  procedure TdmdBaseCadastro.AlterarRegistro;
  begin
    FDataSet.Edit;
  end;
  
  procedure TdmdBaseCadastro.AtualizarDataSet;
  begin
    //FDataSet.Refresh;
  
    FDataSet.Close;
    FDataSet.Open;
  
    {$MESSAGE HINT 'Tratar abrir com parmetros'}
    //{$MESSAGE WARN 'Tratar abrir com parmetros'}
    //{$MESSAGE ERROR 'Tratar abrir com parmetros'}
  end;
  
  procedure TdmdBaseCadastro.CancelarRegistro;
  begin
    FDataSet.Cancel;
  end;
  
  constructor TdmdBaseCadastro.Create(AOwner: TComponent);
  