Fied - arrumando display de data 30_12_1899

// Para arrumar a mostragem de 30/12/1899 dos bancos de dados para

// data vazia, e aceitar data vazia, use o seguinte código

// este codigo é unico para todas as datas do projeto

procedure TDM.QyFuncionDTADMISSAOGetText(Sender: TField; var Text: string; DisplayText: Boolean);

begin

  if TDateTimeField(Sender).asDateTime = 0 then

    Text := ''

  else

    Text := FormatDateTime('DD/MM/YYYY', TDateTimeField(Sender).asDateTime);

end;

procedure TDM.QyFuncionDTADMISSAOSetText(Sender: TField; const Text: String);

begin

  if (Text = '30/12/1899') or (Trim(Text) = '') or (Trim(Text) = '/  /') then

    TDateTimeField(Sender).asDateTime := 0

  else

    TDateTimeField(Sender).asDateTime := StrToDate(Trim(Text));

end;