SBO中如何将付款和预付款发票联系起来

首先,建立预付款发票

然后,建立付款

设置付款的 Invoices 属性

 

另外 预收款请求的作用:

根据帮助的描述 ,预收款请求可以关闭上一流程的单据,使之可以进行后面的流程,而不会产生日记帐和Stock.

1.   Dim downPayInv As Documents = NstAddon.SBO_Company.GetBusinessObject(BoObjectTypes.oDownPayments)
2.         downPayInv.CardCode = "C00001"
4.         downPayInv.DocDate = Now
5.         downPayInv.Lines.ItemCode = "V00002"
6.         downPayInv.Lines.Price = 1
7.         downPayInv.Lines.Quantity = 3
8.         downPayInv.DownPaymentType = DownPaymentTypeEnum.dptInvoice
10.         lRetCode = downPayInv.Add()
12.         Dim payEntry As Integer = 0
13.         NstAddon.SBO_Company.GetLastError(i, s)
14.         If i <> 0 Then
15.             NstAddon.SBO_Application.MessageBox(i.ToString() & ":" & s)
16.         Else
17.             payEntry = NstAddon.SBO_Company.GetNewObjectKey()
18.             NstAddon.SBO_Application.MessageBox(payEntry)
19.         End If
22.         downPayInv.GetByKey(payEntry)
26.         ''对预收款发票付款
27.         Dim vPay As SAPbobsCOM.Payments
28.         vPay = NstAddon.SBO_Company.GetBusinessObject(BoObjectTypes.oIncomingPayments)
29.         vPay.Invoices.DocEntry = payEntry
30.         vPay.Invoices.InvoiceType = BoRcptInvTypes.it_DownPayment
33.         vPay.Address = "622-7"
34.         vPay.ApplyVAT = 1
35.         vPay.CardCode = "C00001"
36.         vPay.ContactPersonCode = 2
37.         vPay.DocDate = Now
38.         vPay.DocRate = 8
39.         vPay.DocTypte = SAPbobsCOM.BoRcptTypes.rCustomer
40.         vPay.JournalRemarks = "TTTTT - "
41.         vPay.LocalCurrency = BoYesNoEnum.tYES
42.         vPay.TaxDate = Now
43.         vPay.TransferAccount = "10010201"
44.         vPay.TransferDate = Now
45.         vPay.TransferSum = downPayInv.DocTotal
48.         vPay.Add()
51.         NstAddon.SBO_Company.GetLastError(i, s)
52.         If i <> 0 Then
53.             NstAddon.SBO_Application.MessageBox(i.ToString() & ":" & s)
54.         Else
55.             NstAddon.SBO_Application.MessageBox(NstAddon.SBO_Company.GetNewObjectKey())
56.         End If