Initial

App.config

@@ -0,0 +1,66 @@
+<?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="EDKB08_Dimensions_Transfer.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.5" />
+    </startup>
+    <userSettings>
+        <EDKB08_Dimensions_Transfer.My.MySettings>
+            <setting name="Token" serializeAs="String">
+                <value>eyJhbGciOiJIUzUxMiJ9.eyJzdWIiOiJhcGkudGVzdC5vcmRlcm1hbmFnZXIudGtiIiwiZXhwIjoxNzE3MTA2NDAwLCJqdGkiOiIxODg5In0.1gjvWvcUvr7Vh_MAVU47S0ZZ1a9y5-MOm0ljZ3JuyEytYxTXB2Q4Ta9oSdM_dW9rnUVVPD6NtxKT8dNoZBP1-Q</value>
+            </setting>
+            <setting name="HOST" serializeAs="String">
+                <value>test.wuestdimensions.com</value>
+            </setting>
+            <setting name="TimeParam" serializeAs="String">
+                <value>k:\edoka\dimensions\timeparameter.txt</value>
+            </setting>
+            <setting name="BaseURL" serializeAs="String">
+                <value>https://test.wuestdimensions.com</value>
+            </setting>
+            <setting name="Orders" serializeAs="String">
+                <value>/ws/orders</value>
+            </setting>
+            <setting name="OrderFilter" serializeAs="String">
+                <value>?status=FINISHED&amp;updatedSince=&amp;SelectionTime&amp;</value>
+            </setting>
+            <setting name="Documents" serializeAs="String">
+                <value>&amp;OrderID&amp;/documents</value>
+            </setting>
+            <setting name="Log" serializeAs="String">
+                <value>k:\edoka\dimensions\DimensionTransfer.log</value>
+            </setting>
+            <setting name="DestPath" serializeAs="String">
+                <value>k:\edoka\edkb08\</value>
+            </setting>
+            <setting name="Manual_Processing_File" serializeAs="String">
+                <value>k:\edoka\dimensions\Dimension_Manual_Processing.txt</value>
+            </setting>
+            <setting name="TempPath" serializeAs="String">
+                <value>k:\edoka\dimensions\</value>
+            </setting>
+            <setting name="sendmail_ps" serializeAs="String">
+                <value>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="sendmailcmd" serializeAs="String">
+                <value>-executeionpolicy bybass -file </value>
+            </setting>
+            <setting name="sendmailfile" serializeAs="String">
+                <value>dimensionsendmail.ps1</value>
+            </setting>
+            <setting name="sendmail" serializeAs="String">
+                <value>0</value>
+            </setting>
+            <setting name="sender" serializeAs="String">
+                <value>info@shub.ch</value>
+            </setting>
+            <setting name="recipient" serializeAs="String">
+                <value>info@shub.ch</value>
+            </setting>
+        </EDKB08_Dimensions_Transfer.My.MySettings>
+    </userSettings>
+</configuration>

EDKB08_Dimensions_Transfer.sln

@@ -0,0 +1,25 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio Version 16
+VisualStudioVersion = 16.0.32630.194
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB08_Dimensions_Transfer", "EDKB08_Dimensions_Transfer.vbproj", "{1A22EE57-19C4-4F70-B9B9-0765B9FEA876}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{1A22EE57-19C4-4F70-B9B9-0765B9FEA876}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{1A22EE57-19C4-4F70-B9B9-0765B9FEA876}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{1A22EE57-19C4-4F70-B9B9-0765B9FEA876}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{1A22EE57-19C4-4F70-B9B9-0765B9FEA876}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+	GlobalSection(ExtensibilityGlobals) = postSolution
+		SolutionGuid = {EFD3B3DF-90AC-4F19-BE9D-333BF1817796}
+	EndGlobalSection
+EndGlobal

EDKB08_Dimensions_Transfer.vbproj

@@ -0,0 +1,119 @@
+<?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>{1A22EE57-19C4-4F70-B9B9-0765B9FEA876}</ProjectGuid>
+    <OutputType>Exe</OutputType>
+    <StartupObject>EDKB08_Dimensions_Transfer.Module1</StartupObject>
+    <RootNamespace>EDKB08_Dimensions_Transfer</RootNamespace>
+    <AssemblyName>EDKB08_Dimensions_Transfer</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>Console</MyType>
+    <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
+  </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>EDKB08_Dimensions_Transfer.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>EDKB08_Dimensions_Transfer.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="Newtonsoft.Json, Version=6.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL" />
+    <Reference Include="System" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Text.Json, Version=6.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL" />
+    <Reference Include="System.Web.Extensions" />
+    <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="Klassen\clsAttributes.vb" />
+    <Compile Include="Klassen\clsDocument.vb" />
+    <Compile Include="Klassen\clsDocuments.vb" />
+    <Compile Include="Klassen\clslog.vb" />
+    <Compile Include="Klassen\clsOrder.vb" />
+    <Compile Include="Klassen\clsOrders.vb" />
+    <Compile Include="Klassen\clsUser.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>
+      <DesignTime>True</DesignTime>
+    </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>

Git_Create.bat

@@ -0,0 +1,8 @@
+touch README.md
+git init
+git checkout -b main
+git add README.md
+git commit -m "first commit"
+git remote add origin https://gitea.shubweb.ch/shu/EDOKA_DimensionTransfer.git
+git push -u origin main
+pause

Klassen/clsAttributes.vb

@@ -0,0 +1,20 @@
+Public Class clsAttributes
+    Public Class Attribute
+        Public Property key As String
+        Public Property value As String
+        Public Property type As String
+        Public Property panel As String
+        Public Property label As String
+    End Class
+
+    Public Class Link
+        Public Property rel As String
+        Public Property href As String
+    End Class
+
+    Public Class Root
+        Public Property attributes As List(Of Attribute)
+        Public Property links As List(Of Link)
+    End Class
+
+End Class

Klassen/clsDocument.vb

@@ -0,0 +1,3 @@
+Public Class clsDocument
+
+End Class

Klassen/clsDocuments.vb

@@ -0,0 +1,27 @@
+Public Class clsDocuments
+
+    Public Class Content
+        Public Property fileId As Integer
+        Public Property name As String
+        Public Property mimeType As String
+        Public Property documentType As String
+        Public Property datetime As String
+        Public Property broker As Object
+        Public Property source As Object
+        Public Property comments As Object
+        Public Property links As List(Of Link)
+    End Class
+
+    Public Class Link
+        Public Property rel As String
+        Public Property href As String
+    End Class
+
+    Public Class Root
+        Public Property links As List(Of Link)
+        Public Property content As List(Of Content)
+    End Class
+
+
+
+End Class

Klassen/clsOrder.vb

@@ -0,0 +1,118 @@
+Public Class clsOrder
+    Public Class Address
+        Public Property addressLine1 As String
+        Public Property addressLine2 As Object
+        Public Property zipCode As String
+        Public Property place As String
+        Public Property province As Object
+        Public Property countryIsoCode As String
+    End Class
+
+    Public Class BindingOffer
+        Public Property datetime As Object
+        Public Property marketValue As Object
+        Public Property shallIncome As Object
+        Public Property grossYield As Object
+    End Class
+
+    Public Class CostControlling
+        Public Property orderCostCategoryKey As Object
+        Public Property effectiveWorkHours As Object
+        Public Property effectiveTravelHours As Object
+        Public Property calculatedCost As Object
+        Public Property timeBudget As Object
+        Public Property cost As Object
+        Public Property hourlyRate As Object
+    End Class
+
+    Public Class Details
+        Public Property isFastTrack As Boolean
+        Public Property isExternal As Boolean
+        Public Property orderRegionKey As Object
+        Public Property orderValuationTypeKey As Object
+        Public Property orderCaseKey As Object
+        Public Property valuationDateOrder As Object
+        Public Property dueDate As String
+        Public Property lastValuation As Object
+        Public Property lastVisited As Object
+        Public Property lastVisitor As Object
+        Public Property customerName As String
+        Public Property customerExternalId As Object
+        Public Property customerEmail As String
+        Public Property endCustomerName As Object
+        Public Property endCustomerExternalId As Object
+        Public Property contactName As Object
+        Public Property contactComments As Object
+        Public Property currency As String
+        Public Property costCeiling As Object
+        Public Property comments As Object
+        Public Property orderBusinessUnitKey As Object
+        Public Property orderContainerKey As Object
+        Public Property orderDate As Object
+        Public Property orderPropertyUnitUsage As Object
+        Public Property orderDealStructure As Object
+        Public Property offerPrice As Object
+        Public Property shallIncome As Object
+        Public Property grossYield As Object
+    End Class
+
+    Public Class Finalization
+        Public Property signingNotes As Object
+        Public Property closingNotes As Object
+        Public Property cancellationReason As Object
+        Public Property cancellationComment As Object
+    End Class
+
+    Public Class Link
+        Public Property rel As String
+        Public Property href As String
+    End Class
+
+    Public Class NonBindingOffer
+        Public Property datetime As Object
+        Public Property marketValue As Object
+        Public Property shallIncome As Object
+        Public Property grossYield As Object
+    End Class
+
+    Public Class Root
+        Public Property id As String
+        Public Property externalId As Object
+        Public Property version As Integer
+        Public Property status As String
+        Public Property action As Object
+        Public Property details As Details
+        Public Property valuationObject As ValuationObject
+        Public Property costControlling As CostControlling
+        Public Property finalization As Finalization
+        Public Property nonBindingOffer As NonBindingOffer
+        Public Property bindingOffer As BindingOffer
+        Public Property creationDate As DateTime
+        Public Property modificationDate As DateTime
+        Public Property orderStatusContext As String
+        Public Property publicLink As String
+        Public Property marketValue As String
+        Public Property marketValueCurrency As String
+        Public Property assignedTo As String
+        Public Property links As List(Of Link)
+    End Class
+
+    Public Class ValuationObject
+        Public Property externalId As Object
+        Public Property ownershipType As String
+        Public Property propertyUnitType As String
+        Public Property address As Address
+        Public Property parcelNumber As Object
+        Public Property condominiumOwnershipNumber As Object
+        Public Property landPlotArea As Object
+        Public Property landPlotPricePerArea As Object
+        Public Property usableArea As Object
+        Public Property buildingPricePerUsableArea As Object
+        Public Property transactionValue As Object
+        Public Property transactionDate As Object
+        Public Property isLeaseholdAvailable As Boolean
+        Public Property constructionYear As Object
+        Public Property tenantMix As Object
+    End Class
+
+End Class

Klassen/clsOrders.vb

@@ -0,0 +1,80 @@
+Public Class clsOrders
+    Public Class Content
+        Public Property id As String
+        Public Property version As Integer
+        Public Property externalId As Object
+        Public Property customerName As String
+        Public Property customerEmail As String
+        Public Property endCustomerName As Object
+        Public Property creationDate As DateTime
+        Public Property modificationDate As DateTime
+        Public Property dueDate As DateTime
+        Public Property status As String
+        Public Property assignedTo As String
+        Public Property isFastTrack As Boolean
+        Public Property isExternal As Boolean
+        Public Property valuationObjectPropertyUnitType As String
+        Public Property addressLine1 As String
+        Public Property zipCode As String
+        Public Property place As String
+        Public Property province As Object
+        Public Property licenseHolderId As Integer
+        Public Property marketValue As Object
+        Public Property valuationDateOrder As Object
+        Public Property valuationDate As Object
+        Public Property projectGeneratedId As Object
+        Public Property projectStatus As Object
+        Public Property orderRegionKey As Object
+        Public Property orderValuationTypeKey As Object
+        Public Property orderCaseKey As Object
+        Public Property costCategoryKey As Object
+        Public Property hourlyRate As Object
+        Public Property timeBudget As Object
+        Public Property costBudget As Object
+        Public Property effectiveWorkHours As Object
+        Public Property effectiveTravelHours As Object
+        Public Property calculatedCost As Object
+        Public Property costCeiling As Object
+        Public Property orderBusinessUnitKey As Object
+        Public Property orderDate As Object
+        Public Property orderPropertyUnitUsage As Object
+        Public Property orderDealStructure As Object
+        Public Property orderContainerKey As Object
+        Public Property offerPrice As Object
+        Public Property shallIncome As Object
+        Public Property grossYield As Object
+        Public Property action As Object
+        Public Property tenantMix As Object
+        Public Property signingNotes As Object
+        Public Property closingNotes As Object
+        Public Property cancellationReason As Object
+        Public Property cancellationComment As Object
+        Public Property nonBindingOfferDate As Object
+        Public Property nonBindingOfferMarketValue As Object
+        Public Property nonBindingOfferShallIncome As Object
+        Public Property nonBindingOfferGrossYield As Object
+        Public Property bindingOfferDate As Object
+        Public Property bindingOfferMarketValue As Object
+        Public Property bindingOfferShallIncome As Object
+        Public Property bindingOfferGrossYield As Object
+        Public Property links As List(Of Link)
+    End Class
+
+    Public Class Link
+        Public Property rel As String
+        Public Property href As String
+    End Class
+
+    Public Class Page
+        Public Property size As Integer
+        Public Property totalElements As Integer
+        Public Property totalPages As Integer
+        Public Property number As Integer
+    End Class
+
+    Public Class Orders
+        Public Property links As List(Of Link)
+        Public Property content As List(Of Content)
+        Public Property page As Page
+    End Class
+End Class

Klassen/clsUser.vb

@@ -0,0 +1,27 @@
+Public Class clsUser
+    Public Class Link
+        Public Property rel As String
+        Public Property href As String
+    End Class
+
+    Public Class Root
+        Public Property id As String
+        Public Property version As Integer
+        Public Property username As String
+        Public Property email As String
+        Public Property firstName As String
+        Public Property lastName As String
+        Public Property organization As String
+        Public Property phone As String
+        Public Property status As String
+        Public Property externalId As String
+        Public Property gender As String
+        Public Property language As String
+        Public Property shortName As String
+        Public Property userType As String
+        Public Property roles As List(Of String)
+        Public Property deleted As Boolean
+        Public Property links As List(Of Link)
+    End Class
+
+End Class

Klassen/clslog.vb

@@ -0,0 +1,16 @@
+Public Class clslog
+
+    Public errormailtext As String = ""
+    Public Sub Writelog(ByVal Inhalt As String)
+        FileOpen(99, My.Settings.Log, OpenMode.Append)
+        WriteLine(99, Now.ToString("s") + Chr(9) + Inhalt)
+        FileClose(99)
+
+        If Inhalt.IndexOf("Fehler") > -1 Then
+            errormailtext = errormailtext + " / " + Inhalt
+        End If
+        If Inhalt.IndexOf("Attribute") > -1 Then
+            errormailtext = errormailtext + " / " + Inhalt
+        End If
+    End Sub
+End Class

Module1.vb

@@ -0,0 +1,424 @@
+Imports System.IO
+Imports System.Net
+Imports System.Text
+Imports System.Threading
+Imports System.Web.Script.Serialization
+Imports System.Xml
+Imports Newtonsoft.Json
+Imports System.Reflection
+
+' Changelog
+' 20221105  - Anpassung neuer Dokumentart 'FINAL_VALUATION_REPORT'"
+'           Es werden Dokumente mit dem Typ FINAL_VALUATION_REPORT oder mit Kommentar 'Final' berücksichtigt
+'           Sind beide "Varianten" in einem Auftrag vorhanden, wird FINAL_VALUATION_REPORT prioritär behandelt
+' Ende 20221105
+
+Module Module1
+    Private Enum Enum_MapTyp
+        Mappen = 0
+        Loeschen = 1
+    End Enum
+
+    Dim Orders
+    Dim Order
+    Dim Documents
+    Dim Document
+    Dim Attributes
+    Dim User
+
+    Dim clslog As New clslog
+    Dim Process_Step As Integer = 0
+    Dim haserror As Boolean = False
+    Dim filename As String = ""
+
+
+    Sub Main()
+        clslog.Writelog("Start Dimension-Transfer")
+        If Get_Finished_Orders() = False Then
+            clslog.Writelog("Verarbeitung mit Fehlercode " + Process_Step.ToString + " abgebrochen")
+            Exit Sub
+        End If
+
+        For i As Integer = 0 To Orders.content.count - 1
+            If Check_TKB_Archivierung(i) = True Then
+                If Get_Details(i) = False Then
+                    clslog.Writelog("Verarbeitung mit Fehlercode " + Process_Step.ToString + " abgebrochen")
+                End If
+            Else
+                clslog.Writelog("Attribute TKB_Archivierung nicht gesetzt: " + Orders.content(i).id)
+            End If
+        Next
+        Manual_Processing()
+        clslog.Writelog("Ende Dimension-Transfer")
+        If clslog.errormailtext <> "" Then send_mail()
+    End Sub
+
+    Sub Manual_Processing()
+        If File.Exists(My.Settings.Manual_Processing_File) Then
+            FileOpen(2, My.Settings.Manual_Processing_File, OpenMode.Input)
+            While Not EOF(2)
+                Dim s As String
+                Input(2, s)
+                clslog.Writelog("Manuelle Verarbeitung: " + s)
+                Dim strArr() As String
+                strArr = s.Split(";")
+
+                If strArr.Length > 1 Then
+                    s = strArr(1)
+                    If s.IndexOf("Docname") > -1 Then
+                        s = Right(s, Len(s) - 8)
+                        If Get_Details(0, strArr(0), s, 0) = False Then
+                            clslog.Writelog("Verarbeitung mit Fehlercode " + Process_Step.ToString + " abgebrochen")
+                        End If
+                    End If
+                    If s.IndexOf("DocID") > -1 Then
+                        s = Right(s, Len(s) - 6)
+                        If Get_Details(0, strArr(0), "", s) = False Then
+                            clslog.Writelog("Verarbeitung mit Fehlercode " + Process_Step.ToString + " abgebrochen")
+                        End If
+                    End If
+                Else
+                    If Get_Details(0, s, "", 0) = False Then
+                        clslog.Writelog("Verarbeitung mit Fehlercode " + Process_Step.ToString + " abgebrochen")
+                    End If
+                End If
+
+            End While
+            FileClose(2)
+            FileSystem.Rename(My.Settings.Manual_Processing_File, My.Settings.Manual_Processing_File + "_" + DateTime.Now.ToString("yyyyMMdd_ HHmmss") + ".done")
+        End If
+    End Sub
+    Public Function Check_TKB_Archivierung(ByVal ID As Integer) As Boolean
+        Dim url As String
+        url = My.Settings.BaseURL + "/" + My.Settings.Orders + "/" + Orders.content(ID).id + "/attributes"
+        Dim request = TryCast(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)
+        request.Method = "GET"
+        request.Headers.Add(HttpRequestHeader.Authorization, "Bearer " + My.Settings.Token)
+        If My.Settings.HOST <> "" Then request.Host = My.Settings.HOST
+
+        Dim responseContent As String = ""
+        Using response = TryCast(request.GetResponse(), System.Net.HttpWebResponse)
+            Using reader = New System.IO.StreamReader(response.GetResponseStream())
+                responseContent = reader.ReadToEnd()
+            End Using
+            Attributes = JsonConvert.DeserializeObject(Of clsAttributes.Root)(responseContent)
+        End Using
+        For i As Integer = 0 To Attributes.attributes.count - 1
+            If Attributes.attributes(i).key = "TKB_Archivierung" And Attributes.attributes(i).value = "Ja" Then
+                Return True
+            End If
+        Next
+        Return False
+
+    End Function
+
+    Public Function get_user_data(ByVal type As String) As String
+        For i As Integer = 0 To Order.links.count - 1
+            If Order.links(i).rel = type Then
+                Dim url As String
+                url = Order.links(i).href
+                Dim request = TryCast(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)
+                request.Method = "GET"
+                request.Headers.Add(HttpRequestHeader.Authorization, "Bearer " + My.Settings.Token)
+                If My.Settings.HOST <> "" Then request.Host = My.Settings.HOST
+
+                Dim responseContent As String = ""
+                Using response = TryCast(request.GetResponse(), System.Net.HttpWebResponse)
+                    Using reader = New System.IO.StreamReader(response.GetResponseStream())
+                        responseContent = reader.ReadToEnd()
+                    End Using
+                    User = JsonConvert.DeserializeObject(Of clsUser.Root)(responseContent)
+                    Dim result As String = User.firstName + " " + User.lastName
+                    Return result
+                End Using
+            End If
+        Next
+        Return ""
+    End Function
+    Public Function Get_Finished_Orders() As Boolean
+        Try
+            Process_Step = 10
+            Dim FromTime As String
+            FileOpen(1, My.Settings.TimeParam, OpenMode.Input)
+            Input(1, FromTime)
+            FileClose(1)
+            FileOpen(1, My.Settings.TimeParam, OpenMode.Output)
+            WriteLine(1, Now.ToString("s"))
+            FileClose(1)
+
+            clslog.Writelog("Finished Orders seit " + FromTime)
+
+            ServicePointManager.Expect100Continue = True
+            ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
+            Dim Filter = My.Settings.OrderFilter.Replace("&SelectionTime&", FromTime)
+            Filter = My.Settings.OrderFilter.Replace("&SelectionTime&", FromTime)
+            Dim url As String = My.Settings.BaseURL + "/" + My.Settings.Orders + Filter
+            Dim request = TryCast(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)
+            request.Method = "GET"
+            request.Headers.Add(HttpRequestHeader.Authorization, "Bearer " + My.Settings.Token)
+            If My.Settings.HOST <> "" Then request.Host = My.Settings.HOST
+
+            Dim responseContent As String = ""
+            Using response = TryCast(request.GetResponse(), System.Net.HttpWebResponse)
+                Using reader = New System.IO.StreamReader(response.GetResponseStream())
+                    responseContent = reader.ReadToEnd()
+                End Using
+                Orders = JsonConvert.DeserializeObject(Of clsOrders.Orders)(responseContent)
+            End Using
+            Return True
+        Catch ex As Exception
+            clslog.Writelog("Get_Finished_Orders Fehler:" + ex.Message)
+            haserror = True
+            Return False
+        End Try
+    End Function
+
+    Public Function Get_Details(id As Integer, Optional manualid As String = "", Optional docname As String = "", Optional docid As Double = 0) As Boolean
+        Try
+            Process_Step = 20
+            clslog.Writelog("-----------")
+            If manualid <> "" Then clslog.Writelog(manualid) Else clslog.Writelog(Orders.content(id).id)
+            'Order
+            ServicePointManager.Expect100Continue = True
+            ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
+            Dim url As String = ""
+            If manualid <> "" Then
+                url = My.Settings.BaseURL + "/" + My.Settings.Orders + "/" + manualid
+
+            Else
+                url = My.Settings.BaseURL + "/" + My.Settings.Orders + "/" + Orders.content(id).id
+            End If
+            Dim request = TryCast(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)
+            request.Method = "GET"
+            request.Headers.Add(HttpRequestHeader.Authorization, "Bearer " + My.Settings.Token)
+            If My.Settings.HOST <> "" Then request.Host = My.Settings.HOST
+
+            Dim responseContent As String = ""
+            Using response = TryCast(request.GetResponse(), System.Net.HttpWebResponse)
+                Using reader = New System.IO.StreamReader(response.GetResponseStream())
+                    responseContent = reader.ReadToEnd()
+                End Using
+                Order = JsonConvert.DeserializeObject(Of clsOrder.Root)(responseContent)
+            End Using
+            Process_Step = 21
+            url = My.Settings.BaseURL + "/" + My.Settings.Orders + "/" + My.Settings.Documents.Replace("&OrderID&", Order.id)
+            request = TryCast(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)
+            request.Method = "GET"
+            request.Headers.Add(HttpRequestHeader.Authorization, "Bearer " + My.Settings.Token)
+            responseContent = ""
+            Using response = TryCast(request.GetResponse(), System.Net.HttpWebResponse)
+                Using reader = New System.IO.StreamReader(response.GetResponseStream())
+                    responseContent = reader.ReadToEnd()
+                End Using
+                Documents = JsonConvert.DeserializeObject(Of clsDocuments.Root)(responseContent)
+            End Using
+            filename = My.Settings.TempPath + Order.id + "_"
+
+
+            '' erste Prio: "FINAL_VALUATION_REPORT"
+
+            Process_Step = 22
+            Dim wc As New WebClient
+
+            If docname = "" And docid = 0 Then
+                Dim fileid_final_valuation_report As String = ""
+                Dim fileid_final_comment As String = ""
+                Dim filename_final_valuation_report As String = ""
+                Dim filename_final_comment As String = ""
+                Dim has_final_valuation_report As Boolean = False
+                Dim has_final_comment As Boolean = False
+
+                For i As Integer = 0 To Documents.content.count - 1
+                    If Documents.content(i).documentType = "FINAL_VALUATION_REPORT" Then
+                        has_final_valuation_report = True
+                        fileid_final_valuation_report = Documents.content(i).fileid.ToString
+                        filename_final_valuation_report = Documents.content(i).name
+
+                    End If
+                    Dim kommentar As String = ""
+                    If Not IsNothing(Documents.content(i).comments) Then
+                        kommentar = Documents.content(i).comments
+                    End If
+
+                    If kommentar = "Final" Then
+                        has_final_comment = True
+                        fileid_final_comment = Documents.content(i).fileid.ToString
+                        filename_final_comment = Documents.content(i).name
+                    End If
+
+                Next
+                If has_final_valuation_report = True Then
+                    url = My.Settings.BaseURL + "/" + My.Settings.Orders + "/" + My.Settings.Documents.Replace("&OrderID&", Order.id) + "/" + fileid_final_valuation_report
+                    wc.Headers.Add(HttpRequestHeader.Authorization, "Bearer " + My.Settings.Token)
+                    filename = filename + filename_final_valuation_report + ".pdf"
+                    wc.DownloadFile(url, filename)
+                    If Write_EDKB08_Struktur(Order.id) = False Then
+                        haserror = True
+                        Return False
+                    End If
+                    Return True
+                    Exit Function
+                End If
+                If has_final_comment = True Then
+                    url = My.Settings.BaseURL + "/" + My.Settings.Orders + "/" + My.Settings.Documents.Replace("&OrderID&", Order.id) + "/" + fileid_final_comment
+                    wc.Headers.Add(HttpRequestHeader.Authorization, "Bearer " + My.Settings.Token)
+                    filename = filename + filename_final_comment + ".pdf"
+                    wc.DownloadFile(url, filename)
+                    If Write_EDKB08_Struktur(Order.id) = False Then
+                        haserror = True
+                        Return False
+                    End If
+                    Return True
+                    Exit Function
+                End If
+            End If
+
+            For i As Integer = 0 To Documents.content.count - 1
+                If docname <> "" And Documents.content(i).name = docname Then
+                    url = My.Settings.BaseURL + "/" + My.Settings.Orders + "/" + My.Settings.Documents.Replace("&OrderID&", Order.id) + "/" + Documents.content(i).fileid.ToString
+                    wc.Headers.Add(HttpRequestHeader.Authorization, "Bearer " + My.Settings.Token)
+                    filename = filename + Documents.content(i).name + ".pdf"
+                    wc.DownloadFile(url, filename)
+                    If Write_EDKB08_Struktur(manualid) = False Then
+                        haserror = True
+                        Return False
+                    End If
+                    Return True
+                    Exit Function
+                End If
+                If docid <> 0 And Documents.content(i).fileId = docid Then
+                    url = My.Settings.BaseURL + "/" + My.Settings.Orders + "/" + My.Settings.Documents.Replace("&OrderID&", Order.id) + "/" + Documents.content(i).fileid.ToString
+                    wc.Headers.Add(HttpRequestHeader.Authorization, "Bearer " + My.Settings.Token)
+                    filename = filename + Documents.content(i).name + ".pdf"
+                    wc.DownloadFile(url, filename)
+                    If Write_EDKB08_Struktur(manualid) = False Then
+                        haserror = True
+                        Return False
+                    End If
+                    Return True
+                    Exit Function
+                End If
+                'If docname = "" And docid = 0 Then
+                '    '20221105 Neuer Dokumenttyp
+                '    If Not IsNothing(Documents.content(i).documentType) Then
+                '        If Documents.content(i).documentType = "FINAL_VALUATION_REPORT" Then
+                '            url = My.Settings.BaseURL + "/" + My.Settings.Orders + "/" + My.Settings.Documents.Replace("&OrderID&", Order.id) + "/" + Documents.content(i).fileid.ToString
+                '            wc.Headers.Add(HttpRequestHeader.Authorization, "Bearer " + My.Settings.Token)
+                '            filename = My.Settings.TempPath + Documents.content(i).name + ".pdf"
+                '            wc.DownloadFile(url, filename)
+                '            If Write_EDKB08_Struktur(Order.id) = False Then
+                '                haserror = True
+                '                Return False
+                '            End If
+                '            Return True
+                '            Exit Function
+                '        End If
+                '    End If
+
+
+                '    Dim kommentar As String = ""
+                '    If Not IsNothing(Documents.content(i).comments) Then
+                '        kommentar = Documents.content(i).comments
+                '    End If
+
+                '    If kommentar = "Final" Then
+                '        url = My.Settings.BaseURL + "/" + My.Settings.Orders + "/" + My.Settings.Documents.Replace("&OrderID&", Order.id) + "/" + Documents.content(i).fileid.ToString
+                '        wc.Headers.Add(HttpRequestHeader.Authorization, "Bearer " + My.Settings.Token)
+                '        filename = My.Settings.TempPath + Documents.content(i).name + ".pdf"
+                '        wc.DownloadFile(url, filename)
+                '        If Write_EDKB08_Struktur(Order.id) = False Then
+                '            haserror = True
+                '            Return False
+                '        End If
+                '        Return True
+                '        Exit Function
+                '    End If
+                'End If
+
+            Next
+            Return False
+        Catch ex As Exception
+            clslog.Writelog("Get_Details Fehler:" + ex.Message)
+            haserror = True
+            Return False
+        End Try
+    End Function
+
+    Public Function Write_EDKB08_Struktur(ByVal OrderID As String) As Boolean
+        Try
+            Process_Step = 23
+
+            Dim ds As New DataSet
+            ds.ReadXml(ApplicationPath() + "EDKB08struktur.xml")
+            Dim dr As DataRow = ds.Tables(0).Rows(0)
+            dr("Funktion") = "ADD"
+            dr("PARTNERNR") = Order.externalId
+            dr("Dokumenttypnr") = 1638
+            dr("dateiname") = System.IO.Path.GetFileName(filename)
+            dr("Dateiformat") = "PDF"
+            dr("Herkunftsapplikation") = "Dimensions"
+
+            ds.Tables(0).Columns("Dokumentwert1").ColumnName = "AUFTRAGSNR"
+            ds.Tables(0).Columns("Dokumentwert2").ColumnName = "ANLAGECODE"
+            ds.Tables(0).Columns("Dokumentwert3").ColumnName = "ANLAGE"
+            ds.Tables(0).Columns("Dokumentwert4").ColumnName = "OSTRASSE"
+            ds.Tables(0).Columns("Dokumentwert5").ColumnName = "KATASTER"
+            ds.Tables(0).Columns("Dokumentwert6").ColumnName = "EIGENTUEMER"
+            ds.Tables(0).Columns("Dokumentwert7").ColumnName = "BEWERTET_VON"
+            ds.Tables(0).Columns("Dokumentwert8").ColumnName = "PLAUSIBILISIERT_VON"
+            ds.Tables(0).Columns("Dokumentwert9").ColumnName = "PLAUSIBILISIERT_AM"
+            dr("AUFTRAGSNR") = Order.id.ToString
+            If Not IsNothing(Order.valuationObject.parcelNumber) Then
+                dr("Kataster") = Order.valuationObject.parcelNumber
+            Else
+                dr("Kataster") = ""
+            End If
+            dr("BEWERTET_VON") = Order.valuationObject.address.addressLine1 + " " + Order.valuationObject.address.zipCode + " " + Order.valuationObject.address.place
+            dr("eigentuemer") = Order.details.endcustomername
+            dr("bewertet_von") = get_user_data("valuator")
+            dr("plausibilisiert_von") = get_user_data("reviewer")
+            dr("plausibilisiert_am") = Order.modificationdate
+            ds.Tables(0).AcceptChanges()
+            If System.IO.File.Exists(My.Settings.DestPath + System.IO.Path.GetFileName(filename)) Then
+                System.IO.File.Delete(My.Settings.DestPath + System.IO.Path.GetFileName(filename))
+            End If
+            If System.IO.File.Exists(My.Settings.DestPath + OrderID + ".xml") Then
+                System.IO.File.Delete(My.Settings.DestPath + OrderID + ".xml")
+            End If
+            System.IO.File.Move(filename, My.Settings.DestPath + System.IO.Path.GetFileName(filename))
+            ds.WriteXml(My.Settings.DestPath + OrderID + ".xml")
+            clslog.Writelog("Import-Daten und Datei bereitgestellt - Order-ID :" + OrderID)
+            Return True
+        Catch ex As Exception
+            clslog.Writelog("Write_EDKB08_Struktur Fehler:" + ex.Message)
+            haserror = True
+            Return False
+        End Try
+
+    End Function
+    'Sub get_file()
+
+
+    Public Function ApplicationPath() As String
+        Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
+    End Function
+
+    Public Function send_mail()
+        Dim s As String = My.Settings.sendmail_ps
+        s = s.Replace("&sender&", My.Settings.sender)
+        s = s.Replace("&recipient&", My.Settings.recipient)
+        s = s.Replace("&body&", clslog.errormailtext)
+        Dim write As IO.StreamWriter
+        write = New IO.StreamWriter(My.Settings.TempPath & "" & My.Settings.sendmailfile)
+        write.Write(s)
+        write.Close()
+        s = My.Settings.sendmailcmd
+        s = s + My.Settings.TempPath + "" + My.Settings.sendmailfile
+
+        If My.Settings.sendmail = "1" Then
+            clslog.Writelog("Mailversand: " + s)
+            Process.Start("powershell.exe", s)
+        End If
+    End Function
+
+End Module

My Project/Application.Designer.vb

@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+' <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
+

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>

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("EDKB08_VitruvTransfer")>
+<Assembly: AssemblyDescription("")>
+<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyProduct("EDKB08_VitruvTransfer")>
+<Assembly: AssemblyCopyright("Copyright ©  2017")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
+<Assembly: Guid("56815538-496f-46da-8832-c27f816f2c17")>
+
+' 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,
+' übernehmen, indem Sie "*" eingeben:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.0.0.0")>
+<Assembly: AssemblyFileVersion("1.0.0.0")>

My Project/Resources.Designer.vb

@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+' <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
+
+Imports System
+
+Namespace My.Resources
+    
+    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+    '''<summary>
+    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.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>
+        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+        '''</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("EDKB08_Dimensions_Transfer.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+    End Module
+End Namespace

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>

My Project/Settings.Designer.vb

@@ -0,0 +1,280 @@
+'------------------------------------------------------------------------------
+' <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.10.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("eyJhbGciOiJIUzUxMiJ9.eyJzdWIiOiJhcGkudGVzdC5vcmRlcm1hbmFnZXIudGtiIiwiZXhwIjoxNzE3"& _ 
+            "MTA2NDAwLCJqdGkiOiIxODg5In0.1gjvWvcUvr7Vh_MAVU47S0ZZ1a9y5-MOm0ljZ3JuyEytYxTXB2Q4"& _ 
+            "Ta9oSdM_dW9rnUVVPD6NtxKT8dNoZBP1-Q")>  _
+        Public Property Token() As String
+            Get
+                Return CType(Me("Token"),String)
+            End Get
+            Set
+                Me("Token") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("test.wuestdimensions.com")>  _
+        Public Property HOST() As String
+            Get
+                Return CType(Me("HOST"),String)
+            End Get
+            Set
+                Me("HOST") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("k:\edoka\dimensions\timeparameter.txt")>  _
+        Public Property TimeParam() As String
+            Get
+                Return CType(Me("TimeParam"),String)
+            End Get
+            Set
+                Me("TimeParam") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("https://test.wuestdimensions.com")>  _
+        Public Property BaseURL() As String
+            Get
+                Return CType(Me("BaseURL"),String)
+            End Get
+            Set
+                Me("BaseURL") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("/ws/orders")>  _
+        Public Property Orders() As String
+            Get
+                Return CType(Me("Orders"),String)
+            End Get
+            Set
+                Me("Orders") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("?status=FINISHED&updatedSince=&SelectionTime&")>  _
+        Public Property OrderFilter() As String
+            Get
+                Return CType(Me("OrderFilter"),String)
+            End Get
+            Set
+                Me("OrderFilter") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("&OrderID&/documents")>  _
+        Public Property Documents() As String
+            Get
+                Return CType(Me("Documents"),String)
+            End Get
+            Set
+                Me("Documents") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("k:\edoka\dimensions\DimensionTransfer.log")>  _
+        Public Property Log() As String
+            Get
+                Return CType(Me("Log"),String)
+            End Get
+            Set
+                Me("Log") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("k:\edoka\edkb08\")>  _
+        Public Property DestPath() As String
+            Get
+                Return CType(Me("DestPath"),String)
+            End Get
+            Set
+                Me("DestPath") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("k:\edoka\dimensions\Dimension_Manual_Processing.txt")>  _
+        Public Property Manual_Processing_File() As String
+            Get
+                Return CType(Me("Manual_Processing_File"),String)
+            End Get
+            Set
+                Me("Manual_Processing_File") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("k:\edoka\dimensions\")>  _
+        Public Property TempPath() As String
+            Get
+                Return CType(Me("TempPath"),String)
+            End Get
+            Set
+                Me("TempPath") = 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("-executeionpolicy bybass -file ")>  _
+        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("dimensionsendmail.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("0")>  _
+        Public Property sendmail() As String
+            Get
+                Return CType(Me("sendmail"),String)
+            End Get
+            Set
+                Me("sendmail") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("info@shub.ch")>  _
+        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("info@shub.ch")>  _
+        Public Property recipient() As String
+            Get
+                Return CType(Me("recipient"),String)
+            End Get
+            Set
+                Me("recipient") = 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.EDKB08_Dimensions_Transfer.My.MySettings
+            Get
+                Return Global.EDKB08_Dimensions_Transfer.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

My Project/Settings.settings

@@ -0,0 +1,57 @@
+<?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="Token" Type="System.String" Scope="User">
+      <Value Profile="(Default)">eyJhbGciOiJIUzUxMiJ9.eyJzdWIiOiJhcGkudGVzdC5vcmRlcm1hbmFnZXIudGtiIiwiZXhwIjoxNzE3MTA2NDAwLCJqdGkiOiIxODg5In0.1gjvWvcUvr7Vh_MAVU47S0ZZ1a9y5-MOm0ljZ3JuyEytYxTXB2Q4Ta9oSdM_dW9rnUVVPD6NtxKT8dNoZBP1-Q</Value>
+    </Setting>
+    <Setting Name="HOST" Type="System.String" Scope="User">
+      <Value Profile="(Default)">test.wuestdimensions.com</Value>
+    </Setting>
+    <Setting Name="TimeParam" Type="System.String" Scope="User">
+      <Value Profile="(Default)">k:\edoka\dimensions\timeparameter.txt</Value>
+    </Setting>
+    <Setting Name="BaseURL" Type="System.String" Scope="User">
+      <Value Profile="(Default)">https://test.wuestdimensions.com</Value>
+    </Setting>
+    <Setting Name="Orders" Type="System.String" Scope="User">
+      <Value Profile="(Default)">/ws/orders</Value>
+    </Setting>
+    <Setting Name="OrderFilter" Type="System.String" Scope="User">
+      <Value Profile="(Default)">?status=FINISHED&amp;updatedSince=&amp;SelectionTime&amp;</Value>
+    </Setting>
+    <Setting Name="Documents" Type="System.String" Scope="User">
+      <Value Profile="(Default)">&amp;OrderID&amp;/documents</Value>
+    </Setting>
+    <Setting Name="Log" Type="System.String" Scope="User">
+      <Value Profile="(Default)">k:\edoka\dimensions\DimensionTransfer.log</Value>
+    </Setting>
+    <Setting Name="DestPath" Type="System.String" Scope="User">
+      <Value Profile="(Default)">k:\edoka\edkb08\</Value>
+    </Setting>
+    <Setting Name="Manual_Processing_File" Type="System.String" Scope="User">
+      <Value Profile="(Default)">k:\edoka\dimensions\Dimension_Manual_Processing.txt</Value>
+    </Setting>
+    <Setting Name="TempPath" Type="System.String" Scope="User">
+      <Value Profile="(Default)">k:\edoka\dimensions\</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="sendmailcmd" Type="System.String" Scope="User">
+      <Value Profile="(Default)">-executeionpolicy bybass -file </Value>
+    </Setting>
+    <Setting Name="sendmailfile" Type="System.String" Scope="User">
+      <Value Profile="(Default)">dimensionsendmail.ps1</Value>
+    </Setting>
+    <Setting Name="sendmail" Type="System.String" Scope="User">
+      <Value Profile="(Default)">0</Value>
+    </Setting>
+    <Setting Name="sender" Type="System.String" Scope="User">
+      <Value Profile="(Default)">info@shub.ch</Value>
+    </Setting>
+    <Setting Name="recipient" Type="System.String" Scope="User">
+      <Value Profile="(Default)">info@shub.ch</Value>
+    </Setting>
+  </Settings>
+</SettingsFile>

bin/Debug/EDKB08Struktur.xml

@@ -0,0 +1,50 @@
+<?xml version="1.0" standalone="yes"?>
+<NewDataSet>
+  <Import>
+    <FUNKTION />
+    <PARTNERNR />
+    <VVNR />
+    <BARCODEID />
+    <KST />
+    <PARTNER_KURZBEZEICHNUNG />
+    <NAME />
+    <VORNAME />
+    <STRASSE />
+    <PLZ />
+    <ORT />
+    <DOKUMENTTYPNR />
+    <DATEINAME />
+    <DATEIFORMAT />
+    <ERSTELLER />
+    <KST_ERSTELLER />
+    <ARCHIVDATUM />
+    <HERKUNFTSAPPLIKATION />
+    <GESCHAEFTSFALLNR />
+    <VVNR_INDEX />
+    <DOKUMENTSTATUS />
+    <ZUERSETZENDESDOKUMENT />
+    <LIETEMPFAENGERMA />
+    <LSITEMPFAENGERKST />
+    <LISTEMPFAENGERNL />
+    <DOKUMENTWERT1 />
+    <DOKUMENTWERT2 />
+    <DOKUMENTWERT3 />
+    <DOKUMENTWERT4 />
+    <DOKUMENTWERT5 />
+    <DOKUMENTWERT6 />
+    <DOKUMENTWERT7 />
+    <DOKUMENTWERT8 />
+    <DOKUMENTWERT9 />
+    <DOKUMENTWERT10 />
+    <DOKUMENTWERT11 />
+    <DOKUMENTWERT12 />
+    <DOKUMENTWERT13 />
+    <DOKUMENTWERT14 />
+    <DOKUMENTWERT15 />
+    <DOKUMENTWERT16 />
+    <DOKUMENTWERT17 />
+    <DOKUMENTWERT18 />
+    <DOKUMENTWERT19 />
+    <DOKUMENTWERT20 />
+  </Import>
+</NewDataSet>

bin/Debug/EDKB08_Dimensions_Transfer.exe.config

@@ -0,0 +1,66 @@
+<?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="EDKB08_Dimensions_Transfer.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.5" />
+    </startup>
+    <userSettings>
+        <EDKB08_Dimensions_Transfer.My.MySettings>
+            <setting name="Token" serializeAs="String">
+                <value>eyJhbGciOiJIUzUxMiJ9.eyJzdWIiOiJhcGkudGVzdC5vcmRlcm1hbmFnZXIudGtiIiwiZXhwIjoxNzE3MTA2NDAwLCJqdGkiOiIxODg5In0.1gjvWvcUvr7Vh_MAVU47S0ZZ1a9y5-MOm0ljZ3JuyEytYxTXB2Q4Ta9oSdM_dW9rnUVVPD6NtxKT8dNoZBP1-Q</value>
+            </setting>
+            <setting name="HOST" serializeAs="String">
+                <value>test.wuestdimensions.com</value>
+            </setting>
+            <setting name="TimeParam" serializeAs="String">
+                <value>k:\edoka\dimensions\timeparameter.txt</value>
+            </setting>
+            <setting name="BaseURL" serializeAs="String">
+                <value>https://test.wuestdimensions.com</value>
+            </setting>
+            <setting name="Orders" serializeAs="String">
+                <value>/ws/orders</value>
+            </setting>
+            <setting name="OrderFilter" serializeAs="String">
+                <value>?status=FINISHED&amp;updatedSince=&amp;SelectionTime&amp;</value>
+            </setting>
+            <setting name="Documents" serializeAs="String">
+                <value>&amp;OrderID&amp;/documents</value>
+            </setting>
+            <setting name="Log" serializeAs="String">
+                <value>k:\edoka\dimensions\DimensionTransfer.log</value>
+            </setting>
+            <setting name="DestPath" serializeAs="String">
+                <value>k:\edoka\edkb08\</value>
+            </setting>
+            <setting name="Manual_Processing_File" serializeAs="String">
+                <value>k:\edoka\dimensions\Dimension_Manual_Processing.txt</value>
+            </setting>
+            <setting name="TempPath" serializeAs="String">
+                <value>k:\edoka\dimensions\</value>
+            </setting>
+            <setting name="sendmail_ps" serializeAs="String">
+                <value>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="sendmailcmd" serializeAs="String">
+                <value>-executeionpolicy bybass -file </value>
+            </setting>
+            <setting name="sendmailfile" serializeAs="String">
+                <value>dimensionsendmail.ps1</value>
+            </setting>
+            <setting name="sendmail" serializeAs="String">
+                <value>0</value>
+            </setting>
+            <setting name="sender" serializeAs="String">
+                <value>info@shub.ch</value>
+            </setting>
+            <setting name="recipient" serializeAs="String">
+                <value>info@shub.ch</value>
+            </setting>
+        </EDKB08_Dimensions_Transfer.My.MySettings>
+    </userSettings>
+</configuration>

bin/Debug/EDKB08_Dimensions_Transfer.xml

@@ -0,0 +1,26 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+EDKB08_Dimensions_Transfer
+</name>
+</assembly>
+<members>
+<member name="T:EDKB08_Dimensions_Transfer.My.Resources.Resources">
+<summary>
+  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+</summary>
+</member>
+<member name="P:EDKB08_Dimensions_Transfer.My.Resources.Resources.ResourceManager">
+<summary>
+  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+</summary>
+</member>
+<member name="P:EDKB08_Dimensions_Transfer.My.Resources.Resources.Culture">
+<summary>
+  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+</summary>
+</member>
+</members>
+</doc>

bin/Release/EDKB08_VitruvTransfer.exe.config

@@ -0,0 +1,36 @@
+<?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="EDKB08_VitruvTransfer.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.5" />
+    </startup>
+    <userSettings>
+        <EDKB08_VitruvTransfer.My.MySettings>
+            <setting name="NetUse" serializeAs="String">
+                <value>x: https://webdav.vitruv.ch/CH_ThurgauerKB/VitTransfer/Export</value>
+            </setting>
+            <setting name="User" serializeAs="String">
+                <value>wd-tkbedoka</value>
+            </setting>
+            <setting name="Passwort" serializeAs="String">
+                <value>fR*zzbED2lec</value>
+            </setting>
+            <setting name="TempFIle" serializeAs="String">
+                <value>k:\edoka\vitruv\</value>
+            </setting>
+            <setting name="SourceFiles" serializeAs="String">
+                <value>x:</value>
+            </setting>
+            <setting name="DebugFile" serializeAs="String">
+                <value>k:\edoka\VitruvDebug.txt</value>
+            </setting>
+            <setting name="Debug" serializeAs="String">
+                <value>1</value>
+            </setting>
+        </EDKB08_VitruvTransfer.My.MySettings>
+    </userSettings>
+</configuration>

bin/Release/EDKB08_VitruvTransfer.xml

@@ -0,0 +1,26 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+EDKB08_VitruvTransfer
+</name>
+</assembly>
+<members>
+<member name="T:EDKB08_VitruvTransfer.My.Resources.Resources">
+<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+<member name="P:EDKB08_VitruvTransfer.My.Resources.Resources.ResourceManager">
+<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member>
+<member name="P:EDKB08_VitruvTransfer.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>

obj/Debug/.NETFramework,Version=v4.5.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.5", FrameworkDisplayName:=".NET Framework 4.5")>

obj/Debug/CoreCompileInputs.cache

@@ -0,0 +1 @@
+a2a89453be3d8c69dc3de6fa87cb56eab08b2ec8

obj/Debug/EDKB08_Dimensions_Transfer.vbproj.CoreCompileInputs.cache

@@ -0,0 +1 @@
+6e95f0dd42dfb99b990e79f0c8b4929cefba7c1d

obj/Debug/EDKB08_Dimensions_Transfer.vbproj.FileListAbsolute.txt

@@ -0,0 +1,13 @@
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_Dimensioins_Transfer\bin\Debug\EDKB08_Dimensions_Transfer.exe.config
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_Dimensioins_Transfer\bin\Debug\EDKB08_Dimensions_Transfer.exe
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_Dimensioins_Transfer\bin\Debug\EDKB08_Dimensions_Transfer.pdb
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_Dimensioins_Transfer\bin\Debug\EDKB08_Dimensions_Transfer.xml
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_Dimensioins_Transfer\obj\Debug\EDKB08_Dimensions_Transfer.Resources.resources
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_Dimensioins_Transfer\obj\Debug\EDKB08_Dimensions_Transfer.vbproj.GenerateResource.cache
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_Dimensioins_Transfer\obj\Debug\EDKB08_Dimensions_Transfer.vbproj.CoreCompileInputs.cache
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_Dimensioins_Transfer\obj\Debug\EDKB08_Dimensions_Transfer.exe
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_Dimensioins_Transfer\obj\Debug\EDKB08_Dimensions_Transfer.xml
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_Dimensioins_Transfer\obj\Debug\EDKB08_Dimensions_Transfer.pdb
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_Dimensioins_Transfer\bin\Debug\Newtonsoft.Json.dll
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_Dimensioins_Transfer\obj\Debug\EDKB08_Dimensions_Transfer.vbproj.CopyComplete
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_Dimensioins_Transfer\obj\Debug\EDKB08_Dimensions_Transfer.vbproj.AssemblyReference.cache

obj/Debug/EDKB08_Dimensions_Transfer.xml

@@ -0,0 +1,26 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+EDKB08_Dimensions_Transfer
+</name>
+</assembly>
+<members>
+<member name="T:EDKB08_Dimensions_Transfer.My.Resources.Resources">
+<summary>
+  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+</summary>
+</member>
+<member name="P:EDKB08_Dimensions_Transfer.My.Resources.Resources.ResourceManager">
+<summary>
+  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+</summary>
+</member>
+<member name="P:EDKB08_Dimensions_Transfer.My.Resources.Resources.Culture">
+<summary>
+  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+</summary>
+</member>
+</members>
+</doc>

obj/Debug/EDKB08_VitruvTransfer.vbproj.CoreCompileInputs.cache

@@ -0,0 +1 @@
+0d0fc9aceea105e27f8ceb86aeb5b28ed8eef9fc

obj/Debug/EDKB08_VitruvTransfer.vbproj.FileListAbsolute.txt

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

obj/Debug/EDKB08_VitruvTransfer.xml

@@ -0,0 +1,26 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+EDKB08_VitruvTransfer
+</name>
+</assembly>
+<members>
+<member name="T:EDKB08_VitruvTransfer.My.Resources.Resources">
+<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+<member name="P:EDKB08_VitruvTransfer.My.Resources.Resources.ResourceManager">
+<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member>
+<member name="P:EDKB08_VitruvTransfer.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>

obj/Debug/_IsIncrementalBuild

@@ -0,0 +1 @@
+obj\Debug\\_IsIncrementalBuild

obj/Release/.NETFramework,Version=v4.5.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.5", FrameworkDisplayName:=".NET Framework 4.5")>

obj/Release/CoreCompileInputs.cache

@@ -0,0 +1 @@
+a2a89453be3d8c69dc3de6fa87cb56eab08b2ec8

obj/Release/EDKB08_VitruvTransfer.vbproj.FileListAbsolute.txt

@@ -0,0 +1,10 @@
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_VitruvTransfer\bin\Release\EDKB08_VitruvTransfer.exe.config
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_VitruvTransfer\bin\Release\EDKB08_VitruvTransfer.exe
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_VitruvTransfer\bin\Release\EDKB08_VitruvTransfer.pdb
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_VitruvTransfer\bin\Release\EDKB08_VitruvTransfer.xml
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_VitruvTransfer\obj\Release\EDKB08_VitruvTransfer.vbprojResolveAssemblyReference.cache
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_VitruvTransfer\obj\Release\EDKB08_VitruvTransfer.Resources.resources
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_VitruvTransfer\obj\Release\EDKB08_VitruvTransfer.vbproj.GenerateResource.Cache
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_VitruvTransfer\obj\Release\EDKB08_VitruvTransfer.exe
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_VitruvTransfer\obj\Release\EDKB08_VitruvTransfer.xml
+E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_VitruvTransfer\obj\Release\EDKB08_VitruvTransfer.pdb

obj/Release/EDKB08_VitruvTransfer.xml

@@ -0,0 +1,26 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+EDKB08_VitruvTransfer
+</name>
+</assembly>
+<members>
+<member name="T:EDKB08_VitruvTransfer.My.Resources.Resources">
+<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+<member name="P:EDKB08_VitruvTransfer.My.Resources.Resources.ResourceManager">
+<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member>
+<member name="P:EDKB08_VitruvTransfer.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>