Initial

2023-11-14 07:45:33 +01:00
commit 08e0911d95
79 changed files with 1843 additions and 0 deletions
--- a/Klassen/clsAttributes.vb
+++ 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
--- a/Klassen/clsDocument.vb
+++ b/Klassen/clsDocument.vb
@@ -0,0 +1,3 @@
+Public Class clsDocument
+
+End Class
--- a/Klassen/clsDocuments.vb
+++ 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
--- a/Klassen/clsOrder.vb
+++ 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
--- a/Klassen/clsOrders.vb
+++ 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
--- a/Klassen/clsUser.vb
+++ 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
--- a/Klassen/clslog.vb
+++ 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