Hi community!

I need some help.  I have an almost perfect code here in VB.Net  posting a payment in cash receipts.  The only problem is that the batch amount is duplicated.  The batch total is $520.00 instead of $260.00.

What am I doing wrong?

Here is the code:

Dim retVal As Integer
Dim oScript As ProvideX.Script
Dim oSS As ProvideX.PvxDispatch
oScript = New ProvideX.Script
Dim oCR As ProvideX.PvxDispatch
oScript.Init("\\server\Sage 100 Premium ERP\MAS90")
oSS = oScript.NewObject("SY_SESSION")
retVal = oSS.nSetUser("zz", "zz@111")
oSS.nSetCompany("ABC")
retVal = oSS.nSetProgram(oSS.nLookupTask("AR_CashReceipts_ui"))
oCR = oScript.NewObject("AR_CashReceipts_bus", oSS)
Dim BatchNo As String = ""
Dim DepositNo As String = ""
retVal = oCR.oDepositObject.nSelectNewBatch(BatchNo, "N", "Batch 123")
retVal = oCR.oDepositObject.nGetNextDepositNo(DepositNo)
retVal = oCR.oDepositObject.nSetValue("BankCode$", "H")
retVal = oCR.oDepositObject.nSetValue("DepositDate$", "20170210")
retVal = oCR.oDepositObject.nSetValue("DepositDesc$", "Deposit 123")
retVal = oCR.oDepositObject.nSetValue("CashDepositAmt", 260)
retVal = oCR.oDepositObject.nWrite
retVal = oCR.nSetKeyValue("DepositNo$", DepositNo)
retVal = oCR.nSetKeyValue("ARDivisionNo$", "00")
retVal = oCR.nSetKeyValue("CustomerNo$", "01APA")
retVal = oCR.nSetKeyValue("CheckNo$", "123")
retVal = oCR.nSetKey
retVal = oCR.nSetValue("DepositType$", "C")
retVal = oCR.nSetValue("PostingAmt", 260)
retVal = oCR.oLines.nAddLine
retVal = oCR.oLines.nSetValue("InvoiceNo$", "0060487")
retVal = oCR.oLines.nSetValue("AmountPosted", 260)
retVal = oCR.olines.nWrite
retVal = oCR.nWrite
oCR.DropObject()
oCR = Nothing
oSS.DropObject()
oSS = Nothing