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

IDB Conform Step1

Browse Source
This commit is contained in:
SchreiberM
2019-11-14 09:59:31 +01:00
parent d8e7f94480
commit 9e20642257
34 changed files with 2836 additions and 4570 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
app/DD_PM_WINDREAM/ClassFinalizeDoc.vb
View File

@@ -54,7 +54,7 @@
Case "vDate"
value = Now.ToShortDateString
Case "vUserName"
value = Environment.UserName
value = USER_USERNAME
Case Else
value = dr.Item("VALUE")
End Select
@@ -197,7 +197,7 @@
Dim PM_String As String
Try
Dim Bezeichner As String = VKTBezeichner.Replace("[%VKT", "")
PM_String = "DD-PM#" & Bezeichner & "#" & input & "#" & Environment.UserName & "#" & Now.ToString
PM_String = "DD-PM#" & Bezeichner & "#" & input & "#" & USER_USERNAME & "#" & Now.ToString
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info(">> Fehler in Return_PM_VEKTOR: " & ex.Message, True)
@@ -210,9 +210,9 @@
Dim PM_String As String
Try
If old = "DDFINALINDEX" Then
PM_String = "DD-PMlog-FINAL" & "#" & indexname & "#" & input & "#" & Environment.UserName & "#" & Now.ToString
PM_String = "DD-PMlog-FINAL" & "#" & indexname & "#" & input & "#" & USER_USERNAME & "#" & Now.ToString
Else
PM_String = "DD-PMlog-CHG" & "#" & indexname & "#" & "NEW: '" & input & "' - OLD: '" & old & "'" & "#" & Environment.UserName & "#" & Now.ToString
PM_String = "DD-PMlog-CHG" & "#" & indexname & "#" & "NEW: '" & input & "' - OLD: '" & old & "'" & "#" & USER_USERNAME & "#" & Now.ToString
End If
Catch ex As Exception