You need to enable JavaScript to run this app.
优惠活动
大模型
产品
解决方案
定价
更多

如何在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

相关产品推荐
方舟 Agent Plan

超全模态模型 × Harness 升级,最新支持 Deepseek-V4.1-Flash、GLM-5.3 系列、Doubao-Seedream-5.0-pro、Kimi-K3 (部分), 限时 9.9 元起

最近更新时间:2026.06.29 02:28:13