MS

2023-07-20 14:12:24 +02:00
parent c2deb54f11
commit ea5ea5f205
64 changed files with 8139 additions and 7996 deletions
--- a/app/DD-Record-Organizer/Classes/ClassDOC_SEARCH.vb
+++ b/app/DD-Record-Organizer/Classes/ClassDOC_SEARCH.vb
@@ -266,6 +266,7 @@ Public Class ClassDOC_SEARCH
            Dim DT_FILE_RESULT As DataTable = GET_DOCSEARCH_DATATABLE(BG)
            CURRENT_DOC_RESULTS = DT_FILE_RESULT
            If IsNothing(DT_FILE_RESULT) Then
+                '  MsgBox("ATTENTION: GET_DOCSEARCH_DATATABLE IS NOTHING" & vbNewLine & "Please inform Your Sysadmin", MsgBoxStyle.Exclamation, "Attention")
                LOGGER.Warn("ATTENTION: GET_DOCSEARCH_DATATABLE IS NOTHING!!")
                Return Nothing
            End If