AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS: Bugfixing und Änderungen UM Aufruf

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-06-13 10:26:07 +02:00
parent 867e00d301
commit 3f29f243a2
12 changed files with 144 additions and 142 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
app/DD_PM_WINDREAM/ModuleMySettings.vb
View File

@@ -13,8 +13,11 @@ Module ModuleMySettings
Public Viewer As String = "docview"
Public IDX_DMS_ERSTELLT = "DMS erstellt"
Public IDX_DMS_ERSTELLT_ZEIT = "DMS erstellt (Zeit)"
Public USRMNGRPATH = ""
Public CURRENT_FILE As String = ""
Public vWLaufwerk As String = "W"
Public vVERSION_DELIMITER As String = "~"
Public vFILE_DELIMITER As String = "_"
@@ -77,6 +80,8 @@ Module ModuleMySettings
IDX_DMS_ERSTELLT = Row.Item("Value")
Case "IDX_DMS_ERSTELLT_ZEIT"
IDX_DMS_ERSTELLT_ZEIT = Row.Item("Value")
Case "USRMNGRPATH"
USRMNGRPATH = Row.Item("Value")
End Select
Next
Catch ex As Exception
@@ -155,7 +160,10 @@ Module ModuleMySettings
newRow9("ConfigName") = "IDX_DMS_ERSTELLT_ZEIT"
newRow9("Value") = "DMS erstellt (Zeit)"
table.Rows.Add(newRow9)
Dim newRow10 As DataRow = table.NewRow()
newRow10("ConfigName") = "USRMNGRPATH"
newRow10("Value") = ""
table.Rows.Add(newRow10)
table.AcceptChanges()
Return table
Catch ex As Exception