delphi调用用友dll接口CVoucher 凭证类 的完整代码

我提供的是一个示例代码，你可以根据你的需求调整它：Dim Voucher As New CVoucherVoucher.VoucherID = "Voucher01"
Voucher.VoucherType = "1"
Voucher.VoucherDate = "20200101"
Voucher.VoucherNo = "100"
Voucher.EntryNo = "1"
Voucher.VoucherAbstract = "报销"
Voucher.TotalDebitAmount = "100"
Voucher.TotalCreditAmount = "100" Dim Line As CVoucherLine
Line.AccountCode = "1001"
Line.DebitAmount = "100"
Line.CreditAmount = "0"
Voucher.VoucherLines.Add Line Line.AccountCode = "1001"
Line.DebitAmount = "0"
Line.CreditAmount = "100"
Voucher.VoucherLines.Add Line Dim oVoucher As Cvoucher
Dim oVoucherSet As CvoucherSet
oVoucherSet.Add oVoucher Dim cVoucherSet As Object
cVoucherSet = oVoucherSet
Dim r As Long
r = AddVoucher(cVoucherSet) If r = 0 Then
MsgBox "凭证添加成功"
Else
MsgBox "凭证添加失败"
End If