587 lines
30 KiB
VB.net
587 lines
30 KiB
VB.net
Imports System.Collections.Generic
|
|
Imports System.Data
|
|
Imports System.IO
|
|
Imports DigitalData.Modules.Base
|
|
Imports DigitalData.Modules.Database
|
|
Imports DigitalData.Modules.Logging
|
|
Imports GdPicture14
|
|
Imports System.Drawing
|
|
Imports System.Linq
|
|
Imports System.Text.RegularExpressions
|
|
Public Class XRechnungViewDocument
|
|
Private ReadOnly _logger As Logger
|
|
Private ReadOnly _logConfig As LogConfig
|
|
Private ReadOnly _filesystem As FilesystemEx
|
|
Private ReadOnly _file As ZUGFeRD.FileFunctions
|
|
Private ReadOnly _gdpictureLicenseKey As String
|
|
Private fontResName As String
|
|
Private fontResNameBold As String
|
|
Private fontResNameItalic As String
|
|
Public Sub New(LogConfig As LogConfig, MSSQL As MSSQLServer, GDPictureLicenseKey As String)
|
|
_logConfig = LogConfig
|
|
_logger = LogConfig.GetLogger()
|
|
_filesystem = New FilesystemEx(_logConfig)
|
|
_file = New ZUGFeRD.FileFunctions(LogConfig, MSSQL)
|
|
_gdpictureLicenseKey = GDPictureLicenseKey
|
|
End Sub
|
|
Public Function Create_PDFfromXML(pXmlFile As FileInfo, pDTItemValues As DataTable) As FileInfo
|
|
|
|
_logger.Debug("Create_PDFfromXML() Start")
|
|
|
|
Try
|
|
Dim LicenseManager = New LicenseManager()
|
|
LicenseManager.RegisterKEY(_gdpictureLicenseKey)
|
|
Dim oXRechnungFile = pXmlFile.FullName
|
|
Dim oNewFileinfo As FileInfo
|
|
Dim oXmlFilePath = pXmlFile.FullName
|
|
Dim oViewRecieptFilename = pXmlFile.Name
|
|
Dim oTempFilePath = Path.Combine(Path.GetDirectoryName(oXmlFilePath), "temp")
|
|
If Not Directory.Exists(oTempFilePath) Then
|
|
Directory.CreateDirectory(oTempFilePath)
|
|
End If
|
|
|
|
oTempFilePath = Path.Combine(oTempFilePath, "xrechnung.xml")
|
|
If File.Exists(oTempFilePath) Then
|
|
File.Delete(oTempFilePath)
|
|
End If
|
|
|
|
|
|
pXmlFile = New FileInfo(oTempFilePath)
|
|
|
|
'oViewRecieptFilename = oViewRecieptFilename.Replace(".xml", ".pdf")
|
|
oViewRecieptFilename = Regex.Replace(oViewRecieptFilename, ".xml", ".pdf", RegexOptions.IgnoreCase)
|
|
Using gdpicturePDF As New GdPicturePDF
|
|
' Create a new PDF/A-2a compliant document (blank, no pages yet)
|
|
Dim status As GdPictureStatus = gdpicturePDF.NewPDF(PdfConformance.PDF_A_2a)
|
|
If status = GdPictureStatus.OK Then
|
|
|
|
|
|
|
|
Else
|
|
MsgBox("The NewPDF(PdfConformance.PDF_A_2a) method has failed with the status: " + status.ToString(), "Example: NewPDF")
|
|
End If
|
|
End Using
|
|
Dim MyGDPicturePDF = New GdPicturePDF
|
|
|
|
Dim oPDFStatus As GdPictureStatus = MyGDPicturePDF.NewPDF(PdfConformance.PDF_A_2a)
|
|
|
|
If oPDFStatus <> GdPictureStatus.OK Then
|
|
_logger.Warn($"Error initializing PDF: {oPDFStatus}")
|
|
Return Nothing
|
|
End If
|
|
|
|
Dim oOutputPath = Path.Combine(Path.GetDirectoryName(oXmlFilePath), oViewRecieptFilename)
|
|
_logger.Debug("Create_PDFfromXML() Resulting PDF Filepath: [{0}]", oOutputPath)
|
|
If File.Exists(oOutputPath) Then
|
|
File.Delete(oOutputPath)
|
|
End If
|
|
|
|
_logger.Debug("Vor MOVE... oxmlFilePath: [{0}] / oTempFilePath: [{1}]", oXmlFilePath, oTempFilePath)
|
|
|
|
File.Move(oXmlFilePath, oTempFilePath)
|
|
Dim oCreatedString = $"Maschinell erstellt durch / Automatically created by Digital Data E-Rechnung Parser: {Now.ToString}"
|
|
MyGDPicturePDF.SetOrigin(PdfOrigin.PdfOriginTopLeft)
|
|
MyGDPicturePDF.SetMeasurementUnit(PdfMeasurementUnit.PdfMeasurementUnitMillimeter)
|
|
MyGDPicturePDF.SetLineWidth(1)
|
|
fontResName = MyGDPicturePDF.AddStandardFont(PdfStandardFont.PdfStandardFontHelvetica)
|
|
fontResNameBold = MyGDPicturePDF.AddStandardFont(PdfStandardFont.PdfStandardFontHelveticaBold)
|
|
fontResNameItalic = MyGDPicturePDF.AddStandardFont(PdfStandardFont.PdfStandardFontHelveticaBoldOblique)
|
|
MyGDPicturePDF.SetTitle("xInvoice VisualReceipt")
|
|
MyGDPicturePDF.SetAuthor("Digital Data GmbH, Ludwig Rinn Str. 16, 35452 Heuchelheim")
|
|
'Create a New page
|
|
MyGDPicturePDF.NewPage(PdfPageSizes.PdfPageSizeA4)
|
|
' Dim oCurrent As Integer = MyGDPicturePDF.GetCurrentPage()
|
|
'Den HEader erzeugen
|
|
Dim yPosition As Integer = 15
|
|
MyGDPicturePDF.SetTextSize(18)
|
|
MyGDPicturePDF.DrawText(fontResName, 10, yPosition, "xRechnung Sichtbeleg - xInvoice Visual Receipt")
|
|
yPosition += 10
|
|
MyGDPicturePDF.SetTextSize(10)
|
|
MyGDPicturePDF.DrawText(fontResNameItalic, 10, yPosition, XRechnungStrings.CommentSichtbeleg_DE_Row1)
|
|
yPosition += 5
|
|
MyGDPicturePDF.DrawText(fontResNameItalic, 10, yPosition, XRechnungStrings.CommentSichtbeleg_DE_Row2)
|
|
yPosition += 5
|
|
MyGDPicturePDF.DrawText(fontResNameItalic, 10, yPosition, XRechnungStrings.CommentSichtbeleg_EN_Row1)
|
|
yPosition += 5
|
|
MyGDPicturePDF.DrawText(fontResNameItalic, 10, yPosition, XRechnungStrings.CommentSichtbeleg_EN_Row2)
|
|
'Den Footer erzeugen
|
|
MyGDPicturePDF.DrawLine(10, 280, 200, 280)
|
|
|
|
MyGDPicturePDF.DrawText(fontResName, 10, 285, oCreatedString)
|
|
|
|
Dim oArea As String = ""
|
|
Dim oIsPosition As Boolean = False
|
|
Dim oPosCount = 0
|
|
Dim oPosTerm As String = ""
|
|
Dim oPosDesc As String = ""
|
|
Dim oCurrencySymbol = "€"
|
|
Dim oWidthLine = 200
|
|
yPosition += 5
|
|
|
|
Dim font As New Font("Helvetica", 10)
|
|
Dim xRight As Integer = 100
|
|
Dim oIndex As Integer = 0
|
|
Dim oYPlus As Integer = 0
|
|
Dim oCreateTextBox As Boolean = False
|
|
For Each oRow As DataRow In pDTItemValues.Rows
|
|
Dim Y_eq_lastrow As Boolean = CBool(oRow.Item("Y_eq_lastrow"))
|
|
Dim oRowCaption As String = oRow.Item("Row_Caption")
|
|
Dim oItemSPECNAME As String = oRow.Item("SPEC_NAME")
|
|
Dim oItemValue As String = oRow.Item("ITEM_VALUE")
|
|
Dim oDisplay As Boolean = oRow.Item("Display")
|
|
Dim oAreaSwitch As Boolean = False
|
|
|
|
If oRow.Item("Area") = "INTERNAL" Then
|
|
If oItemSPECNAME = "STATIC_Y_SWITCH" Then
|
|
yPosition = oItemValue
|
|
End If
|
|
End If
|
|
If yPosition >= 270 Then
|
|
oPDFStatus = MyGDPicturePDF.NewPage(PdfPageSizes.PdfPageSizeA4)
|
|
If oPDFStatus <> GdPictureStatus.OK Then
|
|
_logger.Warn($"Could not create a second page. The error was: {oPDFStatus}")
|
|
Exit For
|
|
Else
|
|
'Wieder einen Header und Footer erzeugen
|
|
yPosition = 15
|
|
MyGDPicturePDF.SetTextSize(18)
|
|
MyGDPicturePDF.DrawText(fontResName, 10, yPosition, "xRechnung Sichtbeleg - xInvoice Visual Receipt")
|
|
yPosition += 10
|
|
MyGDPicturePDF.SetTextSize(10)
|
|
MyGDPicturePDF.DrawText(fontResNameItalic, 10, yPosition, XRechnungStrings.CommentSichtbeleg_DE_Row1)
|
|
yPosition += 5
|
|
MyGDPicturePDF.DrawText(fontResNameItalic, 10, yPosition, XRechnungStrings.CommentSichtbeleg_DE_Row2)
|
|
yPosition += 5
|
|
MyGDPicturePDF.DrawText(fontResNameItalic, 10, yPosition, XRechnungStrings.CommentSichtbeleg_EN_Row1)
|
|
yPosition += 5
|
|
MyGDPicturePDF.DrawText(fontResNameItalic, 10, yPosition, XRechnungStrings.CommentSichtbeleg_EN_Row2)
|
|
|
|
MyGDPicturePDF.DrawLine(10, 280, 200, 280)
|
|
'Footer erzeugen
|
|
MyGDPicturePDF.DrawText(fontResName, 10, 285, oCreatedString)
|
|
End If
|
|
'oCurrent = MyGDPicturePDF.GetCurrentPage()
|
|
End If
|
|
|
|
|
|
If oRow.Item("Area") = "INTERNAL" Then
|
|
_logger.Debug($"Next Item as Area is internal")
|
|
Continue For
|
|
End If
|
|
_logger.Debug($"Working on SPEC_NAME: {oItemSPECNAME}")
|
|
|
|
If oArea <> oRow.Item("Area") Then
|
|
'########## AREA WECHSEL ###########
|
|
oAreaSwitch = True
|
|
oCreateTextBox = False
|
|
oArea = oRow.Item("Area")
|
|
_logger.Debug($"Area-Switch to: {oArea}")
|
|
Dim oAREACaption As String
|
|
If oArea = "TYPE" Then
|
|
oAREACaption = $"{Return_InvType(oItemValue)} [{oItemValue}]"
|
|
ElseIf oArea = "SELLER" Then
|
|
oAREACaption = "Verkäufer / Seller:"
|
|
ElseIf oArea = "BUYER" Then
|
|
oAREACaption = "Käufer / Buyer:"
|
|
ElseIf oArea = "POSITION" Then
|
|
oAREACaption = "Positionen / Positions:"
|
|
oIsPosition = True
|
|
ElseIf oArea = "ALLOWANCE" Then
|
|
oAREACaption = "Zu- oder Abschlag/Surcharge or Discount:"
|
|
oIsPosition = True
|
|
ElseIf oArea = "AMOUNT" Then
|
|
oAREACaption = "Beträge / Amounts:"
|
|
oCreateTextBox = True
|
|
ElseIf oArea = "TAXPOS" Then
|
|
oAREACaption = "Steuerbeträge / Tax amounts:"
|
|
oIsPosition = True
|
|
ElseIf oArea = "PAYMENT" Then
|
|
oAREACaption = "Zahlungsinformationen / Payment details:"
|
|
ElseIf oArea = "EXEMPTION" Then
|
|
oAREACaption = "UST.-Befreiungsgrund / Exemption reason:"
|
|
Else
|
|
oAREACaption = String.Empty
|
|
End If
|
|
|
|
If Not oAREACaption = String.Empty Then
|
|
'erste Area-Linie
|
|
yPosition += 5
|
|
MyGDPicturePDF.DrawLine(10, yPosition, oWidthLine, yPosition)
|
|
'gdpicturePDF.DrawText(fontResName, 10, yPosition, XRechnungStrings.Seperator_Line)
|
|
yPosition += 5
|
|
'Area caption
|
|
MyGDPicturePDF.DrawText(fontResNameBold, 10, yPosition, oAREACaption)
|
|
yPosition += 5
|
|
If oArea = "TYPE" Then
|
|
MyGDPicturePDF.DrawLine(10, yPosition, oWidthLine, yPosition)
|
|
' gdpicturePDF.DrawText(fontResName, 10, yPosition, XRechnungStrings.Seperator_Line)
|
|
yPosition += 5
|
|
ElseIf oArea = "POSITION" Then
|
|
MyGDPicturePDF.DrawText(fontResName, 10, yPosition, "Pos#")
|
|
MyGDPicturePDF.DrawText(fontResName, 19, yPosition, "Anz./am.")
|
|
MyGDPicturePDF.DrawText(fontResName, 35, yPosition, "Einh/Unit")
|
|
MyGDPicturePDF.DrawText(fontResName, 50, yPosition, "Pos.Text")
|
|
MyGDPicturePDF.DrawText(fontResName, 164, yPosition, "Steuer/Tax")
|
|
MyGDPicturePDF.DrawText(fontResName, 181, yPosition, "Betrag/Sum")
|
|
yPosition += 5
|
|
ElseIf oArea = "ALLOWANCE" Then
|
|
MyGDPicturePDF.DrawText(fontResName, 10, yPosition, "Pos#")
|
|
MyGDPicturePDF.DrawText(fontResName, 19, yPosition, "Grund/Reason")
|
|
MyGDPicturePDF.DrawText(fontResName, 164, yPosition, "Steuer/Tax")
|
|
MyGDPicturePDF.DrawText(fontResName, 181, yPosition, "Betrag/Sum")
|
|
oPosCount = 0
|
|
ElseIf oArea = "EXEMPTION" Then
|
|
|
|
End If
|
|
End If
|
|
If oArea = "TYPE" Then
|
|
If oItemSPECNAME = "INVOICE_CURRENCY" Then
|
|
If oItemValue <> "EUR" Then
|
|
oCurrencySymbol = oItemValue
|
|
End If
|
|
End If
|
|
ElseIf oArea = "POSITION" Then
|
|
oIsPosition = True
|
|
If oItemSPECNAME = "INVOICE_POSITION_AMOUNT" Then
|
|
oPosCount += 1
|
|
oPosTerm = ""
|
|
MyGDPicturePDF.DrawText(fontResName, 10, yPosition, oPosCount)
|
|
'
|
|
'Dim otextBoxYPos As Integer = yPosition - 3.5
|
|
'MyGDPicturePDF.DrawTextBox(fontResName, 10, otextBoxYPos, 16, YCoo_TextBoxPlus5(otextBoxYPos),
|
|
' TextAlignment.TextAlignmentFar, TextAlignment.TextAlignmentNear,
|
|
' oPosCount)
|
|
MyGDPicturePDF.DrawText(fontResName, 19, yPosition, oItemValue)
|
|
'Tabellendarstellung Ende
|
|
oDisplay = False
|
|
' yPosition -= 5
|
|
End If
|
|
ElseIf oArea = "ALLOWANCE" Then
|
|
oIsPosition = True
|
|
If oItemSPECNAME = "RECEIPT_ALLOWANCE_REASON" Then
|
|
oPosCount += 1
|
|
oPosTerm = ""
|
|
MyGDPicturePDF.DrawText(fontResName, 10, yPosition, oPosCount)
|
|
'
|
|
'Dim otextBoxYPos As Integer = yPosition - 3.5
|
|
'MyGDPicturePDF.DrawTextBox(fontResName, 10, otextBoxYPos, 16, YCoo_TextBoxPlus5(otextBoxYPos),
|
|
' TextAlignment.TextAlignmentFar, TextAlignment.TextAlignmentNear,
|
|
' oPosCount)
|
|
MyGDPicturePDF.DrawText(fontResName, 19, yPosition, oItemValue)
|
|
oDisplay = False
|
|
End If
|
|
ElseIf oArea = "TAXPOS" Then
|
|
oIsPosition = True
|
|
If oItemSPECNAME = "INVOICE_TAXPOS_RATE" Then
|
|
oPosCount = 1
|
|
oPosTerm = $"{oItemValue} %:"
|
|
oItemValue = oPosTerm
|
|
oDisplay = False
|
|
yPosition -= 5
|
|
End If
|
|
|
|
End If
|
|
Else
|
|
'INDIVIDUELLES VERHALTEN BEI Folge-ITEMS
|
|
_logger.Debug($"FollowItem - Area: [{oArea}] - ItemSpecname: [{oItemSPECNAME}] - ItemValue: [{oItemValue}]")
|
|
'Dim otextBoxYPos As Integer
|
|
If oArea = "POSITION" Or oArea = "ALLOWANCE" Then
|
|
If oItemSPECNAME = "INVOICE_POSITION_AMOUNT" Or oItemSPECNAME = "RECEIPT_ALLOWANCE_REASON" Then
|
|
oPosCount += 1
|
|
oYPlus = 0
|
|
yPosition += 5
|
|
oPosTerm = ""
|
|
MyGDPicturePDF.DrawText(fontResName, 10, yPosition, oPosCount)
|
|
If oItemSPECNAME = "INVOICE_POSITION_AMOUNT" Then
|
|
MyGDPicturePDF.DrawText(fontResName, 19, yPosition, oItemValue)
|
|
Else
|
|
Dim oYDyn As Integer = yPosition - 5
|
|
Dim oPartsNL As List(Of String) = StringFunctions.SplitTextByNewLine(oItemValue)
|
|
For Each olinepart As String In oPartsNL
|
|
Dim oParts As List(Of String) = StringFunctions.SplitText_Length(olinepart, 67)
|
|
' Durchlaufen der einzelnen Teile in einer Schleife
|
|
For Each part As String In oParts
|
|
oYDyn += 5
|
|
oYPlus += 5
|
|
MyGDPicturePDF.DrawText(fontResName, 19, oYDyn, part)
|
|
Next
|
|
Next
|
|
End If
|
|
|
|
oDisplay = False
|
|
ElseIf oItemSPECNAME = "INVOICE_POSITION_UNIT_TYPE" Then
|
|
oYPlus = 0
|
|
Dim oUnit = Return_UnitType(oItemValue)
|
|
MyGDPicturePDF.DrawText(fontResName, 35, yPosition, oUnit)
|
|
oDisplay = False
|
|
ElseIf oItemSPECNAME = "INVOICE_POSITION_ARTICLE" Then
|
|
'Tabellendarstellung
|
|
oYPlus = 0
|
|
oPosDesc = ""
|
|
oPosDesc = oItemValue
|
|
Dim oYDyn As Integer = yPosition - 5
|
|
Dim oPartsNL As List(Of String) = StringFunctions.SplitTextByNewLine(oItemValue)
|
|
For Each olinepart As String In oPartsNL
|
|
Dim oParts As List(Of String) = StringFunctions.SplitText_Length(olinepart, 67)
|
|
' Durchlaufen der einzelnen Teile in einer Schleife
|
|
For Each part As String In oParts
|
|
oYDyn += 5
|
|
oYPlus += 5
|
|
MyGDPicturePDF.DrawText(fontResName, 50, oYDyn, part)
|
|
Next
|
|
Next
|
|
oDisplay = False
|
|
ElseIf oItemSPECNAME = "INVOICE_POSITION_NOTE" Then
|
|
'Tabellendarstellung
|
|
Dim cleanedText As String = RemoveNewlinesAndTabs(oItemValue)
|
|
Dim oParts As List(Of String) = StringFunctions.SplitText_Length(cleanedText, 70)
|
|
' Durchlaufen der einzelnen Teile in einer Schleife
|
|
Dim oYDyn As Integer = yPosition
|
|
Dim oPartsNL As List(Of String) = StringFunctions.SplitTextByNewLine(oItemValue)
|
|
For Each olinepart As String In oPartsNL
|
|
Dim oPartsPN As List(Of String) = StringFunctions.SplitText_Length(olinepart, 70)
|
|
' Durchlaufen der einzelnen Teile in einer Schleife
|
|
For Each part As String In oPartsPN
|
|
oYDyn += 5
|
|
oYPlus += 5
|
|
MyGDPicturePDF.DrawText(fontResName, 50, oYDyn, part)
|
|
Next
|
|
Next
|
|
|
|
'oPosTerm += $" {oItemValue}"
|
|
oDisplay = False
|
|
ElseIf oItemSPECNAME = "INVOICE_POSITION_ARTICLE_DESCRIPTION" Then
|
|
'Tabellendarstellung
|
|
Dim cleanedText As String = RemoveNewlinesAndTabs(oItemValue)
|
|
Dim oParts As List(Of String) = StringFunctions.SplitText_Length(cleanedText, 70)
|
|
' Durchlaufen der einzelnen Teile in einer Schleife
|
|
Dim oYDyn As Integer = yPosition
|
|
Dim oPartsNL As List(Of String) = StringFunctions.SplitTextByNewLine(oItemValue)
|
|
For Each olinepart As String In oPartsNL
|
|
Dim oPartsPN As List(Of String) = StringFunctions.SplitText_Length(olinepart, 70)
|
|
' Durchlaufen der einzelnen Teile in einer Schleife
|
|
For Each part As String In oPartsPN
|
|
oYDyn += 5
|
|
oYPlus += 5
|
|
MyGDPicturePDF.DrawText(fontResName, 50, oYDyn, part)
|
|
Next
|
|
Next
|
|
|
|
'oPosTerm += $" {oItemValue}"
|
|
oDisplay = False
|
|
ElseIf oItemSPECNAME = "INVOICE_TAXPOS_TAX_RATE" Or oItemSPECNAME = "INVOICE_TAXPOS_RATE" Or oItemSPECNAME = "RECEIPT_ALLOWANCE_VAT_RATE" Then
|
|
MyGDPicturePDF.DrawText(fontResName, 164, yPosition, $"{oItemValue} %")
|
|
oDisplay = False
|
|
ElseIf oItemSPECNAME = "INVOICE_POSITION_TAX_AMOUNT" Or oItemSPECNAME = "RECEIPT_ALLOWANCE_ACTUAL_AMOUNT" Then
|
|
|
|
Dim oYPos = yPosition - 3.5
|
|
Dim TAXTERM = FormatCurrency(oItemValue, oCurrencySymbol)
|
|
MyGDPicturePDF.DrawTextBox(fontResName, 177, oYPos, 198, YCoo_TextBoxPlus5(oYPos),
|
|
TextAlignment.TextAlignmentFar, TextAlignment.TextAlignmentNear,
|
|
TAXTERM)
|
|
End If
|
|
oItemValue = oPosTerm
|
|
|
|
ElseIf oArea = "HEAD" Then
|
|
If oItemSPECNAME = "INVOICE_DATE" Or oItemSPECNAME = "INVOICE_SERVICE_DATE" Then
|
|
oItemValue = StringFunctions.DatetimeStringToGermanStringConverter(oItemValue, _logger)
|
|
End If
|
|
ElseIf oArea = "TAXPOS" Then
|
|
If oItemSPECNAME = "INVOICE_TAXPOS_RATE" Then
|
|
oPosCount += 1
|
|
oPosTerm = $"{oItemValue} %:"
|
|
oDisplay = False
|
|
ElseIf oItemSPECNAME = "INVOICE_TAXPOS_AMOUNT" Then
|
|
oPosTerm += FormatCurrency(oItemValue, oCurrencySymbol)
|
|
oDisplay = False
|
|
ElseIf oItemSPECNAME = "INVOICE_TAXPOS_TYPE" Then
|
|
oPosTerm += $" {oItemValue}"
|
|
ElseIf oItemValue.Contains("EXEMPTION") Then
|
|
_logger.Debug($"We got an Exemption: {oItemValue}")
|
|
End If
|
|
oItemValue = oPosTerm
|
|
End If
|
|
End If
|
|
|
|
If oDisplay = True And Len(oItemValue) > 0 Then
|
|
If Y_eq_lastrow = False And oAreaSwitch = False Then
|
|
yPosition += 5
|
|
End If
|
|
If oArea = "AMOUNT" Or oArea = "ALLOWANCE" Then
|
|
|
|
Dim oCURRENCYFORMAT = {"INVOICE_TOTAL_TAX", "INVOICE_TOTAL_NET", "INVOICE_TOTAL_GROSS", "RECEIPT_ALLOWANCE_ACTUAL_AMOUNT",
|
|
"RECEIPT_ALLOWANCE_CALCULATION_PERCENT"}
|
|
If oCURRENCYFORMAT.Contains(oItemSPECNAME) Then
|
|
oItemValue = FormatCurrency(oItemValue, oCurrencySymbol)
|
|
End If
|
|
End If
|
|
|
|
|
|
If oRowCaption <> String.Empty Then
|
|
'Zuerst die RowCaption
|
|
MyGDPicturePDF.DrawText(fontResName, 10, yPosition, oRowCaption)
|
|
'Dann den Wert
|
|
If oCreateTextBox Then
|
|
Dim otextBoxYPos = yPosition - 3
|
|
MyGDPicturePDF.DrawTextBox(fontResName, 70, otextBoxYPos, 90, YCoo_TextBoxPlus5(otextBoxYPos),
|
|
TextAlignment.TextAlignmentFar, TextAlignment.TextAlignmentCenter,
|
|
oItemValue)
|
|
Else
|
|
MyGDPicturePDF.DrawText(fontResName, 70, yPosition, oItemValue)
|
|
End If
|
|
|
|
Else
|
|
If Y_eq_lastrow = True Then
|
|
MyGDPicturePDF.DrawText(fontResName, oRow.Item("xPosition"), yPosition, oItemValue)
|
|
Else
|
|
If oItemValue.Length > 112 Then
|
|
' Liste zur Speicherung der Teilstrings
|
|
Dim teilStrings As New List(Of String)
|
|
' Schleife, um den String in Teilstrings zu zerlegen
|
|
For i As Integer = 0 To oItemValue.Length - 1 Step 112
|
|
' Sicherstellen, dass wir nicht über die Länge des Strings hinausgehen
|
|
Dim laenge As Integer = Math.Min(112, oItemValue.Length - i)
|
|
Dim teilString As String = oItemValue.Substring(i, laenge)
|
|
teilStrings.Add(teilString)
|
|
Next
|
|
|
|
' Ausgabe der Teilstrings
|
|
For Each teilString As String In teilStrings
|
|
MyGDPicturePDF.DrawText(fontResName, 10, yPosition, teilString)
|
|
yPosition += 5
|
|
Next
|
|
Else
|
|
MyGDPicturePDF.DrawText(fontResName, 10, yPosition, oItemValue)
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
Else
|
|
'Tabellendarstellung
|
|
If oItemSPECNAME = "INVOICE_POSITION_TAX_AMOUNT" And oYPlus > 0 Then
|
|
yPosition += oYPlus - 5
|
|
End If
|
|
'Tabellendarstellung Ende
|
|
End If
|
|
oIndex += 1
|
|
Next
|
|
|
|
Dim oeinv_Format As PdfInvoiceDataFormat = PdfInvoiceDataFormat.ZUGFeRD_2_0
|
|
MyGDPicturePDF.EmbedFile(oTempFilePath, "Rechnungsdaten im ZUGFeRD-XML-Format")
|
|
'Finalize And save the PDF
|
|
oPDFStatus = MyGDPicturePDF.SaveToFile(oOutputPath)
|
|
If oPDFStatus = GdPictureStatus.OK Then
|
|
_logger.Info("PDF VisualReceipt generated successfully!")
|
|
Else
|
|
_logger.Warn($"Error generating PDF VisualReceipt: {oPDFStatus}")
|
|
File.Move(oTempFilePath, oXmlFilePath)
|
|
End If
|
|
|
|
'Release resources
|
|
MyGDPicturePDF.CloseDocument()
|
|
If oPDFStatus = GdPictureStatus.OK Then
|
|
File.Delete(oXRechnungFile)
|
|
oNewFileinfo = New FileInfo(oOutputPath)
|
|
|
|
_logger.Info("Create_PDFfromXML() End successfully. File [{0}] written.", oNewFileinfo.FullName)
|
|
Return oNewFileinfo
|
|
Else
|
|
_logger.Warn("Create_PDFfromXML() Ends with nothing")
|
|
Return Nothing
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
_logger.Error(ex)
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
Private Function FormatCurrency(ByVal pValue As String, pCurrencySymbol As String) As String
|
|
pValue = pValue.Replace(".", ",")
|
|
Dim oBetrag As Decimal = pValue
|
|
Dim oFormatiert As String = oBetrag.ToString("N2", New Globalization.CultureInfo("de-DE"))
|
|
oFormatiert = $"{oFormatiert} {pCurrencySymbol}"
|
|
Return oFormatiert
|
|
End Function
|
|
Private Function FormatStringT(ByVal text As String) As String
|
|
Return text.Replace(vbCr, " - ").Replace(vbLf, "").Replace(vbTab, " ")
|
|
End Function
|
|
Private Function RemoveNewlinesAndTabs(ByVal text As String) As String
|
|
Return text.Replace(vbCr, " - ").Replace(vbLf, "").Replace(vbTab, " ")
|
|
End Function
|
|
Private Function YCoo_TextBoxMinus5(yPosition As Integer)
|
|
Return yPosition - 5
|
|
End Function
|
|
Private Function YCoo_TextBoxPlus5(yPosition As Integer)
|
|
Return yPosition + 5
|
|
End Function
|
|
|
|
|
|
Function SplitTextByNewLine(text As String) As List(Of String)
|
|
If String.IsNullOrEmpty(text) Then
|
|
Return New List(Of String)()
|
|
End If
|
|
|
|
' Zerlege den Text anhand von Zeilenumbrüchen
|
|
Dim lines As List(Of String) = text.Split({vbCrLf, vbLf, vbCr}, StringSplitOptions.None).ToList()
|
|
Return lines
|
|
End Function
|
|
Private Function Return_InvType(pType As String) As String
|
|
Dim oReturn As String = "Rechnung/invoice"
|
|
If pType = "380" Then
|
|
oReturn = "Handelsrechnung/Commercial invoice"
|
|
ElseIf pType = "381" Then
|
|
oReturn = "Gutschriftanzeige/Credit advice"
|
|
ElseIf pType = "384" Then
|
|
oReturn = "Rechnungskorrektur/Invoice correction"
|
|
ElseIf pType = "386" Then
|
|
oReturn = "Vorauszahlungsrechnung/Prepayment invoice"
|
|
ElseIf pType = "326" Then
|
|
oReturn = "Teilrechnung/Partial invoice"
|
|
ElseIf pType = "84" Then
|
|
oReturn = "Gutschrift/Credit note"
|
|
ElseIf pType = "389" Then
|
|
oReturn = "Gutschriftsverfahren/Credit note procedure"
|
|
End If
|
|
Return oReturn
|
|
End Function
|
|
|
|
Private Function Return_UnitType(pType As String) As String
|
|
Dim oReturn As String = "Stück/pc"
|
|
If pType = "C62" Then
|
|
oReturn = "Stück/pc"
|
|
ElseIf pType = "DAY" Then
|
|
oReturn = "Tag/day"
|
|
ElseIf pType = "HAR" Then
|
|
oReturn = "Hek/hec"
|
|
ElseIf pType = "HUR" Then
|
|
oReturn = "h"
|
|
ElseIf pType = "KGM" Then
|
|
oReturn = "kg"
|
|
ElseIf pType = "KTM" Then
|
|
oReturn = "km"
|
|
ElseIf pType = "KWH" Then
|
|
oReturn = pType
|
|
ElseIf pType = "LS" Then
|
|
oReturn = "pausch/flat"
|
|
ElseIf pType = "MIN" Then
|
|
oReturn = "minute"
|
|
ElseIf pType = "MTK" Then
|
|
oReturn = "QM/SM"
|
|
ElseIf pType = "Kubik/CM" Then
|
|
oReturn = "MTR"
|
|
ElseIf pType = "Meter" Then
|
|
oReturn = "minute"
|
|
ElseIf pType = "P1" Then
|
|
oReturn = "%"
|
|
ElseIf pType = "SET" Then
|
|
oReturn = "Set"
|
|
ElseIf pType = "TNE" Then
|
|
oReturn = "Tonne/ton"
|
|
ElseIf pType = "WEE" Then
|
|
oReturn = "Woche/week"
|
|
End If
|
|
Return oReturn
|
|
End Function
|
|
|
|
End Class
|