Hi Frank,
Maybe if you try something like this (it's not tested!!):
Public Function CheckTender(ByVal MySession As Object) As Integer
Dim oTendersLocal As Object
Dim iReturnLocal As Integer
Try
bReturnLocal = True
oTendersLocal = MySession.Transaction.Tenders
For Each oTenderLocal As Object In oTendersLocal
If oTenderLocal.Entered Then
iReturnLocal = iReturnLocal + 1
End If
Next
Catch ex As Exception
MessageBox.Show("Controled error CheckTender() function" & ex.Message)
iReturnLocal = -1
End Try
Return iReturnLocal
End Function
It will return the number of Tenders used in the Transaction, like 0, 1 or more... If returns -1, then there was an error....
Tell us the results...
Kind regards, A.