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

首先,建立预付款发票

然后,建立付款

设置付款的 Invoices 属性

另外 预收款请求的作用:

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

1. DimdownPayInvAsDocuments=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. DimpayEntryAsInteger=0
13. NstAddon.SBO_Company.GetLastError(i,s)
14. Ifi<>0Then
15. NstAddon.SBO_Application.MessageBox(i.ToString()&":"&s)
16. Else
17. payEntry=NstAddon.SBO_Company.GetNewObjectKey()
18. NstAddon.SBO_Application.MessageBox(payEntry)
19. EndIf
22. downPayInv.GetByKey(payEntry)
26. ''对预收款发票付款
27. DimvPayAsSAPbobsCOM.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. Ifi<>0Then
53. NstAddon.SBO_Application.MessageBox(i.ToString()&":"&s)
54. Else
55. NstAddon.SBO_Application.MessageBox(NstAddon.SBO_Company.GetNewObjectKey())
56. EndIf