update nach Bedingt Retournierbar

2023-06-16 07:28:30 +02:00
parent 1f4e3a6a57
commit 584a947572
382 changed files with 2593860 additions and 21657 deletions
--- a/Project/Settings.Designer.vb
+++ b/Project/Settings.Designer.vb
@@ -57,12 +57,308 @@ Namespace My
        <Global.System.Configuration.UserScopedSettingAttribute(),  _
         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
-        Public Property Setting() As String
+        Public Property Entrypoint_IL() As String
            Get
-                Return CType(Me("Setting"),String)
+                Return CType(Me("Entrypoint_IL"),String)
            End Get
            Set
-                Me("Setting") = value
+                Me("Entrypoint_IL") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=edoka_dms;integrated security=SSPI;persist secu"& _ 
+            "rity info=false;workstation id=;packet size=4096;user id=sa;password=*shu29"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"   "& _ 
+            "     ")>  _
+        Public Property Connectionstring_EDOKA() As String
+            Get
+                Return CType(Me("Connectionstring_EDOKA"),String)
+            End Get
+            Set
+                Me("Connectionstring_EDOKA") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=edoka_journale;integrated security=SSPI;persist"& _ 
+            " security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29"& _ 
+            ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"        ")>  _
+        Public Property Connectionstring_Journale() As String
+            Get
+                Return CType(Me("Connectionstring_Journale"),String)
+            End Get
+            Set
+                Me("Connectionstring_Journale") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("100")>  _
+        Public Property BCK_Intervall() As String
+            Get
+                Return CType(Me("BCK_Intervall"),String)
+            End Get
+            Set
+                Me("BCK_Intervall") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("5")>  _
+        Public Property Dokument_Intervall() As String
+            Get
+                Return CType(Me("Dokument_Intervall"),String)
+            End Get
+            Set
+                Me("Dokument_Intervall") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("K:\EDOKA\__OnBase\ManualImport")>  _
+        Public Property Watch_Dir() As String
+            Get
+                Return CType(Me("Watch_Dir"),String)
+            End Get
+            Set
+                Me("Watch_Dir") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("K:\EDOKA\__OnBase\TempDir")>  _
+        Public Property TempDir() As String
+            Get
+                Return CType(Me("TempDir"),String)
+            End Get
+            Set
+                Me("TempDir") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("K:\EDOKA\__OnBase\TempDirOffice")>  _
+        Public Property TempDirOffice() As String
+            Get
+                Return CType(Me("TempDirOffice"),String)
+            End Get
+            Set
+                Me("TempDirOffice") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
+        Public Property OfficeFormat() As String
+            Get
+                Return CType(Me("OfficeFormat"),String)
+            End Get
+            Set
+                Me("OfficeFormat") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("1")>  _
+        Public Property Debug() As String
+            Get
+                Return CType(Me("Debug"),String)
+            End Get
+            Set
+                Me("Debug") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("0")>  _
+        Public Property SendOnBase() As String
+            Get
+                Return CType(Me("SendOnBase"),String)
+            End Get
+            Set
+                Me("SendOnBase") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("0")>  _
+        Public Property UpdateEDOKA() As String
+            Get
+                Return CType(Me("UpdateEDOKA"),String)
+            End Get
+            Set
+                Me("UpdateEDOKA") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("logdaten")>  _
+        Public Property Logfile() As String
+            Get
+                Return CType(Me("Logfile"),String)
+            End Get
+            Set
+                Me("Logfile") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\bin\exceldata.csv")>  _
+        Public Property ExcelCSV() As String
+            Get
+                Return CType(Me("ExcelCSV"),String)
+            End Get
+            Set
+                Me("ExcelCSV") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("2421")>  _
+        Public Property ExcelDokType() As String
+            Get
+                Return CType(Me("ExcelDokType"),String)
+            End Get
+            Set
+                Me("ExcelDokType") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("1")>  _
+        Public Property DeleteTempFiles() As String
+            Get
+                Return CType(Me("DeleteTempFiles"),String)
+            End Get
+            Set
+                Me("DeleteTempFiles") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=edoka_dms;integrated security=SSPI;persist secu"& _ 
+            "rity info=false;workstation id=;packet size=4096;user id=sa;password=*shu29"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"   "& _ 
+            "     ")>  _
+        Public Property ConnectionString_DokTypMapping() As String
+            Get
+                Return CType(Me("ConnectionString_DokTypMapping"),String)
+            End Get
+            Set
+                Me("ConnectionString_DokTypMapping") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("1")>  _
+        Public Property LogLevel() As String
+            Get
+                Return CType(Me("LogLevel"),String)
+            End Get
+            Set
+                Me("LogLevel") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Send-MailMessage -from &sender& -to &recipient& -Subject ""EDKB08-Dimensions Trans"& _ 
+            "fer"" -Body ""&body&"" -smtpServer smtp.tgcorp.ch")>  _
+        Public Property SendMail_PS() As String
+            Get
+                Return CType(Me("SendMail_PS"),String)
+            End Get
+            Set
+                Me("SendMail_PS") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("aaa")>  _
+        Public Property Sender() As String
+            Get
+                Return CType(Me("Sender"),String)
+            End Get
+            Set
+                Me("Sender") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("bbb")>  _
+        Public Property Recipient() As String
+            Get
+                Return CType(Me("Recipient"),String)
+            End Get
+            Set
+                Me("Recipient") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Send-MailMessage -from &sender& -to &recipient& -Subject ""EDKB08-Dimensions Trans"& _ 
+            "fer"" -Body ""&body&"" -smtpServer smtp.tgcorp.ch")>  _
+        Public Property SendMailCmd() As String
+            Get
+                Return CType(Me("SendMailCmd"),String)
+            End Get
+            Set
+                Me("SendMailCmd") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("edokaonbase.ps1")>  _
+        Public Property SendMailFile() As String
+            Get
+                Return CType(Me("SendMailFile"),String)
+            End Get
+            Set
+                Me("SendMailFile") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("K:\EDOKA\__OnBase\")>  _
+        Public Property SendMailPath() As String
+            Get
+                Return CType(Me("SendMailPath"),String)
+            End Get
+            Set
+                Me("SendMailPath") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
+        Public Property Killcmd() As String
+            Get
+                Return CType(Me("Killcmd"),String)
+            End Get
+            Set
+                Me("Killcmd") = value
            End Set
        End Property
    End Class
@@ -76,9 +372,9 @@ Namespace My
    Friend Module MySettingsProperty
        
        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
-        Friend ReadOnly Property Settings() As Global.EDKB08_DMS.My.MySettings
+        Friend ReadOnly Property Settings() As Global.EDKB02_DMS.My.MySettings
            Get
-                Return Global.EDKB08_DMS.My.MySettings.Default
+                Return Global.EDKB02_DMS.My.MySettings.Default
            End Get
        End Property
    End Module
--- a/Project/Settings.settings
+++ b/Project/Settings.settings
@@ -2,7 +2,82 @@
 <SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
  <Profiles />
  <Settings>
-    <Setting Name="Setting" Type="System.String" Scope="User">
+    <Setting Name="Entrypoint_IL" Type="System.String" Scope="User">
+      <Value Profile="(Default)" />
+    </Setting>
+    <Setting Name="Connectionstring_EDOKA" Type="System.String" Scope="User">
+      <Value Profile="(Default)">data source=shu00;initial catalog=edoka_dms;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
+        </Value>
+    </Setting>
+    <Setting Name="Connectionstring_Journale" Type="System.String" Scope="User">
+      <Value Profile="(Default)">data source=shu00;initial catalog=edoka_journale;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
+        </Value>
+    </Setting>
+    <Setting Name="BCK_Intervall" Type="System.String" Scope="User">
+      <Value Profile="(Default)">100</Value>
+    </Setting>
+    <Setting Name="Dokument_Intervall" Type="System.String" Scope="User">
+      <Value Profile="(Default)">5</Value>
+    </Setting>
+    <Setting Name="Watch_Dir" Type="System.String" Scope="User">
+      <Value Profile="(Default)">K:\EDOKA\__OnBase\ManualImport</Value>
+    </Setting>
+    <Setting Name="TempDir" Type="System.String" Scope="User">
+      <Value Profile="(Default)">K:\EDOKA\__OnBase\TempDir</Value>
+    </Setting>
+    <Setting Name="TempDirOffice" Type="System.String" Scope="User">
+      <Value Profile="(Default)">K:\EDOKA\__OnBase\TempDirOffice</Value>
+    </Setting>
+    <Setting Name="OfficeFormat" Type="System.String" Scope="User">
+      <Value Profile="(Default)" />
+    </Setting>
+    <Setting Name="Debug" Type="System.String" Scope="User">
+      <Value Profile="(Default)">1</Value>
+    </Setting>
+    <Setting Name="SendOnBase" Type="System.String" Scope="User">
+      <Value Profile="(Default)">0</Value>
+    </Setting>
+    <Setting Name="UpdateEDOKA" Type="System.String" Scope="User">
+      <Value Profile="(Default)">0</Value>
+    </Setting>
+    <Setting Name="Logfile" Type="System.String" Scope="User">
+      <Value Profile="(Default)">logdaten</Value>
+    </Setting>
+    <Setting Name="ExcelCSV" Type="System.String" Scope="User">
+      <Value Profile="(Default)">E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\bin\exceldata.csv</Value>
+    </Setting>
+    <Setting Name="ExcelDokType" Type="System.String" Scope="User">
+      <Value Profile="(Default)">2421</Value>
+    </Setting>
+    <Setting Name="DeleteTempFiles" Type="System.String" Scope="User">
+      <Value Profile="(Default)">1</Value>
+    </Setting>
+    <Setting Name="ConnectionString_DokTypMapping" Type="System.String" Scope="User">
+      <Value Profile="(Default)">data source=shu00;initial catalog=edoka_dms;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
+        </Value>
+    </Setting>
+    <Setting Name="LogLevel" Type="System.String" Scope="User">
+      <Value Profile="(Default)">1</Value>
+    </Setting>
+    <Setting Name="SendMail_PS" Type="System.String" Scope="User">
+      <Value Profile="(Default)">Send-MailMessage -from &amp;sender&amp; -to &amp;recipient&amp; -Subject "EDKB08-Dimensions Transfer" -Body "&amp;body&amp;" -smtpServer smtp.tgcorp.ch</Value>
+    </Setting>
+    <Setting Name="Sender" Type="System.String" Scope="User">
+      <Value Profile="(Default)">aaa</Value>
+    </Setting>
+    <Setting Name="Recipient" Type="System.String" Scope="User">
+      <Value Profile="(Default)">bbb</Value>
+    </Setting>
+    <Setting Name="SendMailCmd" Type="System.String" Scope="User">
+      <Value Profile="(Default)">Send-MailMessage -from &amp;sender&amp; -to &amp;recipient&amp; -Subject "EDKB08-Dimensions Transfer" -Body "&amp;body&amp;" -smtpServer smtp.tgcorp.ch</Value>
+    </Setting>
+    <Setting Name="SendMailFile" Type="System.String" Scope="User">
+      <Value Profile="(Default)">edokaonbase.ps1</Value>
+    </Setting>
+    <Setting Name="SendMailPath" Type="System.String" Scope="User">
+      <Value Profile="(Default)">K:\EDOKA\__OnBase\</Value>
+    </Setting>
+    <Setting Name="Killcmd" Type="System.String" Scope="User">
      <Value Profile="(Default)" />
    </Setting>
  </Settings>