MS Administration

Base/Base.vbproj

@@ -82,6 +82,7 @@
   <ItemGroup>
     <Compile Include="Base\BaseClass.vb" />
     <Compile Include="Base\BaseUtils.vb" />
+    <Compile Include="ECM\ECM.vb" />
     <Compile Include="Encryption\Compression.vb" />
     <Compile Include="Encryption\Encryption.vb" />
     <Compile Include="Encryption\EncryptionLegacy.vb" />

Base/ECM/ECM.vb

@@ -0,0 +1,8 @@
+Public Class ECM
+    Public Enum Product
+        taskFLOW
+        easyFLOW
+        fileFLOW
+        signFLOW
+    End Enum
+End Class

Jobs/ZUGFeRD/XRechnungViewDocument.vb

@@ -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

Windream/Windream.vb

@@ -784,7 +784,7 @@ Public Class Windream
             Return False
         End Try
 
-        _logger.Info($"File '{FilenameTarget}' has been streamde successfully!")
+        _logger.Info($"File '{FilenameTarget}' has been successfully streamed to windream!")
         Dim oDocid = GetIndexValue(FilenameTarget, "Dokument-ID")
         If Not IsNothing(oDocid) Then
             NewDocumentID = oDocid(0)