MS diverses

GUIs.ZooFlow/Modules/Globix/ClassUserFiles.vb

@@ -41,6 +41,7 @@ Public Class ClassUserFiles
         Dim oFilesystem As New DigitalData.Modules.Filesystem.File(My.LogConfig)
 
         Try
+            My.Application.Globix.DOCUMENT_ID = 0
             If Filename.Contains("'") Then
                 Filename = Filename.Replace("'", "''")
             End If
@@ -70,10 +71,12 @@ Public Class ClassUserFiles
                     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
             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