如何在ZugFerd/konik中设置简单交货日期?
在ZugFerd/konik中设置交货日期的问题
- 使用从Access-im-Unternehmen获取的类示例可正常运行,通过Access VBA调用该类时,不传入真实日期能生成带XML发票的PDF/A文件。
- 传入格式为
"dd.MM.yyyy"的日期时,无法将其赋值给_Lieferdatum,尝试多种方法均抛出以下错误:System.InvalidCastException: 无法将类型为"java.util.PropertyResourceBundle"的对象转换为类型"sun.util.resources.OpenListResourceBundle"。
- 仅
_Lieferdatum = New ZfDateMonth(DateUtils.addMonths(New ZfDateDay, 1))这行代码能运行,但不符合实际需求;另外Visual Studio为英文设置,错误信息却显示为德语。
相关代码如下:
Imports System.Runtime.InteropServices Imports com.neovisionaries.i18n Imports io.konik Imports io.konik.zugferd Imports io.konik.zugferd.entity Imports io.konik.zugferd.entity.trade Imports io.konik.zugferd.entity.trade.item Imports io.konik.zugferd.profile Imports io.konik.zugferd.unece.codes Imports io.konik.zugferd.unqualified Imports java.io Imports java.math Imports org.apache.commons.lang3.time Imports Country = com.neovisionaries.i18n.CountryCode Imports Currency = com.neovisionaries.i18n.CurrencyCode Public Class ZuGFeRD_NET Private _Lieferdatum As ZfDate Public Property Lieferdatum As String Get Return _Lieferdatum.toString End Get Set(value As String) Dim arr = value.Split(".") Dim str = arr(1) & "/" & arr(0) & "/" & arr(2) ' 02/29/2024 '_Lieferdatum = CDate(value) MsgBox("Lieferdatum" & value) ' 29.02.2024 _Lieferdatum = New ZfDateMonth(DateUtils.addMonths(New ZfDateDay, 1)) MsgBox(_Lieferdatum.getFormatCode()) '610 '_Lieferdatum = New ZfDateDay(DateUtils.parseDate(value)) '_Lieferdatum = New ZfDateDay(DateUtils.parseDate(value, "yyyyMMdd")) '_Lieferdatum = New ZfDateDay(DateUtils.parseDate(value, "dd.MM.yyyy")) '_Lieferdatum = New ZfDateDay '_Lieferdatum.setDate(FormatNumber(arr(0))) '_Lieferdatum.setMonth(FormatNumber(arr(1))) '_Lieferdatum.setYear(FormatNumber(arr(2))) _Lieferdatum = New ZfDateDay(DateUtils.parseDate(str, "yyyyMMdd")) End Set End Property
内容的提问来源于stack exchange,提问作者AnetteVausH
相关产品推荐
相关产品推荐

