AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS_04.01

Browse Source
This commit is contained in:
SchreiberM
2017-01-04 17:09:26 +01:00
parent 4ab7e368b1 29b3857635
commit 26812ffeb7
128 changed files with 17813 additions and 20419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD-Record-Organiser/frmWD_EntityImport.vb
View File

@@ -147,7 +147,7 @@ Public Class frmWD_EntityImport
'den Entity-Key auslesen
Dim sql As String = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & ClassWindream._WDObjekttyp & "')"
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql, True)
If Not dt Is Nothing Then
If dt.Rows.Count = 1 Then
Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString
@@ -258,7 +258,7 @@ Public Class frmWD_EntityImport
'den Entity-Key auslesen
Dim Sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & Objecttype & "')"
Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql)
Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql, True)
Dim count As Integer = 0
If Not DT Is Nothing Then
If DT.Rows.Count = 1 Then