336 lines
16 KiB
VB.net
336 lines
16 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
|
|
|
|
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
|
|
Private MyGDPicturePDF As GdPicturePDF
|
|
|
|
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(oxmlFile As FileInfo, pDTItemValues As DataTable) As FileInfo
|
|
|
|
_logger.Debug("Create_PDFfromXML() Start")
|
|
|
|
Try
|
|
Dim oXRechnungFile = oxmlFile.FullName
|
|
Dim oNewFileinfo As FileInfo
|
|
Dim oxmlFilePath = oxmlFile.FullName
|
|
Dim oViewRecieptFilename = oxmlFile.Name
|
|
Dim oTempFilePath = Path.GetDirectoryName(oxmlFilePath) + "\Temp"
|
|
If Not Directory.Exists(oTempFilePath) Then
|
|
Directory.CreateDirectory(oTempFilePath)
|
|
End If
|
|
|
|
oTempFilePath = oTempFilePath + "\xrechnung.xml"
|
|
If File.Exists(oTempFilePath) Then
|
|
File.Delete(oTempFilePath)
|
|
End If
|
|
File.Move(oxmlFilePath, oTempFilePath)
|
|
oxmlFile = New FileInfo(oTempFilePath)
|
|
oViewRecieptFilename = oViewRecieptFilename.Replace("xml", "pdf")
|
|
Dim oOutputPath = Path.GetDirectoryName(oxmlFilePath) + "\" + oViewRecieptFilename
|
|
If File.Exists(oOutputPath) Then
|
|
File.Delete(oOutputPath)
|
|
End If
|
|
|
|
MyGDPicturePDF = New GdPicturePDF()
|
|
MyGDPicturePDF.NewPDF(PdfConformance.PDF_A_2a)
|
|
Dim oPDFStatus As GdPictureStatus = MyGDPicturePDF.NewPDF()
|
|
If oPDFStatus <> GdPictureStatus.OK Then
|
|
_logger.Warn($"Error initializing PDF: {oPDFStatus}")
|
|
Return Nothing
|
|
End If
|
|
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()
|
|
|
|
Dim yPosition As Integer = Create_PageHeader(False)
|
|
Create_PageFooter()
|
|
|
|
Dim oArea As String = ""
|
|
Dim oIsPosition As Boolean = False
|
|
Dim oPosCount = 0
|
|
Dim oPosTerm As String = ""
|
|
Dim oCurrencySymbol = "€"
|
|
yPosition += 5
|
|
Dim oIndex As Integer = 0
|
|
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
|
|
yPosition = Create_PageHeader(True)
|
|
Create_PageFooter()
|
|
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
|
|
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 = "AMOUNT" Then
|
|
oAREACaption = "Beträge / Amounts:"
|
|
ElseIf oArea = "TAXPOS" Then
|
|
oAREACaption = "Steuerbeträge / Tax amounts:"
|
|
oIsPosition = True
|
|
ElseIf oArea = "PAYMENT" Then
|
|
oAREACaption = "Zahlungsinformationen / Payment details:"
|
|
Else
|
|
oAREACaption = String.Empty
|
|
End If
|
|
|
|
If Not oAREACaption = String.Empty Then
|
|
'erste Area-Linie
|
|
yPosition += 5
|
|
MyGDPicturePDF.DrawLine(10, yPosition, 125, 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, 125, yPosition)
|
|
' gdpicturePDF.DrawText(fontResName, 10, yPosition, XRechnungStrings.Seperator_Line)
|
|
yPosition += 5
|
|
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 = $"{oPosCount}. {oItemValue} * "
|
|
oItemValue = oPosTerm
|
|
oDisplay = False
|
|
yPosition -= 5
|
|
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: {oItemSPECNAME} - ItemValue: {oItemValue}")
|
|
If oArea = "POSITION" Then
|
|
If oItemSPECNAME = "INVOICE_POSITION_AMOUNT" Then
|
|
oPosCount += 1
|
|
oPosTerm = $"{oPosCount}. {oItemValue} * "
|
|
oDisplay = False
|
|
ElseIf oItemSPECNAME = "INVOICE_POSITION_ARTICLE" Then
|
|
oPosTerm += $" {oItemValue}"
|
|
oDisplay = False
|
|
ElseIf oItemSPECNAME = "INVOICE_TAXPOS_TAX_RATE" Or oItemSPECNAME = "INVOICE_TAXPOS_RATE" Then
|
|
oPosTerm += $" - {oItemValue} %"
|
|
oDisplay = False
|
|
ElseIf oItemSPECNAME = "INVOICE_POSITION_TAX_AMOUNT" Then
|
|
oPosTerm += $" - {oItemValue} {oCurrencySymbol}"
|
|
End If
|
|
oItemValue = oPosTerm
|
|
ElseIf oArea = "HEAD" Then
|
|
If oItemSPECNAME = "INVOICE_DATE" Or oItemSPECNAME = "INVOICE_SERVICE_DATE" Then
|
|
Dim oDateString As String = oItemValue
|
|
Dim oParsedDate As DateTime = DateTime.ParseExact(oDateString, "yyyyMMdd", System.Globalization.CultureInfo.InvariantCulture)
|
|
oItemValue = oParsedDate.ToString("dd.MM.yyyy")
|
|
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 += $" {oItemValue} {oCurrencySymbol}"
|
|
oDisplay = False
|
|
ElseIf oItemSPECNAME = "INVOICE_TAXPOS_TYPE" Then
|
|
oPosTerm += $" - {oItemValue}"
|
|
End If
|
|
oItemValue = oPosTerm
|
|
End If
|
|
End If
|
|
|
|
If oDisplay = True Then
|
|
If Y_eq_lastrow = False And oAreaSwitch = False Then
|
|
yPosition += 5
|
|
End If
|
|
If oArea = "AMOUNT" Then
|
|
If oItemSPECNAME = "INVOICE_TOTAL_NET" Or oItemSPECNAME = "INVOICE_TOTAL_GROSS" Then
|
|
oItemValue += $" {oCurrencySymbol}"
|
|
End If
|
|
End If
|
|
|
|
|
|
If oRowCaption <> String.Empty Then
|
|
MyGDPicturePDF.DrawText(fontResName, 10, yPosition, oRowCaption)
|
|
MyGDPicturePDF.DrawText(fontResName, 70, yPosition, oItemValue)
|
|
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
|
|
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}")
|
|
End If
|
|
|
|
'Release resources
|
|
MyGDPicturePDF.CloseDocument()
|
|
If oPDFStatus = GdPictureStatus.OK Then
|
|
File.Delete(oXRechnungFile)
|
|
oNewFileinfo = New FileInfo(oOutputPath)
|
|
|
|
_logger.Debug("Create_PDFfromXML() End successfully")
|
|
Return oNewFileinfo
|
|
Else
|
|
_logger.Debug("Create_PDFfromXML() Ends with nothing")
|
|
Return Nothing
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
_logger.Error(ex)
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
|
|
Public Function Create_PageHeader(pFollowPage As Boolean) As Integer
|
|
'Draw content on the PDF
|
|
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)
|
|
Return yPosition
|
|
End Function
|
|
|
|
Public Sub Create_PageFooter()
|
|
MyGDPicturePDF.DrawLine(10, 280, 200, 280)
|
|
Dim oCreatedString = $"Maschinell erstellt durch / Automatically created by Digital Data E-Rechnung Parser: {Now.ToString}"
|
|
MyGDPicturePDF.DrawText(fontResName, 10, 285, oCreatedString)
|
|
End Sub
|
|
|
|
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
|
|
|
|
End Class
|