Fakt

SDL/Fakturierung/cFakturierung.vb

@@ -553,6 +553,18 @@ Public Class cFakturierung
         'End Select
 
         If SPEDBUCH IsNot Nothing Then
+
+            'CBAM!
+            Select Case SPEDBUCH.Abfertigungsart
+                Case 1, 2, 3, 4, 23, 28, 26, 38, 39, 47
+                    'If checkAnlage_Orig(RECHNUNG) Then
+                    Select Case RECHNUNG.RechnungSprache
+                        Case "EN" : strText = strText & "IMPORTANT INFORMATION: From 01.10.2023, a reporting obligation (CBAM) was introduced for the import of certain goods from third countries into EU. The importer is responsible for this notification." & vbCrLf & "Information at www.zoll.de or www.customs-consulting.at keyword CBAM" & vbCrLf & vbCrLf
+                        Case Else : strText = strText & "WICHTIGE INFORMATION: Ab 01.10.2023 wurde eine Meldepflicht (CBAM) beim Import bestimmter Waren aus Drittländern in die EU eingeführt. Der Importeur ist für diese Meldung eigenverantwortlich." & vbCrLf & "Informationen unter www.zoll.de oder www.customs-consulting.at Stichwort CBAM" & vbCrLf & vbCrLf
+                    End Select
+                    'End If
+            End Select
+
             Select Case SPEDBUCH.Abfertigungsart
                 Case 1, 2, 3, 4, 23, 28, 39, 47
                     If checkAnlage_Orig(RECHNUNG) Then
@@ -562,6 +574,7 @@ Public Class cFakturierung
                         End Select
                     End If
             End Select
+
         End If