10.01.2016

app/DD-Record-Organiser/frmWD_CreateVersion.vb

@@ -17,6 +17,9 @@ Public Class frmWD_CreateVersion
                         VERSION = VERSION + 1
                         Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Version = {0} WHERE DocID = {1}", VERSION, row.Item("DOC_ID"))
                         clsDatabase.Execute_non_Query(upd)
+                        If LICENSE_SITE_PROXY = True And ClassProxy.MyPROXYConnectionString <> String.Empty Then
+                            clsDatabase.Execute_non_Query(upd, True)
+                        End If
                     End If
                 Else
                     MsgBox("Could not create a version for file '" & row.Item("FILEPATH") & "'! Check log", MsgBoxStyle.Exclamation)