Subject | Re: 3.6 C released to all areas. |
---|---|
Author | jrt@gtz.com |
Post date | 2000-12-06T21:17:39Z |
OK,
I'm at location, so it hard to create a sample app. I have included
the code below.
Server 5.6
Client gds 5.1
HTH
John
procedure TfrmJob.IB_QConfigurationCalculateField(Sender:
TIB_Statement;
ARow: TIB_Row; AField: TIB_Column);
var
x: ansistring;
I: INTEGER;
begin
if AFIELD.FieldName = 'WIN_COUNT' then begin
X := AROW.BYNAME('DESCRIPTION').ASSTRING;
I := CountF(X, '-', 1) + 1; // hyperstr func to count occurances
AFIELD.AsInteger := I;
end;
end;
I'm at location, so it hard to create a sample app. I have included
the code below.
Server 5.6
Client gds 5.1
HTH
John
procedure TfrmJob.IB_QConfigurationCalculateField(Sender:
TIB_Statement;
ARow: TIB_Row; AField: TIB_Column);
var
x: ansistring;
I: INTEGER;
begin
if AFIELD.FieldName = 'WIN_COUNT' then begin
X := AROW.BYNAME('DESCRIPTION').ASSTRING;
I := CountF(X, '-', 1) + 1; // hyperstr func to count occurances
AFIELD.AsInteger := I;
end;
end;