Clarion code - Get() returns ErrorCode() of 35 when a row is there 1

[rleiman]

Hi Everyone,

Can you look at this code and tell me what I am doing wrong? I am trying to create a single row in the table only if that row is not already there. If it is there I wish to update the row.

ErrorCode() always return 35 even though the add statement adds the row in a previous call to this code.

Thanks.

Emad

! Calculate the weight to update or add.
!---------------------------------------

Clear (GoldAndScrapInStore)

If GOLD:Weight <> LOC:OriginalWeight |
Then
   LOC:WeightToUpdate = GOLD:Weight - LOC:OriginalWeight
Else
   LOC:WeightToUpdate = GOLD:Weight
End

! Update the in store gold weight.
!---------------------------------

Get (GoldAndScrapInStore, 1)

message (errorcode())

GoldScrap:TotalGoldWeight = GoldScrap:TotalGoldWeight + LOC:WeightToUpdate

If ErrorCode() |
Then
   Add (GoldAndScrapInStore)
Else
   Put (GoldAndScrapInStore)
End

 

[ShankarJ]

Hi Emad,

GET(File, Pointer) does not work with TPS files. Do the following instead :

SET(File) ; NEXT(File)
IF ERRORCODE()
...
END

Regards

 

[rleiman]

Hi ShankarJ,

Thanks for the help.

I hope they change it sometime to work. Is that a bug they are aware of?

I did find that if I created a key and did Get (File, key) it works.

Next time I will use Set (File) and Next (File)

Truly,
Emad

 

[ShankarJ]

Hi Emad,

It is not a bug b'cos the internal record numbering is different in TPS. Actually one of the major changes done when I migrated from DAT files to TPS was to make sure all single record files were retrieved by a SET(File) ; NEXT(File) instead of GET(File, 1). Think positive, the SET() methodology will work on ALL database drivers including SQL ones.

Regards