procedure TForm1.Camions_AuxBeforeInsert(DataSet: TDataSet);
begin
Camions_Aux.Last;
Camions_Aux.Edit;
Camions_AuxACTUAL.Value:= 'N';
Camions_Aux.Post;
end;
procedure TForm1.Camions_AuxAfterCancel(DataSet: TDataSet);
begin
if DataSet.State <> dsInsert then Exit;
Camions_Aux.last;
Camions_Aux.Edit;
Camions_AuxACTUAL.Value:= 'S';
Camions_Aux.Post;
end;
procedure TForm1.Camions_AuxNewRecord(DataSet: TDataSet);
begin
Camions_AuxACTUAL.Value:= 'S';
end;