diff --git a/EDKB01DB2/.vs/EDKB01DB2/v16/.suo b/EDKB01DB2/.vs/EDKB01DB2/v16/.suo
index 2b5f6ff..1a96937 100644
Binary files a/EDKB01DB2/.vs/EDKB01DB2/v16/.suo and b/EDKB01DB2/.vs/EDKB01DB2/v16/.suo differ
diff --git a/EDKB01DB2/EDKB01DB2/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/EDKB01DB2/EDKB01DB2/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
index c1f59b6..d728306 100644
Binary files a/EDKB01DB2/EDKB01DB2/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache and b/EDKB01DB2/EDKB01DB2/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ
diff --git a/EDKB01DB2/EDKB01DB2/obj/Debug/EDKB01DB2.vbproj.AssemblyReference.cache b/EDKB01DB2/EDKB01DB2/obj/Debug/EDKB01DB2.vbproj.AssemblyReference.cache
new file mode 100644
index 0000000..a31e051
Binary files /dev/null and b/EDKB01DB2/EDKB01DB2/obj/Debug/EDKB01DB2.vbproj.AssemblyReference.cache differ
diff --git a/EDKB02/.vs/EDKB02/v16/.suo b/EDKB02/.vs/EDKB02/v16/.suo
index d1a965c..a75cbf7 100644
Binary files a/EDKB02/.vs/EDKB02/v16/.suo and b/EDKB02/.vs/EDKB02/v16/.suo differ
diff --git a/EDKB08/EDKB08/.vs/EDKB08/v16/.suo b/EDKB08/EDKB08/.vs/EDKB08/v16/.suo
index 6120238..c3e1cad 100644
Binary files a/EDKB08/EDKB08/.vs/EDKB08/v16/.suo and b/EDKB08/EDKB08/.vs/EDKB08/v16/.suo differ
diff --git a/EDKB08/EDKB08/bin/20210411_EDKB08.zip b/EDKB08/EDKB08/bin/20210411_EDKB08.zip
new file mode 100644
index 0000000..11ea4df
Binary files /dev/null and b/EDKB08/EDKB08/bin/20210411_EDKB08.zip differ
diff --git a/EDKB08/EDKB08/bin/20211020_EDKB08.zip b/EDKB08/EDKB08/bin/20211020_EDKB08.zip
new file mode 100644
index 0000000..1e35b86
Binary files /dev/null and b/EDKB08/EDKB08/bin/20211020_EDKB08.zip differ
diff --git a/EDKB08/EDKB08/bin/20211115_edkb08.zip b/EDKB08/EDKB08/bin/20211115_edkb08.zip
new file mode 100644
index 0000000..819ded3
Binary files /dev/null and b/EDKB08/EDKB08/bin/20211115_edkb08.zip differ
diff --git a/EDKB08/EDKB08/bin/EDKB08.exe b/EDKB08/EDKB08/bin/EDKB08.exe
index 06eea59..e78eea0 100644
Binary files a/EDKB08/EDKB08/bin/EDKB08.exe and b/EDKB08/EDKB08/bin/EDKB08.exe differ
diff --git a/EDKB08/EDKB08/bin/EDKB08.pdb b/EDKB08/EDKB08/bin/EDKB08.pdb
index 8bc8449..acf765a 100644
Binary files a/EDKB08/EDKB08/bin/EDKB08.pdb and b/EDKB08/EDKB08/bin/EDKB08.pdb differ
diff --git a/EDKB08/EDKB08/bin/EDKB08.xml b/EDKB08/EDKB08/bin/EDKB08.xml
index 2efa091..bdfb229 100644
--- a/EDKB08/EDKB08/bin/EDKB08.xml
+++ b/EDKB08/EDKB08/bin/EDKB08.xml
@@ -440,6 +440,7 @@ Komma-getrennte Textdatei auslesen
XML-Datei als Datatable einlesen
Stefan Hutter
+
Datentabelle "Indexdata" erstellen, damit die Komma-Getrennten
diff --git a/EDKB08/EDKB08/edkb08/Globals.vb b/EDKB08/EDKB08/edkb08/Globals.vb
index e674b0e..ef73a4c 100644
--- a/EDKB08/EDKB08/edkb08/Globals.vb
+++ b/EDKB08/EDKB08/edkb08/Globals.vb
@@ -35,6 +35,10 @@ Module Globals
Return True
Exit Function
End If
+ If Input = "IRIS_FORMS_UVM" Then
+ Return True
+ Exit Function
+ End If
Return False
End Function
diff --git a/EDKB08/EDKB08/edkb08/clsCheckandImport.vb b/EDKB08/EDKB08/edkb08/clsCheckandImport.vb
index 1d98068..aa32027 100644
--- a/EDKB08/EDKB08/edkb08/clsCheckandImport.vb
+++ b/EDKB08/EDKB08/edkb08/clsCheckandImport.vb
@@ -1072,7 +1072,12 @@ Public Class clsCheckandImport
'scmCmdToExecute.Parameters.Add(New SqlParameter("@Dokumenttyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(i).Item(11)))
'scmCmdToExecute.Parameters.Add(New SqlParameter("@InputAppl", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(i).Item(17)))
- scmCmdToExecute.Parameters.Add(New SqlParameter("@Dokumenttyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(i).Item("Dokumenttypnr")))
+ Try
+ scmCmdToExecute.Parameters.Add(New SqlParameter("@Dokumenttyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(i).Item("Dokumenttypnr")))
+ Catch
+ scmCmdToExecute.Parameters.Add(New SqlParameter("@Dokumenttyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(i).Item(11)))
+ End Try
+
scmCmdToExecute.Parameters.Add(New SqlParameter("@InputAppl", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(i).Item("Herkunftsapplikation")))
Try
diff --git a/EDKB08/EDKB08/edkb08/clsIndexData.vb b/EDKB08/EDKB08/edkb08/clsIndexData.vb
index 4961a08..74f2e3b 100644
--- a/EDKB08/EDKB08/edkb08/clsIndexData.vb
+++ b/EDKB08/EDKB08/edkb08/clsIndexData.vb
@@ -162,6 +162,7 @@ Public Class clsIndexData
End Sub
Private Sub map_iris_LSV(ByRef idxds As DataSet)
+
Dim tmpds As New DataSet
tmpds.ReadXml(System.AppDomain.CurrentDomain.BaseDirectory + "\edkb08struktur.xml")
tmpds.Tables(0).Columns.Add("DOKUMENTWERT21")
@@ -205,40 +206,68 @@ Public Class clsIndexData
idxds.Tables.Add(tmpds.Tables(0).Copy)
tmpds.Dispose()
End Sub
+
+ Private Function parsexml(ByVal istr As String) As String
+ istr = istr.Replace("&", "&")
+ Return istr
+ End Function
+
'''XML-Datei als Datatable einlesen
'''Stefan Hutter
+ '''
Private Sub xmlinput()
Try
+
+
Dim idxds As New DataSet()
- idxds.ReadXml(Me.IndexFileName)
+ Try
+ idxds.ReadXml(Me.IndexFileName)
+ Catch
+ FileOpen(21, Me.IndexFileName, OpenMode.Input)
+ FileOpen(22, Me.IndexFileName + ".tmp", OpenMode.Output)
+ Dim il As String
+ Dim ol As String
+ While Not EOF(21)
+ Input(21, il)
+
+ ol = parsexml(il)
+ PrintLine(22, ol)
+ End While
+ FileClose(21)
+ FileClose(22)
+ File.Delete(Me.IndexFileName)
+ Rename(Me.IndexFileName + ".tmp", Me.IndexFileName)
+ idxds.ReadXml(Me.IndexFileName)
+ End Try
+
Try
- If Globals.Canon_Herkunft(idxds.Tables(0).Rows(0).Item("Herkunftsapplikation")) Then
+ If Globals.Canon_Herkunft(idxds.Tables(0).Rows(0).Item("Herkunftsapplikation")) Then
'20210816 - LSV
If idxds.Tables(0).Rows(0).Item("Herkunftsapplikation") = "IRIS_FORMS_LSV" Then
- map_iris_lsv(idxds)
+ map_iris_LSV(idxds)
Else
map_iris_struktur(idxds)
+ End If
+
End If
- End If
+ Catch ex As Exception
+ End Try 'canon-Mapping'
+ 'Anpassungen EBES_LSV
+ Dim i As Integer
+ For i = 0 To idxds.Tables.Count - 1
+ '-- Canon von >20 auf > 5 geändert
+ If idxds.Tables(i).Columns.Count > 20 Then
+ Me.Indexdata = idxds.Tables(i)
+ Exit For
+ End If
+ Next
+ ' Me.Indexdata = idxds.Tables(0)
Catch ex As Exception
-
- End Try 'canon-Mapping'
- 'Anpassungen EBES_LSV
- Dim i As Integer
- For i = 0 To idxds.Tables.Count - 1
- '-- Canon von >20 auf > 5 geändert
- If idxds.Tables(i).Columns.Count > 20 Then
- Me.Indexdata = idxds.Tables(i)
- Exit For
- End If
- Next
- ' Me.Indexdata = idxds.Tables(0)
- Catch ex As Exception
- Journal.Insert_Journal("", "", "", Me.IndexFileName, 16, "Fehler beim einlesen der XML-Datei: " + ex.Message, "", "")
+ Journal.Insert_Journal("", "", "", Me.IndexFileName, 16, "Fehler beim einlesen der XML-Datei: " + ex.Message, "", "")
End Try
End Sub
diff --git a/EDKB08/EDKB08/obj/Debug/EDKB08.exe b/EDKB08/EDKB08/obj/Debug/EDKB08.exe
index 90228e3..98f9ce5 100644
Binary files a/EDKB08/EDKB08/obj/Debug/EDKB08.exe and b/EDKB08/EDKB08/obj/Debug/EDKB08.exe differ
diff --git a/EDKB08/EDKB08/obj/Debug/EDKB08.pdb b/EDKB08/EDKB08/obj/Debug/EDKB08.pdb
index 8bc8449..acf765a 100644
Binary files a/EDKB08/EDKB08/obj/Debug/EDKB08.pdb and b/EDKB08/EDKB08/obj/Debug/EDKB08.pdb differ
diff --git a/EDKB08/EDKB08/obj/Debug/EDKB08.vbproj.AssemblyReference.cache b/EDKB08/EDKB08/obj/Debug/EDKB08.vbproj.AssemblyReference.cache
index f5e894a..480d207 100644
Binary files a/EDKB08/EDKB08/obj/Debug/EDKB08.vbproj.AssemblyReference.cache and b/EDKB08/EDKB08/obj/Debug/EDKB08.vbproj.AssemblyReference.cache differ
diff --git a/EDKB08/EDKB08/obj/Debug/EDKB08.xml b/EDKB08/EDKB08/obj/Debug/EDKB08.xml
index 2efa091..bdfb229 100644
--- a/EDKB08/EDKB08/obj/Debug/EDKB08.xml
+++ b/EDKB08/EDKB08/obj/Debug/EDKB08.xml
@@ -440,6 +440,7 @@ Komma-getrennte Textdatei auslesen
XML-Datei als Datatable einlesen
Stefan Hutter
+
Datentabelle "Indexdata" erstellen, damit die Komma-Getrennten
diff --git a/EDKB08/EDKB08/obj/Release/DesignTimeResolveAssemblyReferences.cache b/EDKB08/EDKB08/obj/Release/DesignTimeResolveAssemblyReferences.cache
index 1d7d54e..01ce694 100644
Binary files a/EDKB08/EDKB08/obj/Release/DesignTimeResolveAssemblyReferences.cache and b/EDKB08/EDKB08/obj/Release/DesignTimeResolveAssemblyReferences.cache differ
diff --git a/EDKB08/EDKB08/obj/Release/EDKB08.exe b/EDKB08/EDKB08/obj/Release/EDKB08.exe
index 06eea59..e78eea0 100644
Binary files a/EDKB08/EDKB08/obj/Release/EDKB08.exe and b/EDKB08/EDKB08/obj/Release/EDKB08.exe differ
diff --git a/EDKB08/EDKB08/obj/Release/EDKB08.xml b/EDKB08/EDKB08/obj/Release/EDKB08.xml
index 2efa091..bdfb229 100644
--- a/EDKB08/EDKB08/obj/Release/EDKB08.xml
+++ b/EDKB08/EDKB08/obj/Release/EDKB08.xml
@@ -440,6 +440,7 @@ Komma-getrennte Textdatei auslesen
XML-Datei als Datatable einlesen
Stefan Hutter
+
Datentabelle "Indexdata" erstellen, damit die Komma-Getrennten
diff --git a/EDKB09/.vs/EDKB09/v16/.suo b/EDKB09/.vs/EDKB09/v16/.suo
index 58d2341..d2da029 100644
Binary files a/EDKB09/.vs/EDKB09/v16/.suo and b/EDKB09/.vs/EDKB09/v16/.suo differ
diff --git a/EDKB09/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/EDKB09/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
index 97254a1..8d463e1 100644
Binary files a/EDKB09/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache and b/EDKB09/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ
diff --git a/EDKB09/obj/Debug/EDKB09.vbproj.AssemblyReference.cache b/EDKB09/obj/Debug/EDKB09.vbproj.AssemblyReference.cache
new file mode 100644
index 0000000..6d04a29
Binary files /dev/null and b/EDKB09/obj/Debug/EDKB09.vbproj.AssemblyReference.cache differ
diff --git a/EDKB17/EDKB17/.vs/EDKB17/v16/.suo b/EDKB17/EDKB17/.vs/EDKB17/v16/.suo
index 51a3eb5..0c727bf 100644
Binary files a/EDKB17/EDKB17/.vs/EDKB17/v16/.suo and b/EDKB17/EDKB17/.vs/EDKB17/v16/.suo differ
diff --git a/EDKB17/EDKB17/EDKB17/obj/Release/.NETFramework,Version=v4.0.AssemblyAttributes.vb b/EDKB17/EDKB17/EDKB17/obj/Release/.NETFramework,Version=v4.0.AssemblyAttributes.vb
new file mode 100644
index 0000000..4339bf6
--- /dev/null
+++ b/EDKB17/EDKB17/EDKB17/obj/Release/.NETFramework,Version=v4.0.AssemblyAttributes.vb
@@ -0,0 +1,7 @@
+'
+ Option Strict Off
+ Option Explicit On
+
+ Imports System
+ Imports System.Reflection
+
diff --git a/EDKB17/EDKB17/EDKB17/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache b/EDKB17/EDKB17/EDKB17/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache
index 670e503..c4d7b14 100644
Binary files a/EDKB17/EDKB17/EDKB17/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache and b/EDKB17/EDKB17/EDKB17/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache differ
diff --git a/EDKB17/EDKB17/EDKB17/obj/Release/EDKB17.vbproj.AssemblyReference.cache b/EDKB17/EDKB17/EDKB17/obj/Release/EDKB17.vbproj.AssemblyReference.cache
new file mode 100644
index 0000000..f6c2bb7
Binary files /dev/null and b/EDKB17/EDKB17/EDKB17/obj/Release/EDKB17.vbproj.AssemblyReference.cache differ
diff --git a/EDKB18/.vs/EDKB18/v16/.suo b/EDKB18/.vs/EDKB18/v16/.suo
index 126a612..12b922e 100644
Binary files a/EDKB18/.vs/EDKB18/v16/.suo and b/EDKB18/.vs/EDKB18/v16/.suo differ
diff --git a/EDKB18/Batch/EDKB18/.vs/EDKB18/v16/.suo b/EDKB18/Batch/EDKB18/.vs/EDKB18/v16/.suo
index 2ebdd35..7414e5b 100644
Binary files a/EDKB18/Batch/EDKB18/.vs/EDKB18/v16/.suo and b/EDKB18/Batch/EDKB18/.vs/EDKB18/v16/.suo differ
diff --git a/EDKB19/.vs/EDKB18/v16/.suo b/EDKB19/.vs/EDKB18/v16/.suo
index ba3a3e0..ebfc5e0 100644
Binary files a/EDKB19/.vs/EDKB18/v16/.suo and b/EDKB19/.vs/EDKB18/v16/.suo differ
diff --git a/EDKB19/EDKB18/obj/Release/.NETFramework,Version=v4.0.AssemblyAttributes.vb b/EDKB19/EDKB18/obj/Release/.NETFramework,Version=v4.0.AssemblyAttributes.vb
new file mode 100644
index 0000000..4339bf6
--- /dev/null
+++ b/EDKB19/EDKB18/obj/Release/.NETFramework,Version=v4.0.AssemblyAttributes.vb
@@ -0,0 +1,7 @@
+'
+ Option Strict Off
+ Option Explicit On
+
+ Imports System
+ Imports System.Reflection
+
diff --git a/EDKB19/EDKB18/obj/Release/DesignTimeResolveAssemblyReferences.cache b/EDKB19/EDKB18/obj/Release/DesignTimeResolveAssemblyReferences.cache
index 7c0db6b..b7b6de4 100644
Binary files a/EDKB19/EDKB18/obj/Release/DesignTimeResolveAssemblyReferences.cache and b/EDKB19/EDKB18/obj/Release/DesignTimeResolveAssemblyReferences.cache differ
diff --git a/EDKB19/EDKB18/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache b/EDKB19/EDKB18/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache
index b95bddb..6080475 100644
Binary files a/EDKB19/EDKB18/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache and b/EDKB19/EDKB18/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache differ
diff --git a/EDKB19/EDKB18/obj/Release/EDKB19.vbproj.AssemblyReference.cache b/EDKB19/EDKB18/obj/Release/EDKB19.vbproj.AssemblyReference.cache
new file mode 100644
index 0000000..70f8003
Binary files /dev/null and b/EDKB19/EDKB18/obj/Release/EDKB19.vbproj.AssemblyReference.cache differ
diff --git a/edkb04op/.vs/EDKB04OP/v16/.suo b/edkb04op/.vs/EDKB04OP/v16/.suo
index e1dd0cb..583aa5f 100644
Binary files a/edkb04op/.vs/EDKB04OP/v16/.suo and b/edkb04op/.vs/EDKB04OP/v16/.suo differ
diff --git a/edkb04op/EDKB04OP/obj/Release/DesignTimeResolveAssemblyReferences.cache b/edkb04op/EDKB04OP/obj/Release/DesignTimeResolveAssemblyReferences.cache
index fece5fa..629fcc9 100644
Binary files a/edkb04op/EDKB04OP/obj/Release/DesignTimeResolveAssemblyReferences.cache and b/edkb04op/EDKB04OP/obj/Release/DesignTimeResolveAssemblyReferences.cache differ
diff --git a/edkb04op/EDKB04OP/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache b/edkb04op/EDKB04OP/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache
index 9d84283..ab8064c 100644
Binary files a/edkb04op/EDKB04OP/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache and b/edkb04op/EDKB04OP/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache differ
diff --git a/edkb04op/EDKB04OP/obj/Release/EDKB04OP.vbproj.AssemblyReference.cache b/edkb04op/EDKB04OP/obj/Release/EDKB04OP.vbproj.AssemblyReference.cache
new file mode 100644
index 0000000..6b32862
Binary files /dev/null and b/edkb04op/EDKB04OP/obj/Release/EDKB04OP.vbproj.AssemblyReference.cache differ
diff --git a/edkb12/edkb12 V14/.vs/EDKB12WS/v16/.suo b/edkb12/edkb12 V14/.vs/EDKB12WS/v16/.suo
index 8e40e75..228c16f 100644
Binary files a/edkb12/edkb12 V14/.vs/EDKB12WS/v16/.suo and b/edkb12/edkb12 V14/.vs/EDKB12WS/v16/.suo differ