shu/EDOKA_DimensionTransfer
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Initial

Browse Source
This commit is contained in:
Stefan Hutter
2023-11-14 07:45:33 +01:00
commit 08e0911d95
79 changed files with 1843 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/EDKB08_Dimensions_Transfer/FileContentIndex/07f86ce2-cada-4395-a56e-af03044e4c9e.vsidx Normal file
View File

Binary file not shown.

BIN
.vs/EDKB08_Dimensions_Transfer/FileContentIndex/e3ea2765-cc71-43d4-b0f7-e09b78cd9f2a.vsidx Normal file
View File

Binary file not shown.

BIN
.vs/EDKB08_Dimensions_Transfer/FileContentIndex/e5ede10e-d521-4692-b43c-baef33947fb6.vsidx Normal file
View File

Binary file not shown.

0
.vs/EDKB08_Dimensions_Transfer/FileContentIndex/read.lock Normal file
View File

BIN
.vs/EDKB08_Dimensions_Transfer/v15/.suo Normal file
View File

Binary file not shown.

BIN
.vs/EDKB08_Dimensions_Transfer/v16/.suo Normal file
View File

Binary file not shown.

BIN
.vs/EDKB08_Dimensions_Transfer/v17/.suo Normal file
View File

Binary file not shown.

66
App.config Normal file
View File

@@ -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>

25
EDKB08_Dimensions_Transfer.sln Normal file
View File

@@ -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

119
EDKB08_Dimensions_Transfer.vbproj Normal file
View File

@@ -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>

8
Git_Create.bat Normal file
View File

@@ -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

20
Klassen/clsAttributes.vb Normal file
View File

@@ -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

3
Klassen/clsDocument.vb Normal file
View File

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

27
Klassen/clsDocuments.vb Normal file
View File

@@ -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

118
Klassen/clsOrder.vb Normal file
View File

@@ -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

80
Klassen/clsOrders.vb Normal file
View File

@@ -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

27
Klassen/clsUser.vb Normal file
View File

@@ -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

16
Klassen/clslog.vb Normal file
View File

@@ -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

424
Module1.vb Normal file
View File

@@ -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

13
My Project/Application.Designer.vb generated Normal file
View File

@@ -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

10
My Project/Application.myapp Normal file
View File

@@ -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>

35
My Project/AssemblyInfo.vb Normal file
View File

@@ -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")>

63
My Project/Resources.Designer.vb generated Normal file
View File

@@ -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

117
My Project/Resources.resx Normal file
View File

@@ -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>

280
My Project/Settings.Designer.vb generated Normal file
View File

@@ -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

57
My Project/Settings.settings Normal file
View File

@@ -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
bin/Debug/20221002_Dimenstiostransfer.zip Normal file
View File

Binary file not shown.

BIN
bin/Debug/20221030_Dimensions_Transfer.zip Normal file
View File

Binary file not shown.

BIN
bin/Debug/20221105_Dimensionstransfer.zip Normal file
View File

Binary file not shown.

50
bin/Debug/EDKB08Struktur.xml Normal file
View File

@@ -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
bin/Debug/EDKB08_Dimensions_Transfer.exe Normal file
View File

Binary file not shown.

66
bin/Debug/EDKB08_Dimensions_Transfer.exe.config Normal file
View File

@@ -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
bin/Debug/EDKB08_Dimensions_Transfer.pdb Normal file
View File

Binary file not shown.

26
bin/Debug/EDKB08_Dimensions_Transfer.xml Normal file
View File

@@ -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
bin/Debug/Newtonsoft.Json.dll Normal file
View File

Binary file not shown.

BIN
bin/Release/EDKB08_VitruvTransfer.exe Normal file
View File

Binary file not shown.

36
bin/Release/EDKB08_VitruvTransfer.exe.config Normal file
View File

@@ -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
bin/Release/EDKB08_VitruvTransfer.pdb Normal file
View File

Binary file not shown.

26
bin/Release/EDKB08_VitruvTransfer.xml Normal file
View File

@@ -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>

7
obj/Debug/.NETFramework,Version=v4.5.AssemblyAttributes.vb Normal file
View File

@@ -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")>

1
obj/Debug/CoreCompileInputs.cache Normal file
View File

@@ -0,0 +1 @@
a2a89453be3d8c69dc3de6fa87cb56eab08b2ec8

BIN
obj/Debug/DesignTimeResolveAssemblyReferences.cache Normal file
View File

Binary file not shown.

BIN
obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache Normal file
View File

Binary file not shown.

BIN
obj/Debug/EDKB08_Dimensions_Transfer.Resources.resources Normal file
View File

Binary file not shown.

BIN
obj/Debug/EDKB08_Dimensions_Transfer.exe Normal file
View File

Binary file not shown.

BIN
obj/Debug/EDKB08_Dimensions_Transfer.pdb Normal file
View File

Binary file not shown.

BIN
obj/Debug/EDKB08_Dimensions_Transfer.vbproj.AssemblyReference.cache Normal file
View File

Binary file not shown.

0
obj/Debug/EDKB08_Dimensions_Transfer.vbproj.CopyComplete Normal file
View File

1
obj/Debug/EDKB08_Dimensions_Transfer.vbproj.CoreCompileInputs.cache Normal file
View File

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

13
obj/Debug/EDKB08_Dimensions_Transfer.vbproj.FileListAbsolute.txt Normal file
View File

@@ -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

BIN
obj/Debug/EDKB08_Dimensions_Transfer.vbproj.GenerateResource.cache Normal file
View File

Binary file not shown.

26
obj/Debug/EDKB08_Dimensions_Transfer.xml Normal file
View File

@@ -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
obj/Debug/EDKB08_VitruvTransfer.Resources.resources Normal file
View File

Binary file not shown.

BIN
obj/Debug/EDKB08_VitruvTransfer.exe Normal file
View File

Binary file not shown.

BIN
obj/Debug/EDKB08_VitruvTransfer.pdb Normal file
View File

Binary file not shown.

BIN
obj/Debug/EDKB08_VitruvTransfer.vbproj.AssemblyReference.cache Normal file
View File

Binary file not shown.

1
obj/Debug/EDKB08_VitruvTransfer.vbproj.CoreCompileInputs.cache Normal file
View File

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

11
obj/Debug/EDKB08_VitruvTransfer.vbproj.FileListAbsolute.txt Normal file
View File

@@ -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

BIN
obj/Debug/EDKB08_VitruvTransfer.vbproj.GenerateResource.Cache Normal file
View File

Binary file not shown.

BIN
obj/Debug/EDKB08_VitruvTransfer.vbprojAssemblyReference.cache Normal file
View File

Binary file not shown.

BIN
obj/Debug/EDKB08_VitruvTransfer.vbprojResolveAssemblyReference.cache Normal file
View File

Binary file not shown.

26
obj/Debug/EDKB08_VitruvTransfer.xml Normal file
View File

@@ -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>

BIN
obj/Debug/TempPE/My Project.Application.Designer.vb.dll Normal file
View File

Binary file not shown.

BIN
obj/Debug/TempPE/My Project.Resources.Designer.vb.dll Normal file
View File

Binary file not shown.

1
obj/Debug/_IsIncrementalBuild Normal file
View File

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

7
obj/Release/.NETFramework,Version=v4.5.AssemblyAttributes.vb Normal file
View File

@@ -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")>

1
obj/Release/CoreCompileInputs.cache Normal file
View File

@@ -0,0 +1 @@
a2a89453be3d8c69dc3de6fa87cb56eab08b2ec8

BIN
obj/Release/DesignTimeResolveAssemblyReferences.cache Normal file
View File

Binary file not shown.

BIN
obj/Release/DesignTimeResolveAssemblyReferencesInput.cache Normal file
View File

Binary file not shown.

BIN
obj/Release/EDKB08_VitruvTransfer.Resources.resources Normal file
View File

Binary file not shown.

BIN
obj/Release/EDKB08_VitruvTransfer.exe Normal file
View File

Binary file not shown.

BIN
obj/Release/EDKB08_VitruvTransfer.pdb Normal file
View File

Binary file not shown.

BIN
obj/Release/EDKB08_VitruvTransfer.vbproj.AssemblyReference.cache Normal file
View File

Binary file not shown.

10
obj/Release/EDKB08_VitruvTransfer.vbproj.FileListAbsolute.txt Normal file
View File

@@ -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

BIN
obj/Release/EDKB08_VitruvTransfer.vbproj.GenerateResource.Cache Normal file
View File

Binary file not shown.

BIN
obj/Release/EDKB08_VitruvTransfer.vbprojAssemblyReference.cache Normal file
View File

Binary file not shown.

BIN
obj/Release/EDKB08_VitruvTransfer.vbprojResolveAssemblyReference.cache Normal file
View File

Binary file not shown.

26
obj/Release/EDKB08_VitruvTransfer.xml Normal file
View File

@@ -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>

BIN
obj/Release/TempPE/My Project.Resources.Designer.vb.dll Normal file
View File

Binary file not shown.