AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS Administration

Browse Source
This commit is contained in:
Developer01
2025-05-08 09:20:28 +02:00
parent 5774eb7686
commit fa00f2ab54
4 changed files with 17 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Jobs/ZUGFeRD/XRechnungViewDocument.vb
View File

@@ -143,6 +143,8 @@ Public Class XRechnungViewDocument
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
@@ -170,6 +172,8 @@ Public Class XRechnungViewDocument
MyGDPicturePDF.DrawText(fontResName, 181, yPosition, "Betrag/sum")
yPosition += 5
'Tabellendarstellung Ende
ElseIf oArea = "EXEMPTION" Then
End If
End If
If oArea = "TYPE" Then
@@ -206,6 +210,7 @@ Public Class XRechnungViewDocument
oDisplay = False
yPosition -= 5
End If
End If
Else
'INDIVIDUELLES VERHALTEN BEI Folge-ITEMS
@@ -304,6 +309,8 @@ Public Class XRechnungViewDocument
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