Subject | TIB_Query's OnCalculateEvent |
---|---|
Author | Hie Joen |
Post date | 2001-12-05T09:55:45Z |
Dear List,
I have a calculated field in one of my TIB_Query and put needed statement in the OnCalculateField event:
procedure TfrmSalesOrder.qrSOCalculateField(Sender: TIB_Statement;
ARow: TIB_Row; AField: TIB_Column);
begin
inherited;
with AField do
if FieldName = 'SO_CREDIT' then
AsCurrency := ARow.ByName('SO_TOTAL_AMT').AsCurrency -
ARow.ByName('SO_BOOKING_FEE').AsCurrency;
end;
I have two TIB_Edit control for SO_TOTAL_AMT and SO_BOOKING_FEE.
OnCalculateField event is fire when I enter and start typing into the TIB_Edit control but not when I exit the control and the value is changed. Is this correct behaviour or I miss something ?
I already read IBO help and IBO online FAQ but didn't find the solution. I'm using Delphi 5 + IBO 4.2Fm + Firebird Beta2.
TIA
HJ
[Non-text portions of this message have been removed]
I have a calculated field in one of my TIB_Query and put needed statement in the OnCalculateField event:
procedure TfrmSalesOrder.qrSOCalculateField(Sender: TIB_Statement;
ARow: TIB_Row; AField: TIB_Column);
begin
inherited;
with AField do
if FieldName = 'SO_CREDIT' then
AsCurrency := ARow.ByName('SO_TOTAL_AMT').AsCurrency -
ARow.ByName('SO_BOOKING_FEE').AsCurrency;
end;
I have two TIB_Edit control for SO_TOTAL_AMT and SO_BOOKING_FEE.
OnCalculateField event is fire when I enter and start typing into the TIB_Edit control but not when I exit the control and the value is changed. Is this correct behaviour or I miss something ?
I already read IBO help and IBO online FAQ but didn't find the solution. I'm using Delphi 5 + IBO 4.2Fm + Firebird Beta2.
TIA
HJ
[Non-text portions of this message have been removed]