Initial commit

_korr_boersenabrechnung/_korr_boersenabrechnung.sln

@@ -0,0 +1,25 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio Version 16
+VisualStudioVersion = 16.0.30309.148
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "_korr_boersenabrechnung", "_korr_boersenabrechnung\_korr_boersenabrechnung.vbproj", "{CB9105D0-B63A-4B57-9BD0-E6B0A728576A}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{CB9105D0-B63A-4B57-9BD0-E6B0A728576A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{CB9105D0-B63A-4B57-9BD0-E6B0A728576A}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{CB9105D0-B63A-4B57-9BD0-E6B0A728576A}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{CB9105D0-B63A-4B57-9BD0-E6B0A728576A}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+	GlobalSection(ExtensibilityGlobals) = postSolution
+		SolutionGuid = {5515BCF9-776D-470B-BD7F-8F12F06D5A84}
+	EndGlobalSection
+EndGlobal

_korr_boersenabrechnung/_korr_boersenabrechnung/App.config

@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <configSections>
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="_korr_boersenabrechnung.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
+    </configSections>
+    <startup> 
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
+    </startup>
+    <userSettings>
+        <_korr_boersenabrechnung.My.MySettings>
+            <setting name="connstring_int" serializeAs="String">
+                <value>data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
+            </setting>
+            <setting name="connstring_prod" serializeAs="String">
+                <value>data source=shu00;initial catalog=edoka_TestB;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
+            </setting>
+            <setting name="temppfad" serializeAs="String">
+                <value>k:\edoka\</value>
+            </setting>
+        </_korr_boersenabrechnung.My.MySettings>
+    </userSettings>
+</configuration>

_korr_boersenabrechnung/_korr_boersenabrechnung/GenSQL.vb

@@ -0,0 +1,110 @@
+Imports System
+Imports System.Text
+Imports System.Data
+Imports System.Data.OleDb
+Imports System.Data.SqlClient
+
+Namespace GenSQL
+    Module GenerateSQL
+        Function BuildAllFieldsSQL(ByVal table As DataTable) As String
+            Dim sql As String = ""
+
+            For Each column As DataColumn In table.Columns
+                If sql.Length > 0 Then sql += ", "
+                sql += column.ColumnName
+            Next
+
+            Return sql
+        End Function
+
+        Public Function BuildInsertSQL(ByVal table As DataTable) As String
+            Dim sql As StringBuilder = New StringBuilder("INSERT INTO " & table.TableName & " (")
+            Dim values As StringBuilder = New StringBuilder("VALUES (")
+            Dim bFirst As Boolean = True
+            Dim bIdentity As Boolean = False
+            Dim identityType As String = Nothing
+
+            For Each column As DataColumn In table.Columns
+
+                If column.AutoIncrement Then
+                    bIdentity = True
+
+                    Select Case column.DataType.Name
+                        Case "Int16"
+                            identityType = "smallint"
+                        Case "SByte"
+                            identityType = "tinyint"
+                        Case "Int64"
+                            identityType = "bigint"
+                        Case "Decimal"
+                            identityType = "decimal"
+                        Case Else
+                            identityType = "int"
+                    End Select
+                Else
+
+                    If bFirst Then
+                        bFirst = False
+                    Else
+                        sql.Append(", ")
+                        values.Append(", ")
+                    End If
+
+                    sql.Append(column.ColumnName)
+                    values.Append("@")
+                    values.Append(column.ColumnName)
+                End If
+            Next
+
+            sql.Append(") ")
+            sql.Append(values.ToString())
+            sql.Append(")")
+
+            If bIdentity Then
+                sql.Append("; SELECT CAST(scope_identity() AS ")
+                sql.Append(identityType)
+                sql.Append(")")
+            End If
+
+            Return sql.ToString()
+        End Function
+
+        Sub InsertParameter(ByVal command As SqlCommand, ByVal parameterName As String, ByVal sourceColumn As String, ByVal value As Object)
+            Dim parameter As SqlParameter = New SqlParameter(parameterName, value)
+            parameter.Direction = ParameterDirection.Input
+            parameter.ParameterName = parameterName
+            parameter.SourceColumn = sourceColumn
+            parameter.SourceVersion = DataRowVersion.Current
+            command.Parameters.Add(parameter)
+        End Sub
+
+        Function CreateInsertCommand(ByVal row As DataRow) As SqlCommand
+            Dim table As DataTable = row.Table
+            Dim sql As String = BuildInsertSQL(table)
+            Dim command As SqlCommand = New SqlCommand(sql)
+            command.CommandType = System.Data.CommandType.Text
+
+            For Each column As DataColumn In table.Columns
+
+                If Not column.AutoIncrement Then
+                    Dim parameterName As String = "@" & column.ColumnName
+                    InsertParameter(command, parameterName, column.ColumnName, row(column.ColumnName))
+                End If
+            Next
+
+            Return command
+        End Function
+
+        Function InsertDataRow(ByVal row As DataRow, ByVal connectionString As String) As Object
+            Dim command As SqlCommand = CreateInsertCommand(row)
+
+            Using connection As SqlConnection = New SqlConnection(connectionString)
+                command.Connection = connection
+                command.CommandType = System.Data.CommandType.Text
+                connection.Open()
+                Return command.ExecuteScalar()
+            End Using
+        End Function
+    End Module
+End Namespace
+

_korr_boersenabrechnung/_korr_boersenabrechnung/Module1.vb

@@ -0,0 +1,346 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+Imports System.Windows.forms
+
+Module Module1
+
+    Dim ds As New DataSet
+    Dim dsdaten As New DataSet
+    Dim dadaten As SqlDataAdapter
+    Dim cstring_int As String = My.Settings.connstring_int
+    Dim cstring_prod As String = My.Settings.connstring_prod
+    Dim dokumentid_ursprung As String
+    Dim dokumentid_ziel As String
+    Dim debug As Boolean
+    Dim errorcode As Integer = 0
+    Dim SQL_Scripts As Boolean = True
+
+    Sub Main()
+
+        Dim clArgs() As String = Environment.GetCommandLineArgs()
+        dokumentid_ursprung = clArgs(1)
+        dokumentid_ziel = clArgs(2)
+        Try
+            debug = clArgs(3) = "DEBUG"
+        Catch
+            debug = True
+        End Try
+
+        Try
+            SQL_Scripts = clArgs(4) = "SQL"
+        Catch ex As Exception
+            SQL_Scripts = True
+        End Try
+
+        'Dokument lesen
+        get_data("select * from dokument where dokumentid='" + dokumentid_ursprung + "'", "Dokument", 0)
+        ds.Tables.Add(dsdaten.Tables(0).Copy)
+
+        'Dokument erstellen
+        get_data("Select * from dokument where dokumentid='" + dokumentid_ziel + "'", "dokument", 1)
+        If dsdaten.Tables(0).Rows.Count = 0 Then
+            Dim r As DataRow = dsdaten.Tables(0).NewRow
+            For Each c As DataColumn In ds.Tables("Dokument").Columns
+                r.Item(c.ColumnName) = ds.Tables(0).Rows(0).Item(c.ColumnName)
+            Next
+            r.Item("Dokumentid") = dokumentid_ziel
+            dsdaten.Tables(0).Rows.Add(r)
+            Update_Data()
+        End If
+
+
+        'Dokument-Status lesen
+        get_data("select * from dokument_status where dokumenitid='" + dokumentid_ursprung + "' order by reihenfolge asc", "Dokument_Status", 0)
+        ds.Tables.Add(dsdaten.Tables(0).Copy)
+
+        'letzte Eintrag von Dokument_Status auslesen für KeyBestimmung
+        get_data("Select top 1 * from dokument_Status order by dokument_statusnr desc", "Dokument_Status", 1)
+        Dim dokument_statusnr As Integer
+        Dim Dokument_statusnr_original As Integer
+        dokument_statusnr = dsdaten.Tables(0).Rows(0).Item(0)
+        Dokument_statusnr_original = dokument_statusnr
+        dokument_statusnr = dokument_statusnr + 1
+        'Dokumentstatus erstellen
+        get_data("Select * from dokument_status where dokumenitid='" + dokumentid_ziel + "'", "Dokument_Status", 1)
+        For Each r As DataRow In ds.Tables("Dokument_Status").Rows
+            Dim rn As DataRow = dsdaten.Tables(0).NewRow
+            For Each c As DataColumn In ds.Tables("Dokument_status").Columns
+                rn(c.ColumnName) = r(c.ColumnName)
+            Next
+            rn("Dokumenitid") = dokumentid_ziel
+            If debug = True Then rn("dokument_statusnr") = r("Dokument_Statusnr") + 10000000
+            If SQL_Scripts Then
+                rn("dokument_statusnr") = dokument_statusnr
+                dokument_statusnr = dokument_statusnr + 1
+            End If
+            dsdaten.Tables(0).Rows.Add(rn)
+        Next
+        Update_Data()
+
+        If SQL_Scripts Then
+            ds.Tables.Remove("Dokument_Status")
+            ds.Tables.Add(dsdaten.Tables(0).Copy)
+        Else
+            If debug = False Then
+                ds.Tables.Remove("Dokument_Status")
+                get_data("Select * from dokument_status where dokumenitid='" + dokumentid_ziel + "' order by reihenfolge asc", "Dokument_Status", 1)
+                ds.Tables.Add(dsdaten.Tables(0).Copy)
+            Else
+                Dim xdata As New DataSet
+            xdata.ReadXml(My.Settings.temppfad + dokumentid_ziel + "_dokument_status.xml")
+            ds.Tables.Remove("Dokument_status")
+            ds.Tables.Add(xdata.Tables(0).Copy)
+        End If
+        End If
+
+        'Statushistory lesen
+        Dim i As Integer = -1
+        get_data("select * from statushistory where erstellt_am <='2020-01-01 11:00:00' and dokumentid='" + dokumentid_ursprung + "' order by status, erstellt_am asc", "Statushistory", 1)
+        For Each r As DataRow In dsdaten.Tables(0).Rows
+            i = i + 1
+            r("dokumentid") = dokumentid_ziel
+            Try
+                r("status") = ds.Tables("Dokument_status").Rows(i).Item("dokument_statusnr")
+            Catch
+            End Try
+
+        Next
+        Update_Data("Statushistory")
+
+        Dim coldindexnr As Integer
+        get_data("Select top 1 * from dokumentcoldindexwert order by coldindexwertnr desc", "Dokumentcoldindexwert", 1)
+        coldindexnr = dsdaten.Tables(0).Rows(0).Item(0) + 1
+
+        get_data("select * from dokumentcoldindexwert where dokumentid='" + dokumentid_ursprung + "'", "Dokumentcoldindexwert", 0)
+        ds.Tables.Add(dsdaten.Tables(0).Copy)
+        ds.Tables("Dokumentcoldindexwert").Rows(0).Item("Dokumentid") = dokumentid_ziel
+
+        get_data("select * from dokumentcoldindexwert where dokumentid='" + dokumentid_ziel + "'", "Dokumentcoldindexwert", 1)
+        For Each r As DataRow In ds.Tables("Dokumentcoldindexwert").Rows
+            Dim rn As DataRow = dsdaten.Tables(0).NewRow
+            For Each c As DataColumn In ds.Tables("Dokumentcoldindexwert").Columns
+                rn(c.ColumnName) = r(c.ColumnName)
+            Next
+            rn("coldindexwertnr") = coldindexnr
+            coldindexnr = coldindexnr + 1
+            dsdaten.Tables(0).Rows.Add(rn)
+        Next
+
+        Update_Data()
+
+        Dim notiznr As Integer
+        get_data("Select top 1 * from notizen order by notiznr desc", "Notizen", 1)
+        notiznr = dsdaten.Tables(0).Rows(0).Item(0) + 1
+        get_data("select * from notizen where erstellt_am <='2020-01-02 00:00:00' and dokumentid='" + dokumentid_ursprung + "'", "notizen", 1)
+        ds.Tables.Add(dsdaten.Tables(0).Copy)
+        For Each r As DataRow In ds.Tables("notizen").Rows
+            r.Item("Dokumentid") = dokumentid_ziel
+        Next
+
+        get_data("select * from notizen where erstellt_am <='2020-01-01 05:00:00' and dokumentid='" + dokumentid_ziel + "'", "notizen", 1)
+        For Each r As DataRow In ds.Tables("notizen").Rows
+            Dim rn As DataRow = dsdaten.Tables(0).NewRow
+            For Each c As DataColumn In ds.Tables("notizen").Columns
+                rn(c.ColumnName) = r(c.ColumnName)
+            Next
+            rn("Dokumentid") = dokumentid_ziel
+            'rn("notitznr") = notiznr
+            'notiznr = notiznr + 1
+            dsdaten.Tables(0).Rows.Add(rn)
+        Next
+
+        Update_Data("Notizen")
+        Update_Data("email_attachment")
+
+
+
+    End Sub
+
+    Public Sub get_data(ByVal sql As String, ByVal Tablename As String, ByVal prod As Boolean)
+        dsdaten.Tables.Clear()
+        If prod = True Then
+            dadaten = New SqlDataAdapter(sql, cstring_prod)
+        Else
+            dadaten = New SqlDataAdapter(sql, cstring_int)
+
+        End If
+        dadaten.Fill(dsdaten, Tablename)
+    End Sub
+
+    Public Sub Update_Data(Optional tablename As String = "")
+        If SQL_Scripts Then
+            Generate_Script(tablename)
+            Exit Sub
+        End If
+        Dim cb As New SqlCommandBuilder(dadaten)
+        'If debug = False Then
+        '    dadaten.Update(dsdaten, dsdaten.Tables(0).TableName)
+        'Else
+        '    dsdaten.WriteXml(My.Settings.temppfad + dokumentid_ziel + "_" + dsdaten.Tables(0).TableName + ".xml")
+        'End If
+    End Sub
+
+    Public Sub Generate_Script(tablename As String)
+        Dim s As String
+        s = ScriptRecord(tablename)
+        Write_File(s)
+    End Sub
+
+    Public Function Write_File(ByVal s As String)
+        Dim append As Boolean = False
+        Dim path As String = My.Settings.temppfad + dokumentid_ziel + ".sql"
+        If System.IO.File.Exists(path) Then
+            append = True
+        Else
+
+        End If
+        Dim sw As New System.IO.StreamWriter(path, append:=append)
+        sw.WriteLine(s)
+        sw.Flush()
+        sw.Close()
+    End Function
+
+
+
+
+    Private Function ScriptRecord(ByVal tablename As String) As String
+        Dim srcTable As DataTable = dsdaten.Tables(0)
+        Dim destTable As DataTable = dsdaten.Tables(0)
+        Dim found As Boolean = False
+        Dim textbox1 As New TextBox
+        Dim AutoInc As Boolean = False
+
+        If tablename = "Statushistory" Then
+            For Each r As DataRow In dsdaten.Tables(0).Rows
+                textbox1.AppendText("Update Statushistory set dokumentid='" + r("Dokumentid").ToString + "',status=" + r("status").ToString + " where statushistorynr=" + r("Statushistorynr").ToString + " and dokumentid = '" + dokumentid_ursprung + "'")
+                textbox1.AppendText(Environment.NewLine)
+                textbox1.AppendText("Go")
+                textbox1.AppendText(Environment.NewLine)
+            Next
+            textbox1.AppendText(Environment.NewLine)
+            textbox1.AppendText("Go")
+            textbox1.AppendText(Environment.NewLine)
+            Return textbox1.Text
+            Exit Function
+        End If
+
+        If tablename = "Notizen" Then
+            For Each r As DataRow In dsdaten.Tables(0).Rows
+                textbox1.AppendText("Update notizen set dokumentid='" + r("Dokumentid").ToString + "' where notiznr=" + r("Notiznr").ToString + " and dokumentid = '" + dokumentid_ursprung + "'")
+                textbox1.AppendText(Environment.NewLine)
+                textbox1.AppendText("Go")
+                textbox1.AppendText(Environment.NewLine)
+            Next
+            textbox1.AppendText(Environment.NewLine)
+            textbox1.AppendText("Go")
+            textbox1.AppendText(Environment.NewLine)
+            Return textbox1.Text
+            Exit Function
+        End If
+
+        If tablename = "email_attachment" Then
+            textbox1.AppendText("Update email_attachment set dokument_id='" + dokumentid_ziel + "' where dokument_id='" + dokumentid_ursprung + "'")
+            textbox1.AppendText(Environment.NewLine)
+            textbox1.AppendText("Go")
+            textbox1.AppendText(Environment.NewLine)
+            Return textbox1.Text
+            Exit Function
+        End If
+
+
+        For Each c As DataColumn In srcTable.Columns
+            If c.AutoIncrement = True Then AutoInc = True
+        Next
+        If dsdaten.Tables(0).TableName = "Dokument_Status" Or dsdaten.Tables(0).TableName = "Dokumentcoldindexwert" Then AutoInc = True
+
+        If AutoInc = True Then
+            textbox1.AppendText("SET IDENTITY_INSERT [dbo].[" & srcTable.TableName & "] ON")
+            textbox1.AppendText(Environment.NewLine)
+            textbox1.AppendText("Go")
+            textbox1.AppendText(Environment.NewLine)
+        End If
+
+        For Each r As DataRow In srcTable.Rows
+            found = False
+
+            For Each rr As DataRow In destTable.Rows
+                Dim s1 As String = ""
+                Dim s2 As String = ""
+                s1 = r.ItemArray(0).ToString()
+                s2 = rr(0).ToString()
+
+                If s1 = s2 Then
+                    found = True
+                End If
+            Next
+            found = False
+            If found = False Then
+                Dim s As String
+                s = ""
+                s = "insert [dbo].[" & srcTable.TableName & "] ("
+
+                For Each c As DataColumn In srcTable.Columns
+                    s = s & "[" & c.ColumnName & "], "
+                Next
+
+                s = s & ") values ("
+
+                For Each c As DataColumn In srcTable.Columns
+                    s = s & ""
+                    If r(c.ColumnName) Is System.DBNull.Value Then
+                        s = s + "NULL, "
+                    Else
+                        If r(c.ColumnName).ToString() = "" Then
+                            s = s & "N'', "
+                        Else
+                            If c.DataType.Name = "Int32" Then s = s & r(c.ColumnName).ToString() & ", "
+                            If c.DataType.Name = "Int64" Then s = s & r(c.ColumnName).ToString() & ", "
+
+                            If c.DataType.Name = "String" Then
+                                Dim ts As String
+                                ts = r(c.ColumnName).ToString()
+                                ts = ts.Replace("'", "''")
+                                s = s & "N'" & ts & "', "
+                            End If
+
+                            If c.DataType.Name = "Boolean" Then
+
+                                If r(c.ColumnName).ToString() = "True" Then
+                                    s = s & "1, "
+                                Else
+                                    s = s & "0, "
+                                End If
+
+                                If r(c.ColumnName).ToString() = "False" Then
+                                End If
+                            End If
+
+                            If c.DataType.Name = "DateTime" Then
+                                Dim d As DateTime = CType(r(c.ColumnName), DateTime)
+                                s = s & "cast(N'" & d.ToString("s") & "' as Datetime), "
+                            End If
+                        End If
+                    End If
+
+                Next
+
+                s = s & ") "
+                s = s.Replace(",)", ")")
+                s = s.Replace(", )", ")")
+                textbox1.AppendText(s)
+                textbox1.AppendText(Environment.NewLine)
+                textbox1.AppendText("Go")
+                textbox1.AppendText(Environment.NewLine)
+            End If
+        Next
+
+        If AutoInc = True Then
+            textbox1.AppendText("SET IDENTITY_INSERT [dbo].[" & srcTable.TableName & "] OFF")
+            textbox1.AppendText(Environment.NewLine)
+            textbox1.AppendText("Go")
+            textbox1.AppendText(Environment.NewLine)
+        End If
+        Return textbox1.Text
+    End Function
+
+End Module

_korr_boersenabrechnung/_korr_boersenabrechnung/My Project/Application.Designer.vb

@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+

_korr_boersenabrechnung/_korr_boersenabrechnung/My Project/Application.myapp

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>false</MySubMain>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <ApplicationType>2</ApplicationType>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

_korr_boersenabrechnung/_korr_boersenabrechnung/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Allgemeine Informationen über eine Assembly werden über die folgenden
+' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
+' die einer Assembly zugeordnet sind.
+
+' Werte der Assemblyattribute überprüfen
+
+<Assembly: AssemblyTitle("_korr_boersenabrechnung")>
+<Assembly: AssemblyDescription("")>
+<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyProduct("_korr_boersenabrechnung")>
+<Assembly: AssemblyCopyright("Copyright ©  2021")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird.
+<Assembly: Guid("f381ac4b-2181-4688-9d99-345db6c1272d")>
+
+' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+'
+'      Hauptversion
+'      Nebenversion
+'      Buildnummer
+'      Revision
+'
+' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
+' indem Sie "*" wie unten gezeigt eingeben:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.0.0.0")>
+<Assembly: AssemblyFileVersion("1.0.0.0")>

_korr_boersenabrechnung/_korr_boersenabrechnung/My Project/Resources.Designer.vb

@@ -0,0 +1,62 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My.Resources
+
+    'This class was auto-generated by the StronglyTypedResourceBuilder
+    'class via a tool like ResGen or Visual Studio.
+    'To add or remove a member, edit your .ResX file then rerun ResGen
+    'with the /str option, or rebuild your VS project.
+    '''<summary>
+    '''  A strongly-typed resource class, for looking up localized strings, etc.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+    Friend Module Resources
+
+        Private resourceMan As Global.System.Resources.ResourceManager
+
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+
+        '''<summary>
+        '''  Returns the cached ResourceManager instance used by this class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("_korr_boersenabrechnung.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+
+        '''<summary>
+        '''  Overrides the current thread's CurrentUICulture property for all
+        '''  resource lookups using this strongly typed resource class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set(ByVal value As Global.System.Globalization.CultureInfo)
+                resourceCulture = value
+            End Set
+        End Property
+    End Module
+End Namespace

_korr_boersenabrechnung/_korr_boersenabrechnung/My Project/Resources.resx

@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

_korr_boersenabrechnung/_korr_boersenabrechnung/My Project/Settings.Designer.vb

@@ -0,0 +1,111 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.6.0.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+        
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+        
+#Region "Automatische My.Settings-Speicherfunktion"
+#If _MyType = "WindowsForms" Then
+    Private Shared addedHandler As Boolean
+
+    Private Shared addedHandlerLockObject As New Object
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
+#End If
+#End Region
+        
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+                
+#If _MyType = "WindowsForms" Then
+               If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security"& _ 
+            " info=false;workstation id=;packet size=4096;user id=sa;password=*shu29")>  _
+        Public Property connstring_int() As String
+            Get
+                Return CType(Me("connstring_int"),String)
+            End Get
+            Set
+                Me("connstring_int") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=edoka_TestB;integrated security=SSPI;persist se"& _ 
+            "curity info=false;workstation id=;packet size=4096;user id=sa;password=*shu29")>  _
+        Public Property connstring_prod() As String
+            Get
+                Return CType(Me("connstring_prod"),String)
+            End Get
+            Set
+                Me("connstring_prod") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("k:\edoka\")>  _
+        Public Property temppfad() As String
+            Get
+                Return CType(Me("temppfad"),String)
+            End Get
+            Set
+                Me("temppfad") = value
+            End Set
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Module MySettingsProperty
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
+        Friend ReadOnly Property Settings() As Global._korr_boersenabrechnung.My.MySettings
+            Get
+                Return Global._korr_boersenabrechnung.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

_korr_boersenabrechnung/_korr_boersenabrechnung/My Project/Settings.settings

@@ -0,0 +1,15 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
+  <Profiles />
+  <Settings>
+    <Setting Name="connstring_int" Type="System.String" Scope="User">
+      <Value Profile="(Default)">data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</Value>
+    </Setting>
+    <Setting Name="connstring_prod" Type="System.String" Scope="User">
+      <Value Profile="(Default)">data source=shu00;initial catalog=edoka_TestB;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</Value>
+    </Setting>
+    <Setting Name="temppfad" Type="System.String" Scope="User">
+      <Value Profile="(Default)">k:\edoka\</Value>
+    </Setting>
+  </Settings>
+</SettingsFile>

_korr_boersenabrechnung/_korr_boersenabrechnung/_korr_boersenabrechnung.vbproj

@@ -0,0 +1,113 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{CB9105D0-B63A-4B57-9BD0-E6B0A728576A}</ProjectGuid>
+    <OutputType>Exe</OutputType>
+    <StartupObject>_korr_boersenabrechnung.Module1</StartupObject>
+    <RootNamespace>_korr_boersenabrechnung</RootNamespace>
+    <AssemblyName>_korr_boersenabrechnung</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>Console</MyType>
+    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
+    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <Deterministic>true</Deterministic>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>_korr_boersenabrechnung.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>_korr_boersenabrechnung.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="System" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Web" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="System.Net.Http" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+    <Import Include="System.Threading.Tasks" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="GenSQL.vb" />
+    <Compile Include="Module1.vb" />
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="App.config" />
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+</Project>

_korr_boersenabrechnung/_korr_boersenabrechnung/_korr_boersenabrechnung.vbproj.user

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'">
+    <StartArguments>OFFEDK0002020002436878 OFFEDK0002020102436878 DEBUG SQL</StartArguments>
+  </PropertyGroup>
+</Project>

_korr_boersenabrechnung/_korr_boersenabrechnung/bin/Debug/_korr_boersenabrechnung.exe.config

@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <configSections>
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="_korr_boersenabrechnung.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
+    </configSections>
+    <startup> 
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
+    </startup>
+    <userSettings>
+        <_korr_boersenabrechnung.My.MySettings>
+            <setting name="connstring_int" serializeAs="String">
+                <value>data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
+            </setting>
+            <setting name="connstring_prod" serializeAs="String">
+                <value>data source=shu00;initial catalog=edoka_TestB;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
+            </setting>
+            <setting name="temppfad" serializeAs="String">
+                <value>k:\edoka\</value>
+            </setting>
+        </_korr_boersenabrechnung.My.MySettings>
+    </userSettings>
+</configuration>

_korr_boersenabrechnung/_korr_boersenabrechnung/bin/Debug/_korr_boersenabrechnung.xml

@@ -0,0 +1,26 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+_korr_boersenabrechnung
+</name>
+</assembly>
+<members>
+<member name="T:_korr_boersenabrechnung.My.Resources.Resources">
+<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+<member name="P:_korr_boersenabrechnung.My.Resources.Resources.ResourceManager">
+<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member>
+<member name="P:_korr_boersenabrechnung.My.Resources.Resources.Culture">
+<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member>
+</members>
+</doc>

_korr_boersenabrechnung/_korr_boersenabrechnung/obj/Debug/.NETFramework,Version=v4.6.1.AssemblyAttributes.vb

@@ -0,0 +1,7 @@
+' <autogenerated/>
+            Option Strict Off
+            Option Explicit On
+
+            Imports System
+            Imports System.Reflection
+            <Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.6.1", FrameworkDisplayName:=".NET Framework 4.6.1")>

_korr_boersenabrechnung/_korr_boersenabrechnung/obj/Debug/_korr_boersenabrechnung.vbproj.CoreCompileInputs.cache

@@ -0,0 +1 @@
+b060a81ae51e95418e374871504453beb8b7b2e5

_korr_boersenabrechnung/_korr_boersenabrechnung/obj/Debug/_korr_boersenabrechnung.vbproj.FileListAbsolute.txt

@@ -0,0 +1,11 @@
+E:\Software-Projekte\EDOKA\batch\_korr_boersenabrechnung\_korr_boersenabrechnung\bin\Debug\_korr_boersenabrechnung.exe.config
+E:\Software-Projekte\EDOKA\batch\_korr_boersenabrechnung\_korr_boersenabrechnung\bin\Debug\_korr_boersenabrechnung.exe
+E:\Software-Projekte\EDOKA\batch\_korr_boersenabrechnung\_korr_boersenabrechnung\bin\Debug\_korr_boersenabrechnung.pdb
+E:\Software-Projekte\EDOKA\batch\_korr_boersenabrechnung\_korr_boersenabrechnung\bin\Debug\_korr_boersenabrechnung.xml
+E:\Software-Projekte\EDOKA\batch\_korr_boersenabrechnung\_korr_boersenabrechnung\obj\Debug\_korr_boersenabrechnung.Resources.resources
+E:\Software-Projekte\EDOKA\batch\_korr_boersenabrechnung\_korr_boersenabrechnung\obj\Debug\_korr_boersenabrechnung.vbproj.GenerateResource.cache
+E:\Software-Projekte\EDOKA\batch\_korr_boersenabrechnung\_korr_boersenabrechnung\obj\Debug\_korr_boersenabrechnung.vbproj.CoreCompileInputs.cache
+E:\Software-Projekte\EDOKA\batch\_korr_boersenabrechnung\_korr_boersenabrechnung\obj\Debug\_korr_boersenabrechnung.exe
+E:\Software-Projekte\EDOKA\batch\_korr_boersenabrechnung\_korr_boersenabrechnung\obj\Debug\_korr_boersenabrechnung.xml
+E:\Software-Projekte\EDOKA\batch\_korr_boersenabrechnung\_korr_boersenabrechnung\obj\Debug\_korr_boersenabrechnung.pdb
+E:\Software-Projekte\EDOKA\batch\_korr_boersenabrechnung\_korr_boersenabrechnung\obj\Debug\_korr_boersenabrechnung.vbprojAssemblyReference.cache

_korr_boersenabrechnung/_korr_boersenabrechnung/obj/Debug/_korr_boersenabrechnung.xml

@@ -0,0 +1,26 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+_korr_boersenabrechnung
+</name>
+</assembly>
+<members>
+<member name="T:_korr_boersenabrechnung.My.Resources.Resources">
+<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+<member name="P:_korr_boersenabrechnung.My.Resources.Resources.ResourceManager">
+<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member>
+<member name="P:_korr_boersenabrechnung.My.Resources.Resources.Culture">
+<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member>
+</members>
+</doc>