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