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 TdmdBaseCadastro.ValidarDadosCadastro;
  begin
  
  end;
  
  function TdmdBaseCadastro.VerificaAlterarRegistro: Boolean;
  begin
  
  end;
  
  function TdmdBaseCadastro.VerificaCancelarRegistro: Boolean;
  begin
  
  end;
  
  function TdmdBaseCadastro.VerificaEmEdicao: Boolean;
  begin
  
  end;
  
  function TdmdBaseCadastro.VerificaExcluirRegistro: Boolean;
  begin
  
  end;
  
  function TdmdBaseCadastro.VerificaInserirRegistro: Boolean;
  begin
  
  end;
  
  function TdmdBaseCadastro.VerificaIrParaAnterior: Boolean;
  begin
  
  end;
  
  function TdmdBaseCadastro.VerificaIrParaPrimeiro: Boolean;
  begin
  
  end;
  
  function TdmdBaseCadastro.VerificaIrParaProximo: Boolean;
  begin
  
  end;
  
  function TdmdBaseCadastro.VerificaIrParaUltimo: Boolean;
  begin
  
  end;
  
  function TdmdBaseCadastro.VerificaNavegacao: Boolean;
  begin
  
  end;
  
  function TdmdBaseCadastro.VerificaSalvarRegistro: Boolean;
  begin
  
  end;
  
  end.
  
negative.code:     procedure SetarDadosNovoRegistro; virtual;
  
      procedure SetCamposGerador;
      // todo: na sequencia com RTTi
    public
      constructor Create(AOwner: TComponent); override;
      procedure OnDataSetBeforePost(DataSet: TDataSet);
  