Insert in table where ID is autoincrement

http://www.mibuso.com/forum/viewtopic.php?t=14145


There is no real use to the: lv_ReceptItem.RESET; command you are issuing unless there are filter(s)/key attached you wish to remove prior to the FORM.RUNMODAL. (Any present filter(s)/key will not affect a record insertion)

Try the same code whilst commenting out the following lines of code:

COMMIT;
FORM.RUNMODAL(50007,lv_ReceptItem);

Do you have any code within the table?

Have you tried removing/commenting out the COMMIT (& FORM.RUNMODAL)?

The reason why you are experiencing this issue is because you're making direct calls to the table which in result is setting the table's current position whilst you are issuing your 'insert' code:

Rec.FINDLAST (aka 6th = last one)

And you are trying to insert new record with that.


Personally I would not even have that function inside the table itself. I would make the entire process transparent.

You do see his function in the very table he is attempting to insert the new record(s) right kine?

Can also see how he is making reference to the current instance (Rec) of the table which in result is changing his current position within the table.

It makes sense since he IS assigning ID = 0 and everything else before making the call to his function of 'GetNextRegelNr'

Xypher wrote:

Here is a solution you might be able to work with:

//::Receipt Item Table::

OnInsert()

  lReceiptItemRec.RESET;
  lReceiptItemRec.SETCURRENTKEY(ID);
  
  IF lReceiptItemRec.FINDLAST THEN
    ID := (lReceiptItemRec.ID + 1)
  ELSE
    ID += 1;

  lReceiptItemRec.SETCURRENTKEY(ReceiptID, Regelnr);
  lReceiptItemRec.SETFILTER(ReceiptID,'%1',ReceiptID);

  IF lReceiptItemRec.FINDLAST THEN
    Regelnr := (lReceiptItemRec.Regelnr + 1)
  ELSE
    Regelnr += 1;

Just make sure to use lv_ReceiptItem.INSERT(TRUE); when inserting the new records.

(Since you would like multiple "Auto"Increments why implement one by code and another by property? I'd rather rely on looking at one area regarding this if I have to make any changes in the future)

I recommend to use LOCKTABLE in your code to lock the table when searching for last record. And this locking can lead to performance problems in some situation. And it is why the Autoincrement is better if you need just quickly inert the entries with minimal locking... ;-)

You do see his function in the very table he is attempting to insert the new record(s) right kine?

Can also see how he is making reference to the current instance (Rec) of the table which in result is changing his current position within the table.

It makes sense since he IS assigning ID = 0 and everything else before making the call to his function of 'GetNextRegelNr'

1) Version of the client is base info for any support...
2) Yes, I know that he tried to zero the PK. I want to make him sure that if he is doing that, it is ok and it is not the source of the problem
3) All the code is wrong because this:

IF CONFIRM('Bent u zeker dat u een nieuwe rij wil toevoegen?',TRUE) THEN BEGIN
lv_ReceptItem.INIT;
lv_ReceptItem.ID := 0;
lv_ReceptItem.ReceptID := ReceptID;
lv_ReceptItem.Regelnr := lv_ReceptItem.GetNextRegelNr(ReceptID);
lv_ReceptItem.INSERT;
COMMIT;
FORM.RUNMODAL(50007,lv_ReceptItem);
END;

PK is zeroed on variable lv_ReceptItem
Values are assigned on variable lv_ReceptItem
But the call of lv_ReceptItem.GetNextRegelNr(ReceptID) will change the record in the variable lv_ReceptItem to something other because using the Rec. It means all previous assignments are lost and in the variable lv_ReceptItem is another record. The INSERT will fail because this record already exists.

Solution is simple, just use another variable (some local variable) instead REC in the function GetNextRegelNr. 8) Nothing with autoincrement... ;-)

You may also want to consider that if you require each unique Receipt ID have its own incremented value (Regelnr) it would be in your best interest to make your 'GetNextRegelNr' function a transparent process. (As in not needing to call the said function every time you place code to insert new or modify current records.)