首先,建立预付款发票
然后,建立付款
设置付款的 Invoices 属性
另外 预收款请求的作用:
根据帮助的描述 ,预收款请求可以关闭上一流程的单据,使之可以进行后面的流程,而不会产生日记帐和Stock.
- DimdownPayInvAsDocuments=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()
- DimpayEntryAsInteger=0
- NstAddon.SBO_Company.GetLastError(i,s)
- Ifi<>0Then
- NstAddon.SBO_Application.MessageBox(i.ToString()&":"&s)
- Else
- payEntry=NstAddon.SBO_Company.GetNewObjectKey()
- NstAddon.SBO_Application.MessageBox(payEntry)
- EndIf
- downPayInv.GetByKey(payEntry)
- ''对预收款发票付款
- DimvPayAsSAPbobsCOM.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)
- Ifi<>0Then
- NstAddon.SBO_Application.MessageBox(i.ToString()&":"&s)
- Else
- NstAddon.SBO_Application.MessageBox(NstAddon.SBO_Company.GetNewObjectKey())
- EndIf