diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb
index f26d4acf..2a4aad83 100644
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/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
 
 
diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj
index 51de6250..69090272 100644
--- a/SDL/SDL.vbproj
+++ b/SDL/SDL.vbproj
@@ -3076,6 +3076,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="frmEssensbestellungenAdministration.resx">
       <DependentUpon>frmEssensbestellungenAdministration.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="kassenbuch\frmPOSTerminal.resx">
       <DependentUpon>frmPOSTerminal.vb</DependentUpon>
diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
index 0e5761b6..2301ab52 100644
--- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
+++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
@@ -73,9 +73,9 @@
     <AssemblyOriginatorKeyFile>ProgAllg.pfx</AssemblyOriginatorKeyFile>
   </PropertyGroup>
   <ItemGroup>
-    <Reference Include="ChilkatDotNet47, Version=9.5.0.96, Culture=neutral, PublicKeyToken=eb5fc1fc52ef09bd, processorArchitecture=AMD64">
+    <Reference Include="ChilkatDotNet47, Version=9.5.0.88, Culture=neutral, PublicKeyToken=eb5fc1fc52ef09bd, processorArchitecture=AMD64">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\dll\ChillKat64\ChilkatDotNet47.dll</HintPath>
+      <HintPath>..\..\..\dll\ChillKat64\neu 2023\chilkatdotnet47-9.5.0-x64\ChilkatDotNet47.dll</HintPath>
     </Reference>
     <Reference Include="ClosedXML, Version=0.76.0.0, Culture=neutral, PublicKeyToken=fd1eb21b62ae805b, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
index 040ad91a..e4eda8bb 100644
--- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
+++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
@@ -537,16 +537,12 @@ Public Class cProgramFunctions
 
     Public Function MakeScreenshot()
         Dim form As New Form
-        form = Form.ActiveForm
+        form = form.ActiveForm
         Dim bounds As Rectangle
         Dim screenshot As System.Drawing.Bitmap
         Dim graph As Graphics
-
         If form Is Nothing Then Return ""
-        bounds = form.Bounds
-
-
-        'Screen.PrimaryScreen.Bounds
+        bounds = form.Bounds 'Screen.PrimaryScreen.Bounds
 
         screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
         graph = Graphics.FromImage(screenshot)