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

ClassUserFiles HASH FileObject

Browse Source
This commit is contained in:
SchreiberM 2022-05-31 15:54:48 +02:00
parent 6a1f8b77f7
commit c830f21590
2 changed files with 3 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBAttribute.resx
View File

@ -166,9 +166,6 @@
<metadata name="TBWH_ATTRIBUTE_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>848, 17</value>
</metadata>
<metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>177, 17</value>
</metadata>

23
GUIs.ZooFlow/Modules/Globix/ClassUserFiles.vb
View File

@ -52,31 +52,14 @@ Public Class ClassUserFiles
oHash = ""
End Try
oSQL = "SELECT * FROM TBGI_FILES_USER WHERE FILE_HASH = '" & oHash & "' AND WORKED = 0 ORDER BY ADDED_WHEN"
oSQL = "SELECT * FROM TBIDB_FILE_OBJECT WHERE FILE_HASH = '" & oHash & "' ORDER BY ADDED_WHEN"
Dim oResult As DataTable = My.DatabaseECM.GetDatatable(oSQL)
If oResult Is Nothing Then
Return Nothing
End If
If oResult.Rows.Count = 0 Then
oSQL = "SELECT * FROM TBIDB_FILE_OBJECT WHERE FILE_HASH = '" & oHash & "' ORDER BY ADDED_WHEN"
oResult = My.DatabaseIDB.GetDatatable(oSQL)
If oResult Is Nothing Then
Return Nothing
End If
If oResult.Rows.Count = 0 Then
Return Nothing
Else
Dim oFirstRow As DataRow = oResult.Rows.Item(0)
My.Application.Globix.DOCUMENT_ID = oFirstRow.Item("IDB_OBJ_ID")
Return oFirstRow.Item("ADDED_WHEN")
End If
Return Nothing
Else
Dim oFirstRow As DataRow = oResult.Rows.Item(0)
My.Application.Globix.DOCUMENT_ID = oFirstRow.Item("DocID")
My.Application.Globix.DOCUMENT_ID = oFirstRow.Item("IDB_OBJ_ID")
Return oFirstRow.Item("ADDED_WHEN")
End If
Catch ex As Exception