Subject | Re: [IBO] IBOPipelineunit |
---|---|
Author | Russell Belding |
Post date | 2002-03-21T21:19:46Z |
Hello John
Thanks for your effort here, I could use your working copy as soon as you
upload it. Would you please post a message to this group saying where it is?
Thanks,
Russell
""John Tomaselli"" <jrt@...> wrote in message
news:NDBBJDKPGKONJHGNBDEJCEDLEEAA.jrt@......
-
-
-
-
-
-
Thanks for your effort here, I could use your working copy as soon as you
upload it. Would you please post a message to this group saying where it is?
Thanks,
Russell
""John Tomaselli"" <jrt@...> wrote in message
news:NDBBJDKPGKONJHGNBDEJCEDLEEAA.jrt@......
> Geoff,file://- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> I have a working Pipeling with D6 and latest IBO. Where should I send it?
> John
>
> -----Original Message-----
> From: Geoff Worboys [mailto:geoff@...]
> Sent: Thursday, March 21, 2002 7:28 AM
> To: Russell Belding
> Subject: Re: [IBO] IBOPipelineunit
>
>
> > Did you find out if a new IBOPipeline unit is required, and if so is
> > one available?
>
> Not sure if there is an updated unit posted anywhere yet but if you
> like you can edit the pipeline unit to change the following function
> as shown (you may have to corrent any bad wrapping from the email)...
>
> function TppIBOPipeline.WorkingColumnDataType: TppDataType;
> begin
> Result := dtNotKnown;
>
> if Assigned(FWorkingColumn) then begin
> with FWorkingColumn do begin
>
>
>
>
-
> if IsNumeric then begin file://...TIB_ColumnNumBase descendantReportBuilder
> if (FWorkingColumn is TIB_ColumnSmallInt) then begin
> {NOTE: RB uses dtInteger for smallint...}
> Result := dtInteger;
> end else if (FWorkingColumn is TIB_ColumnInteger) then begin
> Result := dtLongint;
> {$IFNDEF IBO_CPPB}
> // end else if (FWorkingColumn is TIB_ColumnComp) then begin
> file://TODO// Comp 64bit datatype is not supported by
> file://### Result := dt????; ###dtString ###
> // Result := dtString; file://<=-not supported yet, so use
> file://###file://- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> {$ENDIF}
> end else if (FWorkingColumn is TIB_ColumnNumeric) then begin
> if FWorkingColumn.IsCurrencyDataType then
> Result := dtCurrency
> else
> Result := dtExtended;
> end else if (FWorkingColumn is TIB_ColumnFloat) then begin
> Result := dtSingle;
> end else if (FWorkingColumn is TIB_ColumnDouble) then begin
> Result := dtDouble;
> // end else if (FWorkingColumn is TIB_ColumnCurr) then begin
> // Result := dtCurrency;
> end;
>
>
>
>
-
> file://WARNING// -- Check for IsBlob before checking for IsTextdescendant
> end else if IsBlob then begin file://...TIB_ColumnBlob or
> if IsText then begin file://...probably a TIB_ColumnMemofile://- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> Result := dtMemo;
> end else begin
> Result := dtBLOB;
> end;
>
>
>
>
-
> end else if IsText then begin file://...TIB_ColumnText ordescendant
> Result := dtString;file://- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
>
> file://TODO// ??? ADD SUPPORT FOR CHAR(1) COLUMNS -=> dtChar
>
> file://TODO// ??? ADD SUPPORT FOR BOOLEAN COLUMNS -=> dtBoolean
>
>
>
>
>
-
> end else if IsDateTime then begin file://...TIB_ColumnDateTimefile://- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> if IsDateOnly then begin
> Result := dtDate;
> file://TODO// -- ADD THIS IF IT GETS IMPLEMENTED IN IB OBJECTS...
> file://else if IsTimeOnly then begin
> // Result := dtTime;
> end else begin
> Result := dtDateTime;
> end;
>
>
>
>
-
> end else begin file://...return dtString for any other typesfile://- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> Result := dtString;
> end;
>
>
>
>
-
> end;___________________________________________________________________________
> end;
> end;
>
>
>
> --
> Geoff Worboys
> Telesis Computing
>
>
>
>
> IB Objects - direct, complete, custom connectivity to Firebird orInterBase
> without the need for BDE, ODBC or any other layer.___________________________________________________________________________
>
> http://www.ibobjects.com - your IBO community resource for Tech Infopapers,
> keyword-searchable FAQ, community code contributions and more !___________________________________________________________________________
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>
>
>
>
> IB Objects - direct, complete, custom connectivity to Firebird orInterBase
> without the need for BDE, ODBC or any other layer.___________________________________________________________________________
>
> http://www.ibobjects.com - your IBO community resource for Tech Infopapers,
> keyword-searchable FAQ, community code contributions and more !
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>
>