Problem adding Journal entry

Question

Hi everybody.
We've developed an addon for B1 2007A PL 42 and we are facing some concurrency issues.
Some background information:
The add-on has to create a Journal Entry every time an Incoming Payment is made for an Invoice that is in foreign currency and the exchange rate of the day the document is paid is different of that of the Invoice.
This is acheived by catching a successful Incoming Payment using the following code:
if (pVal.EventType == SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED && pVal.FormTypeEx == "170"
                && pVal.ItemUID == "1" && pVal.Action_Success && !pVal.BeforeAction)
//some calculations
  oJEntry.Add();
This works fine except when 2 (or more) users simultaneously add an Incoming Payment (i.e They click the ADD button (almost) at the same time)
When this happens only the last Journal Entry gets added.
Any idea how to solve this?
Thanks

Answer 1

try to use transactions in je adding as
If Not SAP.Connection.oCompany.InTransaction Then
                SAP.Connection.oCompany.StartTransaction()
End If
create je
if its added ok, use¨
If SAP.Connection.oCompany.InTransaction Then
                    SAP.Connection.oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_Commit)
                End If
otherwise
If SAP.Connection.oCompany.InTransaction Then
                    SAP.Connection.oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_RollBack)
                End If