commit 08e0911d95bd71528d68652452c557644f2266f0 Author: Stefan Hutter Date: Tue Nov 14 07:45:33 2023 +0100 Initial diff --git a/.vs/EDKB08_Dimensions_Transfer/FileContentIndex/07f86ce2-cada-4395-a56e-af03044e4c9e.vsidx b/.vs/EDKB08_Dimensions_Transfer/FileContentIndex/07f86ce2-cada-4395-a56e-af03044e4c9e.vsidx new file mode 100644 index 0000000..117b03b Binary files /dev/null and b/.vs/EDKB08_Dimensions_Transfer/FileContentIndex/07f86ce2-cada-4395-a56e-af03044e4c9e.vsidx differ diff --git a/.vs/EDKB08_Dimensions_Transfer/FileContentIndex/e3ea2765-cc71-43d4-b0f7-e09b78cd9f2a.vsidx b/.vs/EDKB08_Dimensions_Transfer/FileContentIndex/e3ea2765-cc71-43d4-b0f7-e09b78cd9f2a.vsidx new file mode 100644 index 0000000..d46889f Binary files /dev/null and b/.vs/EDKB08_Dimensions_Transfer/FileContentIndex/e3ea2765-cc71-43d4-b0f7-e09b78cd9f2a.vsidx differ diff --git a/.vs/EDKB08_Dimensions_Transfer/FileContentIndex/e5ede10e-d521-4692-b43c-baef33947fb6.vsidx b/.vs/EDKB08_Dimensions_Transfer/FileContentIndex/e5ede10e-d521-4692-b43c-baef33947fb6.vsidx new file mode 100644 index 0000000..a204007 Binary files /dev/null and b/.vs/EDKB08_Dimensions_Transfer/FileContentIndex/e5ede10e-d521-4692-b43c-baef33947fb6.vsidx differ diff --git a/.vs/EDKB08_Dimensions_Transfer/FileContentIndex/read.lock b/.vs/EDKB08_Dimensions_Transfer/FileContentIndex/read.lock new file mode 100644 index 0000000..e69de29 diff --git a/.vs/EDKB08_Dimensions_Transfer/v15/.suo b/.vs/EDKB08_Dimensions_Transfer/v15/.suo new file mode 100644 index 0000000..5b85fcb Binary files /dev/null and b/.vs/EDKB08_Dimensions_Transfer/v15/.suo differ diff --git a/.vs/EDKB08_Dimensions_Transfer/v16/.suo b/.vs/EDKB08_Dimensions_Transfer/v16/.suo new file mode 100644 index 0000000..0c474ce Binary files /dev/null and b/.vs/EDKB08_Dimensions_Transfer/v16/.suo differ diff --git a/.vs/EDKB08_Dimensions_Transfer/v17/.suo b/.vs/EDKB08_Dimensions_Transfer/v17/.suo new file mode 100644 index 0000000..877797e Binary files /dev/null and b/.vs/EDKB08_Dimensions_Transfer/v17/.suo differ diff --git a/App.config b/App.config new file mode 100644 index 0000000..c65844d --- /dev/null +++ b/App.config @@ -0,0 +1,66 @@ + + + + +
+ + + + + + + + + eyJhbGciOiJIUzUxMiJ9.eyJzdWIiOiJhcGkudGVzdC5vcmRlcm1hbmFnZXIudGtiIiwiZXhwIjoxNzE3MTA2NDAwLCJqdGkiOiIxODg5In0.1gjvWvcUvr7Vh_MAVU47S0ZZ1a9y5-MOm0ljZ3JuyEytYxTXB2Q4Ta9oSdM_dW9rnUVVPD6NtxKT8dNoZBP1-Q + + + test.wuestdimensions.com + + + k:\edoka\dimensions\timeparameter.txt + + + https://test.wuestdimensions.com + + + /ws/orders + + + ?status=FINISHED&updatedSince=&SelectionTime& + + + &OrderID&/documents + + + k:\edoka\dimensions\DimensionTransfer.log + + + k:\edoka\edkb08\ + + + k:\edoka\dimensions\Dimension_Manual_Processing.txt + + + k:\edoka\dimensions\ + + + Send-MailMessage -from &sender& -to &recipient& -Subject "EDKB08-Dimensions Transfer" -Body "&body&" -smtpServer smtp.tgcorp.ch + + + -executeionpolicy bybass -file + + + dimensionsendmail.ps1 + + + 0 + + + info@shub.ch + + + info@shub.ch + + + + \ No newline at end of file diff --git a/EDKB08_Dimensions_Transfer.sln b/EDKB08_Dimensions_Transfer.sln new file mode 100644 index 0000000..4b3d2d5 --- /dev/null +++ b/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 diff --git a/EDKB08_Dimensions_Transfer.vbproj b/EDKB08_Dimensions_Transfer.vbproj new file mode 100644 index 0000000..b0a0b5e --- /dev/null +++ b/EDKB08_Dimensions_Transfer.vbproj @@ -0,0 +1,119 @@ + + + + + Debug + AnyCPU + {1A22EE57-19C4-4F70-B9B9-0765B9FEA876} + Exe + EDKB08_Dimensions_Transfer.Module1 + EDKB08_Dimensions_Transfer + EDKB08_Dimensions_Transfer + 512 + Console + v4.5 + + + AnyCPU + true + full + true + true + bin\Debug\ + EDKB08_Dimensions_Transfer.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + EDKB08_Dimensions_Transfer.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + True + Application.myapp + True + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + \ No newline at end of file diff --git a/Git_Create.bat b/Git_Create.bat new file mode 100644 index 0000000..659c9e0 --- /dev/null +++ b/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 \ No newline at end of file diff --git a/Klassen/clsAttributes.vb b/Klassen/clsAttributes.vb new file mode 100644 index 0000000..a576c0b --- /dev/null +++ b/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 diff --git a/Klassen/clsDocument.vb b/Klassen/clsDocument.vb new file mode 100644 index 0000000..59570da --- /dev/null +++ b/Klassen/clsDocument.vb @@ -0,0 +1,3 @@ +Public Class clsDocument + +End Class diff --git a/Klassen/clsDocuments.vb b/Klassen/clsDocuments.vb new file mode 100644 index 0000000..fe17f05 --- /dev/null +++ b/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 \ No newline at end of file diff --git a/Klassen/clsOrder.vb b/Klassen/clsOrder.vb new file mode 100644 index 0000000..dbbb651 --- /dev/null +++ b/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 \ No newline at end of file diff --git a/Klassen/clsOrders.vb b/Klassen/clsOrders.vb new file mode 100644 index 0000000..a1ab54b --- /dev/null +++ b/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 diff --git a/Klassen/clsUser.vb b/Klassen/clsUser.vb new file mode 100644 index 0000000..8f43b4a --- /dev/null +++ b/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 diff --git a/Klassen/clslog.vb b/Klassen/clslog.vb new file mode 100644 index 0000000..bcecca1 --- /dev/null +++ b/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 diff --git a/Module1.vb b/Module1.vb new file mode 100644 index 0000000..223a667 --- /dev/null +++ b/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 diff --git a/My Project/Application.Designer.vb b/My Project/Application.Designer.vb new file mode 100644 index 0000000..0677793 --- /dev/null +++ b/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' 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. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/My Project/Application.myapp b/My Project/Application.myapp new file mode 100644 index 0000000..23b627f --- /dev/null +++ b/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 2 + true + diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..9c1b067 --- /dev/null +++ b/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 + + + + + + + + + + +'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird. + + +' 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: +' + + + diff --git a/My Project/Resources.Designer.vb b/My Project/Resources.Designer.vb new file mode 100644 index 0000000..a623f65 --- /dev/null +++ b/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' 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. +' +'------------------------------------------------------------------------------ + +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. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + 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 + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/My Project/Resources.resx b/My Project/Resources.resx new file mode 100644 index 0000000..ffecec8 --- /dev/null +++ b/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/My Project/Settings.Designer.vb b/My Project/Settings.Designer.vb new file mode 100644 index 0000000..3b53bfc --- /dev/null +++ b/My Project/Settings.Designer.vb @@ -0,0 +1,280 @@ +'------------------------------------------------------------------------------ +' +' 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. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + 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 + + _ + 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 + + _ + Public Property Token() As String + Get + Return CType(Me("Token"),String) + End Get + Set + Me("Token") = value + End Set + End Property + + _ + Public Property HOST() As String + Get + Return CType(Me("HOST"),String) + End Get + Set + Me("HOST") = value + End Set + End Property + + _ + Public Property TimeParam() As String + Get + Return CType(Me("TimeParam"),String) + End Get + Set + Me("TimeParam") = value + End Set + End Property + + _ + Public Property BaseURL() As String + Get + Return CType(Me("BaseURL"),String) + End Get + Set + Me("BaseURL") = value + End Set + End Property + + _ + Public Property Orders() As String + Get + Return CType(Me("Orders"),String) + End Get + Set + Me("Orders") = value + End Set + End Property + + _ + Public Property OrderFilter() As String + Get + Return CType(Me("OrderFilter"),String) + End Get + Set + Me("OrderFilter") = value + End Set + End Property + + _ + Public Property Documents() As String + Get + Return CType(Me("Documents"),String) + End Get + Set + Me("Documents") = value + End Set + End Property + + _ + Public Property Log() As String + Get + Return CType(Me("Log"),String) + End Get + Set + Me("Log") = value + End Set + End Property + + _ + Public Property DestPath() As String + Get + Return CType(Me("DestPath"),String) + End Get + Set + Me("DestPath") = value + End Set + End Property + + _ + 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 + + _ + Public Property TempPath() As String + Get + Return CType(Me("TempPath"),String) + End Get + Set + Me("TempPath") = value + End Set + End Property + + _ + Public Property sendmail_ps() As String + Get + Return CType(Me("sendmail_ps"),String) + End Get + Set + Me("sendmail_ps") = value + End Set + End Property + + _ + Public Property sendmailcmd() As String + Get + Return CType(Me("sendmailcmd"),String) + End Get + Set + Me("sendmailcmd") = value + End Set + End Property + + _ + Public Property sendmailfile() As String + Get + Return CType(Me("sendmailfile"),String) + End Get + Set + Me("sendmailfile") = value + End Set + End Property + + _ + Public Property sendmail() As String + Get + Return CType(Me("sendmail"),String) + End Get + Set + Me("sendmail") = value + End Set + End Property + + _ + Public Property sender() As String + Get + Return CType(Me("sender"),String) + End Get + Set + Me("sender") = value + End Set + End Property + + _ + 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 + + _ + Friend Module MySettingsProperty + + _ + 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 diff --git a/My Project/Settings.settings b/My Project/Settings.settings new file mode 100644 index 0000000..93930b3 --- /dev/null +++ b/My Project/Settings.settings @@ -0,0 +1,57 @@ + + + + + + eyJhbGciOiJIUzUxMiJ9.eyJzdWIiOiJhcGkudGVzdC5vcmRlcm1hbmFnZXIudGtiIiwiZXhwIjoxNzE3MTA2NDAwLCJqdGkiOiIxODg5In0.1gjvWvcUvr7Vh_MAVU47S0ZZ1a9y5-MOm0ljZ3JuyEytYxTXB2Q4Ta9oSdM_dW9rnUVVPD6NtxKT8dNoZBP1-Q + + + test.wuestdimensions.com + + + k:\edoka\dimensions\timeparameter.txt + + + https://test.wuestdimensions.com + + + /ws/orders + + + ?status=FINISHED&updatedSince=&SelectionTime& + + + &OrderID&/documents + + + k:\edoka\dimensions\DimensionTransfer.log + + + k:\edoka\edkb08\ + + + k:\edoka\dimensions\Dimension_Manual_Processing.txt + + + k:\edoka\dimensions\ + + + Send-MailMessage -from &sender& -to &recipient& -Subject "EDKB08-Dimensions Transfer" -Body "&body&" -smtpServer smtp.tgcorp.ch + + + -executeionpolicy bybass -file + + + dimensionsendmail.ps1 + + + 0 + + + info@shub.ch + + + info@shub.ch + + + \ No newline at end of file diff --git a/bin/Debug/20221002_Dimenstiostransfer.zip b/bin/Debug/20221002_Dimenstiostransfer.zip new file mode 100644 index 0000000..d4cab4f Binary files /dev/null and b/bin/Debug/20221002_Dimenstiostransfer.zip differ diff --git a/bin/Debug/20221030_Dimensions_Transfer.zip b/bin/Debug/20221030_Dimensions_Transfer.zip new file mode 100644 index 0000000..a15ef64 Binary files /dev/null and b/bin/Debug/20221030_Dimensions_Transfer.zip differ diff --git a/bin/Debug/20221105_Dimensionstransfer.zip b/bin/Debug/20221105_Dimensionstransfer.zip new file mode 100644 index 0000000..a4d2010 Binary files /dev/null and b/bin/Debug/20221105_Dimensionstransfer.zip differ diff --git a/bin/Debug/EDKB08Struktur.xml b/bin/Debug/EDKB08Struktur.xml new file mode 100644 index 0000000..e8929b9 --- /dev/null +++ b/bin/Debug/EDKB08Struktur.xml @@ -0,0 +1,50 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/bin/Debug/EDKB08_Dimensions_Transfer.exe b/bin/Debug/EDKB08_Dimensions_Transfer.exe new file mode 100644 index 0000000..6094333 Binary files /dev/null and b/bin/Debug/EDKB08_Dimensions_Transfer.exe differ diff --git a/bin/Debug/EDKB08_Dimensions_Transfer.exe.config b/bin/Debug/EDKB08_Dimensions_Transfer.exe.config new file mode 100644 index 0000000..c65844d --- /dev/null +++ b/bin/Debug/EDKB08_Dimensions_Transfer.exe.config @@ -0,0 +1,66 @@ + + + + +
+ + + + + + + + + eyJhbGciOiJIUzUxMiJ9.eyJzdWIiOiJhcGkudGVzdC5vcmRlcm1hbmFnZXIudGtiIiwiZXhwIjoxNzE3MTA2NDAwLCJqdGkiOiIxODg5In0.1gjvWvcUvr7Vh_MAVU47S0ZZ1a9y5-MOm0ljZ3JuyEytYxTXB2Q4Ta9oSdM_dW9rnUVVPD6NtxKT8dNoZBP1-Q + + + test.wuestdimensions.com + + + k:\edoka\dimensions\timeparameter.txt + + + https://test.wuestdimensions.com + + + /ws/orders + + + ?status=FINISHED&updatedSince=&SelectionTime& + + + &OrderID&/documents + + + k:\edoka\dimensions\DimensionTransfer.log + + + k:\edoka\edkb08\ + + + k:\edoka\dimensions\Dimension_Manual_Processing.txt + + + k:\edoka\dimensions\ + + + Send-MailMessage -from &sender& -to &recipient& -Subject "EDKB08-Dimensions Transfer" -Body "&body&" -smtpServer smtp.tgcorp.ch + + + -executeionpolicy bybass -file + + + dimensionsendmail.ps1 + + + 0 + + + info@shub.ch + + + info@shub.ch + + + + \ No newline at end of file diff --git a/bin/Debug/EDKB08_Dimensions_Transfer.pdb b/bin/Debug/EDKB08_Dimensions_Transfer.pdb new file mode 100644 index 0000000..9835a2f Binary files /dev/null and b/bin/Debug/EDKB08_Dimensions_Transfer.pdb differ diff --git a/bin/Debug/EDKB08_Dimensions_Transfer.xml b/bin/Debug/EDKB08_Dimensions_Transfer.xml new file mode 100644 index 0000000..d803f18 --- /dev/null +++ b/bin/Debug/EDKB08_Dimensions_Transfer.xml @@ -0,0 +1,26 @@ + + + + +EDKB08_Dimensions_Transfer + + + + + + Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + + + + + Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + + + + + Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + + + + diff --git a/bin/Debug/Newtonsoft.Json.dll b/bin/Debug/Newtonsoft.Json.dll new file mode 100644 index 0000000..55d537f Binary files /dev/null and b/bin/Debug/Newtonsoft.Json.dll differ diff --git a/bin/Release/EDKB08_VitruvTransfer.exe b/bin/Release/EDKB08_VitruvTransfer.exe new file mode 100644 index 0000000..7c16caa Binary files /dev/null and b/bin/Release/EDKB08_VitruvTransfer.exe differ diff --git a/bin/Release/EDKB08_VitruvTransfer.exe.config b/bin/Release/EDKB08_VitruvTransfer.exe.config new file mode 100644 index 0000000..732605d --- /dev/null +++ b/bin/Release/EDKB08_VitruvTransfer.exe.config @@ -0,0 +1,36 @@ + + + + +
+ + + + + + + + + x: https://webdav.vitruv.ch/CH_ThurgauerKB/VitTransfer/Export + + + wd-tkbedoka + + + fR*zzbED2lec + + + k:\edoka\vitruv\ + + + x: + + + k:\edoka\VitruvDebug.txt + + + 1 + + + + \ No newline at end of file diff --git a/bin/Release/EDKB08_VitruvTransfer.pdb b/bin/Release/EDKB08_VitruvTransfer.pdb new file mode 100644 index 0000000..3766c55 Binary files /dev/null and b/bin/Release/EDKB08_VitruvTransfer.pdb differ diff --git a/bin/Release/EDKB08_VitruvTransfer.xml b/bin/Release/EDKB08_VitruvTransfer.xml new file mode 100644 index 0000000..a8c1dee --- /dev/null +++ b/bin/Release/EDKB08_VitruvTransfer.xml @@ -0,0 +1,26 @@ + + + + +EDKB08_VitruvTransfer + + + + + + A strongly-typed resource class, for looking up localized strings, etc. + + + + + Returns the cached ResourceManager instance used by this class. + + + + + Overrides the current thread's CurrentUICulture property for all + resource lookups using this strongly typed resource class. + + + + diff --git a/obj/Debug/.NETFramework,Version=v4.5.AssemblyAttributes.vb b/obj/Debug/.NETFramework,Version=v4.5.AssemblyAttributes.vb new file mode 100644 index 0000000..59d2733 --- /dev/null +++ b/obj/Debug/.NETFramework,Version=v4.5.AssemblyAttributes.vb @@ -0,0 +1,7 @@ +' + Option Strict Off + Option Explicit On + + Imports System + Imports System.Reflection + diff --git a/obj/Debug/CoreCompileInputs.cache b/obj/Debug/CoreCompileInputs.cache new file mode 100644 index 0000000..9cc4ea2 --- /dev/null +++ b/obj/Debug/CoreCompileInputs.cache @@ -0,0 +1 @@ +a2a89453be3d8c69dc3de6fa87cb56eab08b2ec8 diff --git a/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/obj/Debug/DesignTimeResolveAssemblyReferences.cache new file mode 100644 index 0000000..d6e8b09 Binary files /dev/null and b/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ diff --git a/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..9e9f59d Binary files /dev/null and b/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/obj/Debug/EDKB08_Dimensions_Transfer.Resources.resources b/obj/Debug/EDKB08_Dimensions_Transfer.Resources.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/obj/Debug/EDKB08_Dimensions_Transfer.Resources.resources differ diff --git a/obj/Debug/EDKB08_Dimensions_Transfer.exe b/obj/Debug/EDKB08_Dimensions_Transfer.exe new file mode 100644 index 0000000..6094333 Binary files /dev/null and b/obj/Debug/EDKB08_Dimensions_Transfer.exe differ diff --git a/obj/Debug/EDKB08_Dimensions_Transfer.pdb b/obj/Debug/EDKB08_Dimensions_Transfer.pdb new file mode 100644 index 0000000..9835a2f Binary files /dev/null and b/obj/Debug/EDKB08_Dimensions_Transfer.pdb differ diff --git a/obj/Debug/EDKB08_Dimensions_Transfer.vbproj.AssemblyReference.cache b/obj/Debug/EDKB08_Dimensions_Transfer.vbproj.AssemblyReference.cache new file mode 100644 index 0000000..28c399f Binary files /dev/null and b/obj/Debug/EDKB08_Dimensions_Transfer.vbproj.AssemblyReference.cache differ diff --git a/obj/Debug/EDKB08_Dimensions_Transfer.vbproj.CopyComplete b/obj/Debug/EDKB08_Dimensions_Transfer.vbproj.CopyComplete new file mode 100644 index 0000000..e69de29 diff --git a/obj/Debug/EDKB08_Dimensions_Transfer.vbproj.CoreCompileInputs.cache b/obj/Debug/EDKB08_Dimensions_Transfer.vbproj.CoreCompileInputs.cache new file mode 100644 index 0000000..808d3cd --- /dev/null +++ b/obj/Debug/EDKB08_Dimensions_Transfer.vbproj.CoreCompileInputs.cache @@ -0,0 +1 @@ +6e95f0dd42dfb99b990e79f0c8b4929cefba7c1d diff --git a/obj/Debug/EDKB08_Dimensions_Transfer.vbproj.FileListAbsolute.txt b/obj/Debug/EDKB08_Dimensions_Transfer.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..9602df4 --- /dev/null +++ b/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 diff --git a/obj/Debug/EDKB08_Dimensions_Transfer.vbproj.GenerateResource.cache b/obj/Debug/EDKB08_Dimensions_Transfer.vbproj.GenerateResource.cache new file mode 100644 index 0000000..bd65d58 Binary files /dev/null and b/obj/Debug/EDKB08_Dimensions_Transfer.vbproj.GenerateResource.cache differ diff --git a/obj/Debug/EDKB08_Dimensions_Transfer.xml b/obj/Debug/EDKB08_Dimensions_Transfer.xml new file mode 100644 index 0000000..d803f18 --- /dev/null +++ b/obj/Debug/EDKB08_Dimensions_Transfer.xml @@ -0,0 +1,26 @@ + + + + +EDKB08_Dimensions_Transfer + + + + + + Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + + + + + Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + + + + + Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + + + + diff --git a/obj/Debug/EDKB08_VitruvTransfer.Resources.resources b/obj/Debug/EDKB08_VitruvTransfer.Resources.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/obj/Debug/EDKB08_VitruvTransfer.Resources.resources differ diff --git a/obj/Debug/EDKB08_VitruvTransfer.exe b/obj/Debug/EDKB08_VitruvTransfer.exe new file mode 100644 index 0000000..89aed5c Binary files /dev/null and b/obj/Debug/EDKB08_VitruvTransfer.exe differ diff --git a/obj/Debug/EDKB08_VitruvTransfer.pdb b/obj/Debug/EDKB08_VitruvTransfer.pdb new file mode 100644 index 0000000..4982749 Binary files /dev/null and b/obj/Debug/EDKB08_VitruvTransfer.pdb differ diff --git a/obj/Debug/EDKB08_VitruvTransfer.vbproj.AssemblyReference.cache b/obj/Debug/EDKB08_VitruvTransfer.vbproj.AssemblyReference.cache new file mode 100644 index 0000000..37962d7 Binary files /dev/null and b/obj/Debug/EDKB08_VitruvTransfer.vbproj.AssemblyReference.cache differ diff --git a/obj/Debug/EDKB08_VitruvTransfer.vbproj.CoreCompileInputs.cache b/obj/Debug/EDKB08_VitruvTransfer.vbproj.CoreCompileInputs.cache new file mode 100644 index 0000000..efcdfbc --- /dev/null +++ b/obj/Debug/EDKB08_VitruvTransfer.vbproj.CoreCompileInputs.cache @@ -0,0 +1 @@ +0d0fc9aceea105e27f8ceb86aeb5b28ed8eef9fc diff --git a/obj/Debug/EDKB08_VitruvTransfer.vbproj.FileListAbsolute.txt b/obj/Debug/EDKB08_VitruvTransfer.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..6cadfbc --- /dev/null +++ b/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 diff --git a/obj/Debug/EDKB08_VitruvTransfer.vbproj.GenerateResource.Cache b/obj/Debug/EDKB08_VitruvTransfer.vbproj.GenerateResource.Cache new file mode 100644 index 0000000..049a53b Binary files /dev/null and b/obj/Debug/EDKB08_VitruvTransfer.vbproj.GenerateResource.Cache differ diff --git a/obj/Debug/EDKB08_VitruvTransfer.vbprojAssemblyReference.cache b/obj/Debug/EDKB08_VitruvTransfer.vbprojAssemblyReference.cache new file mode 100644 index 0000000..92d19e1 Binary files /dev/null and b/obj/Debug/EDKB08_VitruvTransfer.vbprojAssemblyReference.cache differ diff --git a/obj/Debug/EDKB08_VitruvTransfer.vbprojResolveAssemblyReference.cache b/obj/Debug/EDKB08_VitruvTransfer.vbprojResolveAssemblyReference.cache new file mode 100644 index 0000000..d1e8228 Binary files /dev/null and b/obj/Debug/EDKB08_VitruvTransfer.vbprojResolveAssemblyReference.cache differ diff --git a/obj/Debug/EDKB08_VitruvTransfer.xml b/obj/Debug/EDKB08_VitruvTransfer.xml new file mode 100644 index 0000000..a8c1dee --- /dev/null +++ b/obj/Debug/EDKB08_VitruvTransfer.xml @@ -0,0 +1,26 @@ + + + + +EDKB08_VitruvTransfer + + + + + + A strongly-typed resource class, for looking up localized strings, etc. + + + + + Returns the cached ResourceManager instance used by this class. + + + + + Overrides the current thread's CurrentUICulture property for all + resource lookups using this strongly typed resource class. + + + + diff --git a/obj/Debug/TempPE/My Project.Application.Designer.vb.dll b/obj/Debug/TempPE/My Project.Application.Designer.vb.dll new file mode 100644 index 0000000..14160a6 Binary files /dev/null and b/obj/Debug/TempPE/My Project.Application.Designer.vb.dll differ diff --git a/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll b/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll new file mode 100644 index 0000000..a095c5c Binary files /dev/null and b/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll differ diff --git a/obj/Debug/_IsIncrementalBuild b/obj/Debug/_IsIncrementalBuild new file mode 100644 index 0000000..ff132f0 --- /dev/null +++ b/obj/Debug/_IsIncrementalBuild @@ -0,0 +1 @@ +obj\Debug\\_IsIncrementalBuild diff --git a/obj/Release/.NETFramework,Version=v4.5.AssemblyAttributes.vb b/obj/Release/.NETFramework,Version=v4.5.AssemblyAttributes.vb new file mode 100644 index 0000000..59d2733 --- /dev/null +++ b/obj/Release/.NETFramework,Version=v4.5.AssemblyAttributes.vb @@ -0,0 +1,7 @@ +' + Option Strict Off + Option Explicit On + + Imports System + Imports System.Reflection + diff --git a/obj/Release/CoreCompileInputs.cache b/obj/Release/CoreCompileInputs.cache new file mode 100644 index 0000000..9cc4ea2 --- /dev/null +++ b/obj/Release/CoreCompileInputs.cache @@ -0,0 +1 @@ +a2a89453be3d8c69dc3de6fa87cb56eab08b2ec8 diff --git a/obj/Release/DesignTimeResolveAssemblyReferences.cache b/obj/Release/DesignTimeResolveAssemblyReferences.cache new file mode 100644 index 0000000..ff825f3 Binary files /dev/null and b/obj/Release/DesignTimeResolveAssemblyReferences.cache differ diff --git a/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache b/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..1f9f37f Binary files /dev/null and b/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/obj/Release/EDKB08_VitruvTransfer.Resources.resources b/obj/Release/EDKB08_VitruvTransfer.Resources.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/obj/Release/EDKB08_VitruvTransfer.Resources.resources differ diff --git a/obj/Release/EDKB08_VitruvTransfer.exe b/obj/Release/EDKB08_VitruvTransfer.exe new file mode 100644 index 0000000..7c16caa Binary files /dev/null and b/obj/Release/EDKB08_VitruvTransfer.exe differ diff --git a/obj/Release/EDKB08_VitruvTransfer.pdb b/obj/Release/EDKB08_VitruvTransfer.pdb new file mode 100644 index 0000000..3766c55 Binary files /dev/null and b/obj/Release/EDKB08_VitruvTransfer.pdb differ diff --git a/obj/Release/EDKB08_VitruvTransfer.vbproj.AssemblyReference.cache b/obj/Release/EDKB08_VitruvTransfer.vbproj.AssemblyReference.cache new file mode 100644 index 0000000..37962d7 Binary files /dev/null and b/obj/Release/EDKB08_VitruvTransfer.vbproj.AssemblyReference.cache differ diff --git a/obj/Release/EDKB08_VitruvTransfer.vbproj.FileListAbsolute.txt b/obj/Release/EDKB08_VitruvTransfer.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..091193c --- /dev/null +++ b/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 diff --git a/obj/Release/EDKB08_VitruvTransfer.vbproj.GenerateResource.Cache b/obj/Release/EDKB08_VitruvTransfer.vbproj.GenerateResource.Cache new file mode 100644 index 0000000..049a53b Binary files /dev/null and b/obj/Release/EDKB08_VitruvTransfer.vbproj.GenerateResource.Cache differ diff --git a/obj/Release/EDKB08_VitruvTransfer.vbprojAssemblyReference.cache b/obj/Release/EDKB08_VitruvTransfer.vbprojAssemblyReference.cache new file mode 100644 index 0000000..92d19e1 Binary files /dev/null and b/obj/Release/EDKB08_VitruvTransfer.vbprojAssemblyReference.cache differ diff --git a/obj/Release/EDKB08_VitruvTransfer.vbprojResolveAssemblyReference.cache b/obj/Release/EDKB08_VitruvTransfer.vbprojResolveAssemblyReference.cache new file mode 100644 index 0000000..0b43cfc Binary files /dev/null and b/obj/Release/EDKB08_VitruvTransfer.vbprojResolveAssemblyReference.cache differ diff --git a/obj/Release/EDKB08_VitruvTransfer.xml b/obj/Release/EDKB08_VitruvTransfer.xml new file mode 100644 index 0000000..a8c1dee --- /dev/null +++ b/obj/Release/EDKB08_VitruvTransfer.xml @@ -0,0 +1,26 @@ + + + + +EDKB08_VitruvTransfer + + + + + + A strongly-typed resource class, for looking up localized strings, etc. + + + + + Returns the cached ResourceManager instance used by this class. + + + + + Overrides the current thread's CurrentUICulture property for all + resource lookups using this strongly typed resource class. + + + + diff --git a/obj/Release/TempPE/My Project.Resources.Designer.vb.dll b/obj/Release/TempPE/My Project.Resources.Designer.vb.dll new file mode 100644 index 0000000..14bbd4a Binary files /dev/null and b/obj/Release/TempPE/My Project.Resources.Designer.vb.dll differ