anchor.diff:    TmDatabaseVendor = (dvUnknown, dvSQLServer);
   
     TmParameterDataType = (ptUnknown, ptDate, ptDateTime, ptInteger, ptFloat, ptString, ptWideString);
  +
  +  TmBooleanParameterConvention = (bpcUseIntegers);
   
   { TmQueryParameter }
   
  
positive.code:     procedure Assign(aValue : TNullableInteger); overload;
      procedure Assign(aValue : TNullableDateTime); overload;
      procedure Assign(aValue : TNullableDouble); overload;
      procedure Assign(const aFilter : TmFilter); overload;
  
      procedure AsStringList (aList : TStringList);
  
negative.code:     Self.AsFloat:= aValue.Value;
  end;
  
  procedure TmQueryParameter.Assign(aValue: TNullableBoolean; const aConvention: TmBooleanParameterConvention);
  begin
    if aValue.IsNull then
      Self.SetNull
    else
      if aConvention = bpcUseIntegers then
      begin
        if aValue.Value then
          Self.AsInteger:= 1
        else
          Self.AsInteger:= 0;
      end;
  end;
  
  procedure TmQueryParameter.Assign(const aFilter : TmFilter);
  begin
    if aFilter.DataType = fdtDate then
  