Update OnBase-DIP-Verarbeitung

Module1.vb

@@ -1,11 +1,7 @@
 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
+Imports Newtonsoft.Json
 
 ' Changelog
 ' 20221105  - Anpassung neuer Dokumentart 'FINAL_VALUATION_REPORT'"
@@ -349,24 +345,15 @@ Module Module1
             Process_Step = 23
 
             Dim ds As New DataSet
-            ds.ReadXml(ApplicationPath() + "EDKB08struktur.xml")
+            'ds.ReadXml(ApplicationPath() + "EDKB08struktur.xml")
+            ds.ReadXml(ApplicationPath() + "DIPStruktur.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
@@ -378,6 +365,37 @@ Module Module1
             dr("bewertet_von") = get_user_data("valuator")
             dr("plausibilisiert_von") = get_user_data("reviewer")
             dr("plausibilisiert_am") = Order.modificationdate
+            dr("Status_Vertraege") = "Aktiv"
+            Dim bezeichnung As String
+            Dim tmpbez As String
+
+            bezeichnung = "WD " + Order.id.ToString
+            If Not IsNothing(Order.valuationObject.address.addressline1) Then
+                tmpbez = Order.valuationObject.address.addressline1
+            Else
+                tmpbez = ""
+            End If
+            If tmpbez <> "" Then bezeichnung = bezeichnung + ", " + tmpbez
+
+            If Not IsNothing(Order.valuationObject.address.addressline2) Then
+                tmpbez = Order.valuationObject.address.addressline2
+            Else
+                tmpbez = ""
+            End If
+            If tmpbez <> "" Then bezeichnung = bezeichnung + ", " + tmpbez
+            If Not IsNothing(Order.valuationObject.address.place) Then
+                tmpbez = Order.valuationObject.address.place
+            Else
+                tmpbez = ""
+            End If
+            If tmpbez <> "" Then bezeichnung = bezeichnung + ", " + tmpbez
+
+            tmpbez = dr("Kataster").ToString
+            tmpbez = tmpbez.Replace("NULL", "")
+            If tmpbez <> "" Then bezeichnung = bezeichnung + ", " + tmpbez
+
+
+            dr("Bezeichnung") = Bezeichnung
             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))

bin/Debug/DIPStruktur.xml

@@ -0,0 +1,18 @@
+<?xml version="1.0" standalone="yes"?>
+<NewDataSet>
+  <Import>
+    <PARTNERNR />
+    <DATEINAME />
+    <DATEIFORMAT />
+    <HERKUNFTSAPPLIKATION />
+    <AUFTRAGSNR/>
+    <KATASTER />
+    <DOKUMENTSTATUS />
+    <EIGENTUEMER />
+    <BEWERTET_VON />
+    <PLAUSIBILISIERT_VON />
+    <PLAUSIBILISIERT_AM />
+    <BEZEICHNUNG />
+	<Status_Verträge />
+   </Import>
+</NewDataSet>