首先,建立预付款发票
然后,建立付款
设置付款的 Invoices 属性
另外 预收款请求的作用:
根据帮助的描述 ,预收款请求可以关闭上一流程的单据,使之可以进行后面的流程,而不会产生日记帐和Stock.
- Dim downPayInv As Documents = NstAddon.SBO_Company.GetBusinessObject(BoObjectTypes.oDownPayments)
- downPayInv.CardCode = "C00001"
- downPayInv.DocDate = Now
- downPayInv.Lines.ItemCode = "V00002"
- downPayInv.Lines.Price = 1
- downPayInv.Lines.Quantity = 3
- downPayInv.DownPaymentType = DownPaymentTypeEnum.dptInvoice
- lRetCode = downPayInv.Add()
- Dim payEntry As Integer = 0
- NstAddon.SBO_Company.GetLastError(i, s)
- If i <> 0 Then
- NstAddon.SBO_Application.MessageBox(i.ToString() & ":" & s)
- Else
- payEntry = NstAddon.SBO_Company.GetNewObjectKey()
- NstAddon.SBO_Application.MessageBox(payEntry)
- End If
- downPayInv.GetByKey(payEntry)
- ''对预收款发票付款
- Dim vPay As SAPbobsCOM.Payments
- vPay = NstAddon.SBO_Company.GetBusinessObject(BoObjectTypes.oIncomingPayments)
- vPay.Invoices.DocEntry = payEntry
- vPay.Invoices.InvoiceType = BoRcptInvTypes.it_DownPayment
- vPay.Address = "622-7"
- vPay.ApplyVAT = 1
- vPay.CardCode = "C00001"
- vPay.ContactPersonCode = 2
- vPay.DocDate = Now
- vPay.DocRate = 8
- vPay.DocTypte = SAPbobsCOM.BoRcptTypes.rCustomer
- vPay.JournalRemarks = "TTTTT - "
- vPay.LocalCurrency = BoYesNoEnum.tYES
- vPay.TaxDate = Now
- vPay.TransferAccount = "10010201"
- vPay.TransferDate = Now
- vPay.TransferSum = downPayInv.DocTotal
- vPay.Add()
- NstAddon.SBO_Company.GetLastError(i, s)
- If i <> 0 Then
- NstAddon.SBO_Application.MessageBox(i.ToString() & ":" & s)
- Else
- NstAddon.SBO_Application.MessageBox(NstAddon.SBO_Company.GetNewObjectKey())
- End If