Das Fälligkeitsdatum der Zahlung spiegelt das Fälligkeitsdatum der Nettozahlung wider.
Dim PaymentTermsDescription As String = "Zahlbar sofort und ohne Abzug" 'BT-20
Dim DueDate As String = alo.TodayDate.Document_Date 'BT-9
Dim DirectDebitMandateID As String = "" 'BG-19 / BT-89
alo.AddTradePaymentTerms(PaymentTermsDescription, DueDate, alo.TodayDate.Document_DateFormat, DirectDebitMandateID)
Natuerlich koennen Sie die PaymentTerms auch auslesen:
If alo.TradePaymentTermsCount > 0 Then
For i = 0 To alo.TradePaymentTermsCount
Dim index As Long
Dim Description As String = ""
Dim ActualDiscountAmount As String = ""
Dim tCalculationPercent As String = ""
Dim ttDirectDebitMandateID As String = ""
Dim tDueDate As String = ""
Dim BasisDateTime As String = ""
Call alo.TradePaymentTerm(index, Description, ActualDiscountAmount, tCalculationPercent, ttDirectDebitMandateID, BasisDateTime, tDueDate)
Next i
End If