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"> <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> <value>848, 17</value>
</metadata> </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"> <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>177, 17</value> <value>177, 17</value>
</metadata> </metadata>

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

@ -52,20 +52,8 @@ Public Class ClassUserFiles
oHash = "" oHash = ""
End Try End Try
oSQL = "SELECT * FROM TBGI_FILES_USER WHERE FILE_HASH = '" & oHash & "' AND WORKED = 0 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" oSQL = "SELECT * FROM TBIDB_FILE_OBJECT WHERE FILE_HASH = '" & oHash & "' ORDER BY ADDED_WHEN"
oResult = My.DatabaseIDB.GetDatatable(oSQL) Dim oResult As DataTable = My.DatabaseECM.GetDatatable(oSQL)
If oResult Is Nothing Then
Return Nothing
End If
If oResult.Rows.Count = 0 Then If oResult.Rows.Count = 0 Then
Return Nothing Return Nothing
@ -74,11 +62,6 @@ Public Class ClassUserFiles
My.Application.Globix.DOCUMENT_ID = oFirstRow.Item("IDB_OBJ_ID") My.Application.Globix.DOCUMENT_ID = oFirstRow.Item("IDB_OBJ_ID")
Return oFirstRow.Item("ADDED_WHEN") Return oFirstRow.Item("ADDED_WHEN")
End If End If
Else
Dim oFirstRow As DataRow = oResult.Rows.Item(0)
My.Application.Globix.DOCUMENT_ID = oFirstRow.Item("DocID")
Return oFirstRow.Item("ADDED_WHEN")
End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in FileExistsinDropTable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & oSQL, MsgBoxStyle.Critical) MsgBox("Error in FileExistsinDropTable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & oSQL, MsgBoxStyle.Critical)
Return Nothing Return Nothing