Buscar por:

Tratar campos not null

Código

//Procedure muito útil, para ser utilizada antes de gravar um cadastro

Procedure ChecarcamposRequeridos(tabela : TDataSet);

var

   i : integer;

begin

  for i := 0 to Pred(tabela.Fields.Count) do 

  begin 

  if (tabela.Fields[i].Required) and (tabela.Field[i].IsNull) then 

  begin 

  ShowMessage('Campo: ' + tabela[i].DisplayLabel + ' precisa ser informado!'); 

  break; 

  end;

end;

{Seria interessante editar o valor no campo DinplayLabel para melhor aproveitamento da procedure, clicando duas vezes no ClientDataSet, e em seguida no campo, aparece a propriedade DisplayLabel, que deve ser renomeada para o nome do campo.

Ex:

VL_VENDA, ficaria:

Valor da Venda.}