instantobjects-cvscommit

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/UIB
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11133/Source/Brokers/UIB

Modified Files:
	InstantUIB.pas 
Log Message:
bug fixing: null parameters

Index: InstantUIB.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIB.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** InstantUIB.pas	3 Dec 2004 16:04:29 -0000	1.3
--- InstantUIB.pas	17 Dec 2004 11:25:11 -0000	1.4
***************
*** 372,397 ****
    begin
      SourceParam := AParams[I];
!     case SourceParam.DataType of
!       ftString:
!         TargetParams.ByNameAsString[SourceParam.Name] := SourceParam.AsString;
!       ftInteger:
!         TargetParams.ByNameAsInteger[SourceParam.Name] := SourceParam.AsInteger;
!       ftFloat:
!         TargetParams.ByNameAsDouble[SourceParam.Name] := SourceParam.AsFloat;
!       ftCurrency:
!         TargetParams.ByNameAsCurrency[SourceParam.Name] := SourceParam.AsCurrency;
!       ftDateTime:
!         TargetParams.ByNameAsDateTime[SourceParam.Name] := SourceParam.AsDateTime;
!       ftBoolean:
!         TargetParams.ByNameAsBoolean[SourceParam.Name] := SourceParam.AsBoolean;
!       ftBlob, ftMemo:
!       begin
!         BlobContent := SourceParam.AsString;
!         TJvUIBDataset(DataSet).ParamsSetBlob(SourceParam.Name, BlobContent);
!       end;
      else
!       raise Exception.Create('Parameter data type not supported: ' +
!         GetEnumName(TypeInfo(TFieldType), Ord(SourceParam.DataType)));
!     end;
    end;
  end;
--- 372,404 ----
    begin
      SourceParam := AParams[I];
!     if SourceParam.IsNull then
!     begin
!       TargetParams.ByNameIsNull[SourceParam.Name];
!     end
      else
!     begin
!       case SourceParam.DataType of
!         ftString:
!           TargetParams.ByNameAsString[SourceParam.Name] := SourceParam.AsString;
!         ftInteger:
!           TargetParams.ByNameAsInteger[SourceParam.Name] := SourceParam.AsInteger;
!         ftFloat:
!           TargetParams.ByNameAsDouble[SourceParam.Name] := SourceParam.AsFloat;
!         ftCurrency:
!           TargetParams.ByNameAsCurrency[SourceParam.Name] := SourceParam.AsCurrency;
!         ftDateTime:
!           TargetParams.ByNameAsDateTime[SourceParam.Name] := SourceParam.AsDateTime;
!         ftBoolean:
!           TargetParams.ByNameAsBoolean[SourceParam.Name] := SourceParam.AsBoolean;
!         ftBlob, ftMemo:
!         begin
!           BlobContent := SourceParam.AsString;
!           TJvUIBDataset(DataSet).ParamsSetBlob(SourceParam.Name, BlobContent);
!         end;
!       else
!         raise Exception.Create('Parameter data type not supported: ' +
!           GetEnumName(TypeInfo(TFieldType), Ord(SourceParam.DataType)));
!       end;
!     end;  
    end;
  end;