MS0211

2016-11-01 16:38:40 +01:00 · 2016-11-01 16:38:40 +01:00 · a3a0a318c1
commit a3a0a318c1
parent e37d4f0a85
10 changed files with 809 additions and 229 deletions
--- a/app/DD-Record-Organiser/ClassSAP.vb
+++ b/app/DD-Record-Organiser/ClassSAP.vb
@ -158,4 +158,73 @@ Public Class ClassSAP
            Return Nothing
        End Try
    End Function
+    Public Shared Function LINK_ARC_OBJECT(table As String, barcode As String, contrep As String, docid As String, ardate As String, doctype As String)
+        Try
+            If LogErrorsOnly = False Then ClassLogger.Add(" >> CREATE_ARC_OBJECT", False)
+            Dim sapfunc As RFCFunction = SAP_CONNECTION.CreateFunction("BAPI_BARCODE_SENDLIST")
+
+            'Create and fill the frist row
+            Dim row As RFCStructure = sapfunc.Tables(table).AddRow()
+            row("BARCODE") = barcode
+            row("CONTREP") = contrep
+            row("DOCID") = docid
+            row("ARDATE") = ardate
+            row("DOCTYPE") = doctype
+
+            ' Execut e the function
+            sapfunc.Execute()
+
+            ' process return structure
+            Dim ret As RFCStructure = sapfunc.Imports("RETURN").ToStructure()
+
+            If (ret("TYPE").ToString().Equals("")) Then
+                Console.WriteLine("No error reported")
+                Return ""
+            Else
+                Return ret("MESSAGE")
+            End If
+
+        Catch ex As Exception
+            ClassLogger.Add(">> Unexpected Error in SAP Table Result: " & ex.Message, False)
+            MsgBox("Unexpected Error in CREATE_ARC_OBJECT: " & ex.Message, MsgBoxStyle.Critical)
+            Return ex.Message
+        End Try
+    End Function
+    Public Shared Function INSERT_ARCHIVE_OBJECT(ARCHIV_ID As String, ARC_DOC_ID As String, AR_OBJECT As String, OBJECT_ID As String, SAP_OBJECT As String, DOC_TYPE As String, table As String)
+        Try
+            If LogErrorsOnly = False Then ClassLogger.Add(" >> INSERT_ARCHIVE_OBJECT", False)
+            Dim sapfunc As RFCFunction = SAP_CONNECTION.CreateFunction("ARCHIV_CONNECTION_INSERT")
+
+            'Create and fill the frist row
+            'Dim row As RFCStructure = sapfunc.
+            sapfunc.Exports("ARCHIV_ID").ParamValue = ARCHIV_ID
+            sapfunc.Exports("ARC_DOC_ID").ParamValue = ARC_DOC_ID
+            sapfunc.Exports("AR_OBJECT").ParamValue = AR_OBJECT
+            sapfunc.Exports("OBJECT_ID").ParamValue = OBJECT_ID
+            sapfunc.Exports("SAP_OBJECT").ParamValue = SAP_OBJECT
+            sapfunc.Exports("DOC_TYPE").ParamValue = DOC_TYPE
+            '  row("AR_DATE") = AR_DATE
+            ' Execut e the function
+            Try
+                sapfunc.Execute()
+            Catch ex As Exception
+                MsgBox("Unexpected Error in sapfunc.Execute: " & ex.Message, MsgBoxStyle.Critical)
+                Dim ret As RFCStructure = sapfunc.Imports("RETURN").ToStructure()
+
+                If (ret("TYPE").ToString().Equals("")) Then
+                    Console.WriteLine("No error reported")
+                    Return "ERROR in Function Execute"
+                Else
+                    Return ret("MESSAGE")
+                End If
+            End Try
+            ' process return structure
+            Return ""
+
+        Catch ex As Exception
+            ClassLogger.Add(">> Unexpected Error in INSERT_ARCHIVE_OBJECT: " & ex.Message, False)
+            MsgBox("Unexpected Error in INSERT_ARCHIVE_OBJECT: " & ex.Message, MsgBoxStyle.Critical)
+            Return ex.Message
+        End Try
+    End Function
 End Class
--- a/app/DD-Record-Organiser/frmConstructor_Main.resx
+++ b/app/DD-Record-Organiser/frmConstructor_Main.resx
@ -343,7 +343,7 @@
    <value>0, 0</value>
  </data>
  <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1074, 237</value>
+    <value>1067, 237</value>
  </data>
  <data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@ -412,7 +412,7 @@
    <value>0, 0</value>
  </data>
  <data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 347</value>
+    <value>1360, 343</value>
  </data>
  <data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@ -430,7 +430,7 @@
    <value>0</value>
  </data>
  <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 347</value>
+    <value>1360, 343</value>
  </data>
  <data name="TabDetails.Text" xml:space="preserve">
    <value>Detailansicht</value>
@ -448,7 +448,7 @@
    <value>0</value>
  </data>
  <data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1362, 378</value>
+    <value>1362, 371</value>
  </data>
  <data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
    <value>1</value>
@ -565,7 +565,7 @@
    <value>Eigenschaften</value>
  </data>
  <data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
-    <value>252, 320</value>
+    <value>252, 342</value>
  </data>
  <data name="&gt;&gt;ContextMenuStripResultFiles.Name" xml:space="preserve">
    <value>ContextMenuStripResultFiles</value>
@ -586,7 +586,7 @@
    <value>Aqua</value>
  </data>
  <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 322</value>
+    <value>1360, 318</value>
  </data>
  <data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
    <value>7</value>
@ -650,7 +650,7 @@
    <value>6, 25</value>
  </data>
  <data name="tsTextboxFulltext.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI Semibold, 9pt, style=Bold, Italic</value>
+    <value>Tahoma, 9pt</value>
  </data>
  <data name="tsTextboxFulltext.Size" type="System.Drawing.Size, System.Drawing">
    <value>200, 25</value>
@ -659,10 +659,10 @@
    <value>Tahoma, 9pt, style=Bold</value>
  </data>
  <data name="ToolStripLabel1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>57, 22</value>
+    <value>131, 22</value>
  </data>
  <data name="ToolStripLabel1.Text" xml:space="preserve">
-    <value>Fulltext:</value>
+    <value>Volltext-Suche ECM:</value>
  </data>
  <data name="ToolStripSeparator18.Size" type="System.Drawing.Size, System.Drawing">
    <value>6, 25</value>
@ -680,7 +680,7 @@
    <value>0, 0</value>
  </data>
  <data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 25</value>
+    <value>1360, 25</value>
  </data>
  <data name="ToolStripDokumente.TabIndex" type="System.Int32, mscorlib">
    <value>2</value>
@ -701,7 +701,7 @@
    <value>1</value>
  </data>
  <data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 347</value>
+    <value>1360, 343</value>
  </data>
  <data name="TabWindream.Text" xml:space="preserve">
    <value>windream-Dateien</value>
@ -1132,7 +1132,7 @@
    <value>2</value>
  </data>
  <data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 347</value>
+    <value>1360, 343</value>
  </data>
  <data name="TabFollowUp.Text" xml:space="preserve">
    <value>Wiedervorlage</value>
@ -1159,7 +1159,7 @@
    <value>Cyan</value>
  </data>
  <data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 322</value>
+    <value>1360, 318</value>
  </data>
  <data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@ -1183,7 +1183,7 @@
    <value>0, 25</value>
  </data>
  <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 322</value>
+    <value>1360, 318</value>
  </data>
  <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
    <value>2</value>
@ -1358,7 +1358,7 @@
    <value>0, 0</value>
  </data>
  <data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 25</value>
+    <value>1360, 25</value>
  </data>
  <data name="BindingNavigatorPOS.TabIndex" type="System.Int32, mscorlib">
    <value>1</value>
@ -1387,7 +1387,7 @@
 </value>
  </data>
  <data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 347</value>
+    <value>1360, 343</value>
  </data>
  <data name="TabPos.Text" xml:space="preserve">
    <value>Positionen</value>
--- a/app/DD-Record-Organiser/frmConstructor_Main.vb
+++ b/app/DD-Record-Organiser/frmConstructor_Main.vb
@ -5221,9 +5221,23 @@ Public Class frmConstructor_Main

    End Sub
    Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick
-        'Get_Doc_Items()
+        Me.Cursor = Cursors.WaitCursor
+        Dim allow_Open As Boolean = False
        ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
-        If RIGHT_WINDREAM_FORBIDDEN = False Then
+        Dim Result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH)
+        If Not IsNothing(Result) Then
+
+            Select Case Result.ToString
+                Case "R"
+                    ContextMenu_Read()
+                    allow_Open = True
+                Case "RW"
+                    allow_Open = True
+                Case "RWA"
+                    allow_Open = True
+            End Select
+        End If
+        If allow_Open = True Then
            If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
                MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
                Exit Sub
@ -5232,6 +5246,7 @@ Public Class frmConstructor_Main
                ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"))
            Next
        End If
+        Me.Cursor = Cursors.Default
    End Sub

    Private Sub TabWindream_Leave(sender As Object, e As EventArgs) Handles TabWindream.Leave
--- a/app/DD-Record-Organiser/frmMain.resx
+++ b/app/DD-Record-Organiser/frmMain.resx
@ -1236,74 +1236,74 @@
  </data>
  <data name="BarButtonItem19.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
-        iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA9ySURBVGhDxVkLXM5p2u41rPOOnHaMmWEMduzujHFaY2JX
-        zLfG2BmTGnZkRk7JIVpySBFFVORQolChg0pCOatxqijT+SAkRYgoHeigru+6n5p+Mfimpv32/v2uX/W+
-        z7/3vu7nPlzP82r9Wps4caL21KlTR06ZMsWO8CMiiai6mDx5cuCkSZM26Ovrj+UjrYk3CI08/1+z6dOn
-        j5g2bVqIsbExLK1t4eLuCb+gEETGxCElLR3p6elITk7FhQvR8PMLgouLO6ysrCHrf/jhhzADA4MF/Dft
-        iKby/7LWfqT9YNNHI2+s/uOoM/N79eFLvyOEZOMSlYjT+bP/XmQBV+8QnEnNQ+p9IDMfiEvPRmxy+nME
-        Ll9OQlpaFm7ezOdreYiJuQkfnyNYsWINuHO5Y8eOXRZt9cevn+4bVVARbYKy85NREvQFCj2HIHll7938
-        yM5EM/Xhv9WMjIz6M4IFG7xCcCytBBHZgM+RSNhvdFWR5fsV48aNe0Tk1QXTqFzet7Vdhz17ghEenozz
-        57Pg63sGy5bZwnGpEUrydwLwJryAgg2o9PgUOQ59Svmx/yKExG/fiRkzZiRsDoxESDoQGJWNBdyFCRMm
-        FPXt2zdBW1v7EJe4ExsIa2JZHVi3atXKuX///j8y4rlCxt7eBQcPxiI09CocHDxIbiFKSkggwwoIGgW4
-        DUDBlr/Aakzno3z+I0KlWoON2z11uZMnApIB/+g8zDE1w6BBg67wLW9CHB5PfEZI/r5PdCO6d+3ate/g
-        wYNn6+jo+Orp6d1g3cBrng481ptizhxTptMFBAWlwtFxL2wtZwFhE2oJlO4YhHDzbvf4f8YRUi8NN35w
-        qPPRdEXAbrs/hg8fnsWXPYjJxJ+J9kRzogl3ZSSL1OWbb75JtrS0xI4dOxAREYHrl46iaM9YVCasYaqc
-        R2SkhyLh5XWW6ZSIRYtWIdLdsJYA9g7Dvc1/xqBuLR34f3sQDU4jDfM40iseisBSm/Xo0aPHOb5uSvRk
-        V/krCa7hmgsWFhbYtm0bjh49iszMTFy/fh1Xr17FvdMbUR48EVUPDtL5S0SkIhESYg9Ly3WKgJNTMGwX
-        Gj1HoGi3Dtwmv5XAzxlGtCQaZEIgyjUsu3YH2NNvsRtdXrJkSeHWrVtx6tQp1Xnu3r2LnJwcZGdns/Pc
-        RHbKRRT7T0JlhCVQGkOnE4lYoPxHFqsz8766AQgBD4849Xuh999qCVQe/BKpNt3L6cN04g/iizhUL1u7
-        dq32zJkzoxatWo+FlrbqQzw9Pdkmk1FYWIiCggI8fPgQDx48QG5uLu7cuYNbt27hfnQgKvZ+garMADqd
-        QbD6kQLcD+SPhUCeHf92U//PwyOilkCcQ89aAjj8T9zfNRgLR7U/RlcaVsxr1qwZuWXLFm53CGJjY1Fe
-        Xo7S0lJGrwRFRUV4/PgxHj16pFImISEBybEXURI8C5WHpwBl4vht4iZ/Z/Sj2WVO6HMjTBWBvDzn2h3Y
-        uvU0zEwMcdaqE55t61dLoPTIWITO79rwYl6+fPkof39/VFZWKlRUVKCsrExFX3I8PDwc3t7ekDWXD7vh
-        2c5hqLrsTKc53ZBH5PLHeWA/HfcdXkugJNuW7dMMq1e7KgJWVk7YaDYSsaveRqHzR7UEcG4SbvLvft2a
-        N6yYDQ0Nu+zbt085LZHPy8vjhL2Mw4cPUyb4qS4juL6HbdD3KzqbSqdLiaJqEok7AM+avK4hkB48Hovn
-        GcLc3JLE4/h8uBqEYz9tn5Zo+46aAXUJ5B8aA7tx7WPojg7RQjlWD2vq5OSEJ0+eoLi4WOX4iRMncODA
-        ARV5Nzc3Ttg9KNk5ks4fBqokZYqZMg/o7Pxqx2tQxq7ibzsas4yN2Pvd1SATArNnm2KB4cdPfS3eRV52
-        BLUJi7wOAVw2xgWrbsX0xYjoRNRrFzT29vZpP+e7FGhoaCgCAwPZw70UgcWLF8PDQh+VMojKXbgBW4Ab
-        S59zXhBsMQBz587js+fYuTKwe3eYmgUWxsNxwvVzlJWksVwYBE/u1AsEcvYMhZFO20D6I8OyXsWscXBw
-        uJiRkVFbrIcOHWLe+qrU2blzJ0znzceP8eko8WLXecBBVbKRGbSB8qYmdWqQ7jRIFa0X9ZSdnbPaCXuz
-        IUg8za5UkQDE2zw3B34m8JDtdOeUDrmd2r7hRn9k4tcrjTRspYGpqam1rbJu+shPcerKfaZXTCDKjo+r
-        dr7AgS3f5DkCUgPrzYZhidl0rDQewHT6kCnDGnl6HEjljtWREkLgWfBoZG/vD4sv22XQjz3EbKIXUb8d
-        YCvdcPHixdpBJR3Hw8NDEQgKCoJMYCEhuMUoV95eATxaB8huSCTrEEh3/QRuxlqI9B/NlPFj5PcBd1YC
-        CXN+QSDdsRd0P2wRTR8k8iJbehMS/frVAAlYnT59Grdv31ZTNiAgAO7u7oqE1IOdnR24S4pMyiFHPAn9
-        utr5e0yJS9OeIyBdKJM5jcq9LHbP6pp5gUCm/QeKQBbbp/6gVufpw/eECMSGnQ2WLVv2lRDIyspSNXDw
-        4EEVfWmj8rq01bS0NJVeMpkfsSNVZiwBcuhYpgVAfV+XAK4vBh7ak4DbLwgkOn2odqiIE/iJ/0j4zeyQ
-        Sxe+JbSVMw0xGxubL8XZGzduqOElHUgIBAcHU1VGqtfEcTHpVHcu7ELJyW+BW0ylLOqg0+OfJ1AziV9G
-        QLTQLpMmiF/XQxVx2sY+GDegpZw1ehJynm6QtZRhdu3aNSXaJFV2796NI0eOqOhLaxWJIZNaCl12I8dd
-        F1USaWmnVxYAjOgrCVw1ry74mhSKsOqMwPktUX7gCzxmIXvP1L5DH0YTbZU3DbA3pF2KY9KNjh07pgo5
-        LCxMibp79+6p6MuwEzKJiYmIP7AOhdQxKl3EQamLlxB4mmONYun1si5isiJQzNz3n9cCqTwPSBtN2vQn
-        FnPzTfRDpEQT5VE9TePi4pImziYlJSkCUgeXLl2CzAeZ0GLSoURiyHsyrW9s1UFlCqdx2r+Bn2b+gkA+
-        0yaVnSbDfSBwlwUvO1XThaJWvIUji9uhPPxfyAv5Chu+ezOdfowgWimP6mkayon9x48fR3x8PM6cOaNI
-        iDoVp1NSUtRsWLlyJfbv3w9ZJ8PupLs5CjiEkDyPTs8FThrUErjL1wNMOj9q36bJkbDFXYrLuBMoowiU
-        4UUCeWy3oQvb4pqkHrtWlO27+OS9pnJ8fVf8UV7Vw+SBzmZmZsF79+7FuXPnVAHLEGMLraDgy+nXr99F
-        OUJKVxIIESn0a04fo/jUt6iMmUE5PR3PmEoZTI0149rLsdSHWGyj125bJnNd1UQqd0sKnm00ek03RNi8
-        owjcYT04TGibxvVyOmvQLshlU88hQ4ZYmZubZ3Bo3eSBPZKveRGOhCkH2hMp6qioqNpJbW+9AH6245G0
-        9QvcZFRjbbtX6PVvHcv10lnkpCXa5u2I5V2Knz3dShlC1BDIZ0c6Y9EBuXReutRZkvn4vaYruP4dot67
-        ICaD5G1iOGFMzCTGEH8hupLYZSl0Odjs2rVLaSVra2s16C5cuMDzryX++qcu4vxmQg4o7xESmKb+czu6
-        Zh4xQMENGxT46FZP8NPfIY7tNG7t+4pA5v5/wPxLNZnrrYfqmnQBueN8qwbS2kSbaDjwLspckDqR6Eur
-        FSm+YsUKREdHw9XVFd27dw/j2kmEBOLnvq4x+LR5z02G7YIsvmrzk+8s7fyYLZ8wpULx4NT3iLHugofs
-        aOWspYOLOpR3addkLp9p2Bm5jsnDdf+BEDghmunKlSuKgChWdi8sXbpUzYvt27dj4MCBcjCRXXuxp8tO
-        iFDT+3ZQ842x7kNJ4CQLfhFS2KmucELj2iJcCfgcC0Y3l9QdSMhVTqOZZsaMGfqMdp4MPSEgE1s0E4kp
-        AlIXOjo6SVwrF2EvSgMJhpDQ9pn15uaMU2y74MGGc0BOZGks6CL+Xs7BGLhQu/ytdkqZNs61Yx2TqA4b
-        M2bMUYm6pJLMAysrK5w9exYnT57E0KFDk7nmB6Ij8bIP1xw2e9MvKUAfD9M2qTkgXSiDu3DXc4iSHfE+
-        f8fEz5rJTUU/onEuf2tM6uP3c+fO9Ra5IRNaCEghy+yQya2np3efa6QBvCqHNVsmtfnGbnzrAz6z2hTF
-        7BjBnUhA/nEj3CKJMhZzMYWi24zmcsSUnZRbwcYzRr6HdB2RFKJchcCqVavUbJAdkRtrLjMnXjeQ2hAD
-        rPVbHE4/YUYCqajkLshVYwGjL2eNi16f4bshTeRSWa42f9vlb13jNHYW3SQTWjpPTEwMVq9erSazyPEJ
-        EyY85jIrojvxKgKq0+2b0/pSRhjF4LNk1UZLKCkeURc9ozQp5uR2ndKsiOsMiEbbBY2urm63adOm+VKC
-        K7khUZcdkYOP3GiYmJiA61YTH8h6eegVpgmc3zrlwbUAoPCcIlCVaqbujEpFbpRuQTgH3ph+Gn+u/ZBo
-        tF1oThIjJG0k4nLtKDd7coq7f/++SieukUEmH/paAruMW+5yntwiw2t225I4z895/MxE2bEpKOdEFzGY
-        FT8bU3SbyGAcRUjaNYppmEY+ooXk9k4ueeXoKRpKLsVksHXs2HEv18ld5+uksZCTTjV2wehm4Un7KblR
-        iKpbzqjiQR9xs3AnfSG+/5tGupoh0aHmmd9mtra27zs6Oqp0yc/PV0pV7o98fHzU30Kgd+/eIVw6mJC+
-        /zqTFtlp+/Rm4Rk/Um6jrPr0lkQ5zhT6iTUxaZhWCtc06MLrpUYCn69bty5H2qYcfkQbycXw5s2b1WWw
-        pFKvXr3kq6Nfq+01Hia/i7z3E5UqqqoJyI0HCZxgKg18XyucayYSjbMDNBnvn8gXHiIdpAbkAlgkhZzY
-        pLA5zESQ/dojImuhWVTQ0vY4ZtcdsX66SGbkA9d8UPGPvlqJfF9Oan8nRJ81iqlhxp24I21UbrPPnz+v
-        hJzsgBx2RowY8So58TKTqHYhJmu30XIZ3EsrxGCwVnSft7VC+ZrIeFG18v7r6ql+Zm9vP1W+BJGDvkRd
-        Ukm0kdSFSIphw4bFcZnc9bxKTrxosqtdCTk7iIj7H+Jr4lNC9FDjDTKx9evXZ4l4E5POI1NZBpsY22hF
-        q1atpHfrEfX5wkKICsRZSZc3CfnerPEiX2MaU1NTAxbyQ5EP4rzcFcluCClKiRyucSIGEP9XF/qv2e8J
-        XarSYEa8SO6PWNAVBgYGOZ06dQrmeyLm5EDTKF3jP2GqkIk+dNiIh5jdbdq0ke+V1xPi/MdEg782/f80
-        yVfpz6IY5Rwrjkvkxfn/UPS1tP4XVtWakl3oSE4AAAAASUVORK5CYII=
+        iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wwAADsMBx2+oZAAAD3JJREFUaEPFWQtczmna7jWs846cdoyZYQx27O6McVpjYlfMt8bYGZMadmRGTskh
+        WnJIEUVU5FCiUKGDSkI5q3GqKNP5ICRFiCgd6KCu77qfmn4x+Kam/fb+/a5f9b7Pv/e+7uc+XM/zav1a
+        mzhxovbUqVNHTpkyxY7wIyKJqLqYPHly4KRJkzbo6+uP5SOtiTcIjTz/X7Pp06ePmDZtWoixsTEsrW3h
+        4u4Jv6AQRMbEISUtHenp6UhOTsWFC9Hw8wuCi4s7rKysIet/+OGHMAMDgwX8N+2IpvL/stZ+pP1g00cj
+        b6z+46gz83v14Uu/I4Rk4xKViNP5s/9eZAFX7xCcSc1D6n0gMx+IS89GbHL6cwQuX05CWloWbt7M52t5
+        iIm5CR+fI1ixYg24c7ljx45dFm31x6+f7htVUBFtgrLzk1ES9AUKPYcgeWXv3fzIzkQz9eG/1YyMjPoz
+        ggUbvEJwLK0EEdmAz5FI2G90VZHl+xXjxo17ROTVBdOoXN63tV2HPXuCER6ejPPns+DrewbLltnCcakR
+        SvJ3AvAmvICCDaj0+BQ5Dn1K+bH/IoTEb9+JGTNmJGwOjERIOhAYlY0F3IUJEyYU9e3bN0FbW/sQl7gT
+        GwhrYlkdWLdq1cq5f//+PzLiuULG3t4FBw/GIjT0KhwcPEhuIUpKSCDDCggaBbgNQMGWv8BqTOejfP4j
+        QqVag43bPXW5kycCkgH/6DzMMTXDoEGDrvAtb0IcHk98Rkj+vk90I7p37dq17+DBg2fr6Oj46unp3WDd
+        wGueDjzWm2LOHFOm0wUEBaXC0XEvbC1nAWETagmU7hiEcPNu9/h/xhFSLw03fnCo89F0RcBuuz+GDx+e
+        xZc9iMnEn4n2RHOiCXdlJIvU5Ztvvkm2tLTEjh07EBERgeuXjqJoz1hUJqxhqpxHZKSHIuHldZbplIhF
+        i1Yh0t2wlgD2DsO9zX/GoG4tHfh/exANTiMN8zjSKx6KwFKb9ejRo8c5vm5K9GRX+SsJruGaCxYWFti2
+        bRuOHj2KzMxMXL9+HVevXsW90xtRHjwRVQ8O0vlLRKQiERJiD0vLdYqAk1MwbBcaPUegaLcO3Ca/lcDP
+        GUa0JBpkQiDKNSy7dgfY02+xG11esmRJ4datW3Hq1CnVee7evYucnBxkZ2ez89xEdspFFPtPQmWEJVAa
+        Q6cTiVig/EcWqzPzvroBCAEPjzj1e6H332oJVB78Eqk23cvpw3TiD+KLOFQvW7t2rfbMmTOjFq1aj4WW
+        tupDPD092SaTUVhYiIKCAjx8+BAPHjxAbm4u7ty5g1u3buF+dCAq9n6BqswAOp1BsPqRAtwP5I+FQJ4d
+        /3ZT/8/DI6KWQJxDz1oCOPxP3N81GAtHtT9GVxpWzGvWrBm5ZcsWbncIYmNjUV5ejtLSUkavBEVFRXj8
+        +DEePXqkUiYhIQHJsRdREjwLlYenAGXi+G3iJn9n9KPZZU7ocyNMFYG8POfaHdi69TTMTAxx1qoTnm3r
+        V0ug9MhYhM7v2vBiXr58+Sh/f39UVlYqVFRUoKysTEVfcjw8PBze3t6QNZcPu+HZzmGouuxMpzndkEfk
+        8sd5YD8d9x1eS6Ak25bt0wyrV7sqAlZWTthoNhKxq95GofNHtQRwbhJu8u9+3Zo3rJgNDQ277Nu3Tzkt
+        kc/Ly+OEvYzDhw9TJvipLiO4vodt0PcrOptKp0uJomoSiTsAz5q8riGQHjwei+cZwtzcksTj+Hy4GoRj
+        P22flmj7jpoBdQnkHxoDu3HtY+iODtFCOVYPa+rk5IQnT56guLhY5fiJEydw4MABFXk3NzdO2D0o2TmS
+        zh8GqiRlipkyD+js/GrHa1DGruJvOxqzjI3Y+93VIBMCs2ebYoHhx099Ld5FXnYEtQmLvA4BXDbGBatu
+        xfTFiOhE1GsXNPb29mk/57sUaGhoKAIDA9nDvRSBxYsXw8NCH5UyiMpduAFbgBtLn3NeEGwxAHPnzuOz
+        59i5MrB7d5iaBRbGw3HC9XOUlaSxXBgET+7UCwRy9gyFkU7bQPojw7JexaxxcHC4mJGRUVushw4dYt76
+        qtTZuXMnTOfNx4/x6SjxYtd5wEFVspEZtIHypiZ1apDuNEgVrRf1lJ2ds9oJe7MhSDzNrlSRAMTbPDcH
+        fibwkO1055QOuZ3avuFGf2Ti1yuNNGylgampqbWtsm76yE9x6sp9pldMIMqOj6t2vsCBLd/kOQJSA+vN
+        hmGJ2XSsNB7AdPqQKcMaeXocSOWO1ZESQuBZ8Ghkb+8Piy/bZdCPPcRsohdRvx1gK91w8eLF2kElHcfD
+        w0MRCAoKgkxgISG4xShX3l4BPFoHyG5IJOsQSHf9BG7GWoj0H82U8WPk9wF3VgIJc35BIN2xF3Q/bBFN
+        HyTyIlt6ExL9+tUACVidPn0at2/fVlM2ICAA7u7uioTUg52dHbhLikzKIUc8Cf262vl7TIlL054jIF0o
+        kzmNyr0sds/qmnmBQKb9B4pAFtun/qBW5+nD94QIxIadDZYtW/aVEMjKylI1cPDgQRV9aaPyurTVtLQ0
+        lV4ymR+xI1VmLAFy6FimBUB9X5cAri8GHtqTgNsvCCQ6fah2qIgT+In/SPjN7JBLF74ltJUzDTEbG5sv
+        xdkbN26o4SUdSAgEBwdTVUaq18RxMelUdy7sQsnJb4FbTKUs6qDT458nUDOJX0ZAtNAukyaIX9dDFXHa
+        xj4YN6ClnDV6EnKebpC1lGF27do1JdokVXbv3o0jR46o6EtrFYkhk1oKXXYjx10XVRJpaadXFgCM6CsJ
+        XDWvLviaFIqw6ozA+S1RfuALPGYhe8/UvkMfRhNtlTcNsDekXYpj0o2OHTumCjksLEyJunv37qnoy7AT
+        MomJiYg/sA6F1DEqXcRBqYuXEHiaY41i6fWyLmKyIlDM3Pef1wKpPA9IG03a9CcWc/NN9EOkRBPlUT1N
+        4+LikibOJiUlKQJSB5cuXYLMB5nQYtKhRGLIezKtb2zVQWUKp3Hav4GfZv6CQD7TJpWdJsN9IHCXBS87
+        VdOFola8hSOL26E8/F/IC/kKG757M51+jCBaKY/qaRrKif3Hjx9HfHw8zpw5o0iIOhWnU1JS1GxYuXIl
+        9u/fD1knw+6kuzkKOISQPI9OzwVOGtQSuMvXA0w6P2rfpsmRsMVdisu4EyijCJThRQJ5bLehC9vimqQe
+        u1aU7bv45L2mcnx9V/xRXtXD5IHOZmZmwXv37sW5c+dUAcsQYwutoODL6dev30U5QkpXEggRKfRrTh+j
+        +NS3qIyZQTk9Hc+YShlMjTXj2sux1IdYbKPXblsmc13VRCp3SwqebTR6TTdE2LyjCNxhPThMaJvG9XI6
+        a9AuyGVTzyFDhliZm5tncGjd5IE9kq95EY6EKQfaEynqqKio2kltb70AfrbjkbT1C9xkVGNtu1fo9W8d
+        y/XSWeSkJdrm7YjlXYqfPd1KGULUEMhnRzpj0QG5dF661FmS+fi9piu4/h2i3rsgJoPkbWI4YUzMJMYQ
+        fyG6kthlKXQ52OzatUtpJWtrazXoLly4wPOvJf76py7i/GZCDijvERKYpv5zO7pmHjFAwQ0bFPjoVk/w
+        098hju00bu37ikDm/n/A/Es1meuth+qadAG543yrBtLaRJtoOPAuylyQOpHoS6sVKb5ixQpER0fD1dUV
+        3bt3D+PaSYQE4ue+rjH4tHnPTYbtgiy+avOT7yzt/JgtnzClQvHg1PeIse6Ch+xo5aylg4s6lHdp12Qu
+        n2nYGbmOycN1/4EQOCGa6cqVK4qAKFZ2LyxdulTNi+3bt2PgwIFyMJFde7Gny06IUNP7dlDzjbHuQ0ng
+        JAt+EVLYqa5wQuPaIlwJ+BwLRjeX1B1IyFVOo5lmxowZ+ox2ngw9ISATWzQTiSkCUhc6OjpJXCsXYS9K
+        AwmGkND2mfXm5oxTbLvgwYZzQE5kaSzoIv5ezsEYuFC7/K12Spk2zrVjHZOoDhszZsxRibqkkswDKysr
+        nD17FidPnsTQoUOTueYHoiPxsg/XHDZ70y8pQB8P0zapOSBdKIO7cNdziJId8T5/x8TPmslNRT+icS5/
+        a0zq4/dz5871FrkhE1oISCHL7JDJraend59rpAG8Koc1Wya1+cZufOsDPrPaFMXsGMGdSED+cSPcIoky
+        FnMxhaLbjOZyxJSdlFvBxjNGvod0HZEUolyFwKpVq9RskB2RG2suMydeN5DaEAOs9VscTj9hRgKpqOQu
+        yFVjAaMvZ42LXp/huyFN5FJZrjZ/2+VvXeM0dhbdJBNaOk9MTAxWr16tJrPI8QkTJjzmMiuiO/EqAqrT
+        7ZvT+lJGGMXgs2TVRksoKR5RFz2jNCnm5Had0qyI6wyIRtsFja6ubrdp06b5UoIruSFRlx2Rg4/caJiY
+        mIDrVhMfyHp56BWmCZzfOuXBtQCg8JwiUJVqpu6MSkVulG5BOAfemH4af679kGi0XWhOEiMkbSTicu0o
+        N3tyirt//75KJ66RQSYf+loCu4xb7nKe3CLDa3bbkjjPz3n8zETZsSko50QXMZgVPxtTdJvIYBxFSNo1
+        immYRj6iheT2Ti555egpGkouxWSwdezYcS/XyV3n66SxkJNONXbB6GbhSfspuVGIqlvOqOJBH3GzcCd9
+        Ib7/m0a6miHRoeaZ32a2trbvOzo6qnTJz89XSlXuj3x8fNTfQqB3794hXDqYkL7/OpMW2Wn79GbhGT9S
+        bqOs+vSWRDnOFPqJNTFpmFYK1zTowuulRgKfr1u3Lkfaphx+RBvJxfDmzZvVZbCkUq9eveSro1+r7TUe
+        Jr+LvPcTlSqqqgnIjQcJnGAqDXxfK5xrJhKNswM0Ge+fyBceIh2kBuQCWCSFnNiksDnMRJD92iMia6FZ
+        VNDS9jhm1x2xfrpIZuQD13xQ8Y++Wol8X05qfydEnzWKqWHGnbgjbVRus8+fP6+EnOyAHHZGjBjxKjnx
+        MpOodiEma7fRchncSyvEYLBWdJ+3tUL5msh4UbXy/uvqqX5mb28/Vb4EkYO+RF1SSbSR1IVIimHDhsVx
+        mdz1vEpOvGiyq10JOTuIiPsf4mviU0L0UOMNMrH169dniXgTk84jU1kGmxjbaEWrVq2kd+sR9fnCQogK
+        xFlJlzcJ+d6s8SJfYxpTU1MDFvJDkQ/ivNwVyW4IKUqJHK5xIgYQ/1cX+q/Z7wldqtJgRrxI7o9Y0BUG
+        BgY5nTp1CuZ7IubkQNMoXeM/YaqQiT502IiHmN1t2rSR75XXE+L8x0SDvzb9/zTJV+nPohjlHCuOS+TF
+        +f9Q9LW0/hdW1ZqSXehITgAAAABJRU5ErkJggg==
 </value>
  </data>
  <data name="itemExit.Caption" xml:space="preserve">
@ -2163,13 +2163,13 @@ Konfiguration</value>
    <value>Administration</value>
  </data>
  <data name="ribbonMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1658, 150</value>
+    <value>1666, 150</value>
  </data>
  <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 735</value>
+    <value>0, 739</value>
  </data>
  <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1658, 23</value>
+    <value>1666, 23</value>
  </data>
  <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
    <value>RibbonStatusBar1</value>
@ -2220,7 +2220,7 @@ Konfiguration</value>
    <value>6, 13</value>
  </data>
  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>1658, 758</value>
+    <value>1666, 762</value>
  </data>
  <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
    <value>Segoe UI, 8.25pt</value>
--- a/app/DD-Record-Organiser/frmMain.vb
+++ b/app/DD-Record-Organiser/frmMain.vb
@ -796,4 +796,5 @@ Public Class frmMain
    Private Sub BarButtonItem19_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem19.ItemClick
        frmLicense_User.ShowDialog()
    End Sub
+
 End Class
--- a/app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb
+++ b/app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb
--- a/app/DD-Record-Organiser/frmSAP_FuBa.resx
+++ b/app/DD-Record-Organiser/frmSAP_FuBa.resx
@ -162,6 +162,42 @@
  <metadata name="WHERE_CLAUSELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
+  <metadata name="Label4.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="Label5.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="Label6.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="Label7.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="Label8.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="Label9.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="Label3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="Label10.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="Label11.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="Label12.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="Label13.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <metadata name="Label14.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
  <metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
@ -252,6 +288,9 @@
  <metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 56</value>
  </metadata>
+  <metadata name="Label15.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        AAABAAoAMDAQAAEABABoBgAApgAAACAgEAABAAQA6AIAAA4HAAAQEBAAAQAEACgBAAD2CQAAMDAAAAEA
--- a/app/DD-Record-Organiser/frmSAP_FuBa.vb
+++ b/app/DD-Record-Organiser/frmSAP_FuBa.vb
@ -291,6 +291,12 @@ Public Class frmSAP_FuBa
        Try
            If SAPResulttable.Rows.Count > 0 Then
                GridControl2.DataSource = SAPResulttable
+            Else
+                Try
+                    GridControl2.DataSource = Nothing
+                Catch ex As Exception
+
+                End Try
            End If
            ClassSAP.SAP_CONNECTION.Close()
            Dim elapsed As Double
@ -325,4 +331,28 @@ Public Class frmSAP_FuBa
            lblSplitchr.Visible = False
        End If
    End Sub
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        Refresh_Fubas()
+    End Sub
+
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+        Me.Cursor = Cursors.WaitCursor
+        lblresultFunction.Visible = False
+        If ClassSAP.ConnectionInit(testHOST.Text, testSYSNR.Text, testUSERName.Text, testPW.Text, testClient.Text, testLanguage.Text) = True Then
+            lblSuccess.Visible = True
+        Else
+            lblSuccess.Visible = False
+            Me.Cursor = Cursors.Default
+            Exit Sub
+        End If
+        Dim result = ClassSAP.INSERT_ARCHIVE_OBJECT(testArchiveID.Text, testDOCID.Text, testAROBJECT.Text, testAROBJECT.Text, testSAP_OBJECT.Text, testDOCTYPE.Text, testTablename.Text)
+        lblresultFunction.Visible = True
+        If result <> "" Then
+            lblresultFunction.Text = result.ToString
+        Else
+            lblresultFunction.Text = "Function executed successfully!"
+        End If
+        Me.Cursor = Cursors.Default
+    End Sub
 End Class
--- a/app/RecordOrganizer_RightManager/frmCheckRightsEntity.Designer.vb
+++ b/app/RecordOrganizer_RightManager/frmCheckRightsEntity.Designer.vb
@ -109,7 +109,7 @@ Partial Class frmCheckRightsEntity
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(503, 173)
+        Me.ClientSize = New System.Drawing.Size(493, 172)
        Me.Controls.Add(Me.lblstate)
        Me.Controls.Add(Me.chklogging)
        Me.Controls.Add(Me.btncancel)
--- a/app/RecordOrganizer_RightManager/frmCheckRightsEntity.vb
+++ b/app/RecordOrganizer_RightManager/frmCheckRightsEntity.vb
@ -33,12 +33,18 @@ Public Class frmCheckRightsEntity
                BW_RightsEntity = New BackgroundWorker
                BW_RightsEntity.WorkerReportsProgress = True
                BW_RightsEntity.WorkerSupportsCancellation = True
-                Dim sqlfiles = String.Format("SELECT * FROM VWPMO_WD_DOC_SEARCH where ENTITY_ID = {0} ORDER BY DocID", ENTITY_ID)
+                Dim sqlfiles = String.Format("SELECT T.DocID,T.FULL_FILENAME,TRL.RECORD_ID,TR.FORM_ID AS [ENTITY_ID] FROM VWPMO_DOC_SEARCH T, TBPMO_DOC_RECORD_LINK TRL, TBPMO_RECORD TR where T.DocID = TRL.DOC_ID AND TRL.RECORD_ID = TR.GUID AND TR.FORM_ID = {0} ORDER BY DocID", ENTITY_ID)
                DT_FILES = clsDatabase.Return_Datatable(sqlfiles)
                If DD_Rights.ClassRights.Init(ENTITY_ID, chklogging.Checked, DT_FILES.Rows.Count) = False Then
                    MsgBox("Could not init rights management. " & vbNewLine & "Check logfile", MsgBoxStyle.Critical)
                    Exit Sub
                End If
+                If DT_FILES.Rows.Count = 0 Then
+                    MsgBox("No files were found! Please check docsearch!", MsgBoxStyle.Critical)
+                    Exit Sub
+                Else
+                    clsLogger.Add(String.Format(">> {0} files must be transferred!", DT_FILES.Rows.Count), False)
+                End If
                btncancel.Visible = True
                lblstate.Visible = True
                lblstate.Text = "Starting Background Worker...."
@ -67,6 +73,7 @@ Public Class frmCheckRightsEntity
        'Jede Datei einzeln verarbeiten
        For Each row As DataRow In DT_FILES.Rows
            If BW_RightsEntity.CancellationPending = True Then
+                MsgBox("Backgroundworker aborting - check log!", MsgBoxStyle.Critical)
                e.Cancel = True
                Exit For
            Else
@ -78,13 +85,21 @@ Public Class frmCheckRightsEntity
                            righterrors = True
                        End If
                    Else
+                        MsgBox("Unexpected Error in DD_Rights.ClassRights.TransferRights2Service - Check the log!", MsgBoxStyle.Exclamation)
+                        If DD_Rights.ClassRights.MSG_RESULT <> "" Then
+                            MsgBox(DD_Rights.ClassRights.MSG_RESULT, MsgBoxStyle.Information)
+                        End If
                        _error = True
                    End If
                Else
+                    MsgBox("Unexpected Error in DD_Rights.ClassRights.Collect_Users - Check the log!", MsgBoxStyle.Exclamation)
+                    If DD_Rights.ClassRights.MSG_RESULT <> "" Then
+                        MsgBox(DD_Rights.ClassRights.MSG_RESULT, MsgBoxStyle.Information)
+                    End If
                    _error = True
                End If
                BW_RightsEntity.ReportProgress(i)
-            i += 1
+                i += 1
            End If
        Next
        DD_Rights.ClassRights.Finalize_SettingRights()