MS

Services.ZUGFeRDService/My Project/Settings.Designer.vb

@@ -152,6 +152,15 @@ Namespace My
                 Return CType(Me("MSSQLEmailOutAccountID"),Integer)
             End Get
         End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
+        Public ReadOnly Property DEBUG() As Boolean
+            Get
+                Return CType(Me("DEBUG"),Boolean)
+            End Get
+        End Property
     End Class
 End Namespace
 

Services.ZUGFeRDService/My Project/Settings.settings

@@ -35,5 +35,8 @@
     <Setting Name="MSSQLEmailOutAccountID" Type="System.Int32" Scope="Application">
       <Value Profile="(Default)">1</Value>
     </Setting>
+    <Setting Name="DEBUG" Type="System.Boolean" Scope="Application">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
   </Settings>
 </SettingsFile>