For intI = LBound(arrDetails) To UBound(arrDetails)
        If arrDetails(intI).Amount <> 0 Then
'            dbConnect.Execute spSaveDumpTable(mvarUserID, intI, arrDetails(intI).AccountCode, _
'                arrDetails(intI).Description, Format$(arrDetails(intI).Quantity, "0.00"), Format$(arrDetails(intI).Amount, "0.00"), _
'                arrDetails(intI).ReceiptNum, strAmountInWords, mvarCashMode, mvarCheckMode, mvarCreditCardMode, arrDetails(intI).ChargeSlip, Format$(arrDetails(intI).Discount, "0.00"), arrDetails(intI).ManuDiscount, arrDetails(intI).CashPrice, arrDetails(intI).DiscPercent, dblDoctorShare(intI), dblDoctorshareTax(intI), strPWDID)
        
        dbConnect.Execute spSaveDumpTable(mvarUserID, intI, mvarItemID, _
                arrDetails(intI).Description, Format$(arrDetails(intI).Quantity, "0.00"), Format$(arrDetails(intI).Amount, "0.00"), _
                arrDetails(intI).ReceiptNum, strAmountInWords, mvarCashMode, mvarCheckMode, mvarCreditCardMode, arrDetails(intI).ChargeSlip, Format$(arrDetails(intI).Discount, "0.00"), arrDetails(intI).ManuDiscount, arrDetails(intI).CashPrice, arrDetails(intI).DiscPercent, dblDoctorShare(intI), dblDoctorshareTax(intI), strPWDID)
        
        pclsUser.SQLConnection.Execute "Billing..spCash_SaveChargeSlipReprinting '" + mvarReceiptNum + "', '" + pclsUser.EmployeeCode + "'"
        End If