Cita:
Empezado por marcoszorrilla
Código Delphi [-]
procedure TDmNes.RecibosBeforePost(DataSet: TDataSet);
begin
if DmNes.RecibosFecha.Value = null then
DmNes.RecibosFecha.Clear;
end;
|
Disculpa Marcos pero en realidad este código no hace nada. El método Clear de TField lo que hace es precisamente poner en Null el valor del campo de manera que es como poner:
Código Delphi
[-]
procedure TDmNes.RecibosBeforePost(DataSet: TDataSet);
begin
if DmNes.RecibosFecha.Value = null then
DmNes.RecibosFecha.Value := null;
end;