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

MS 2.3.0.4

Browse Source
This commit is contained in:
SchreiberM
2022-03-16 15:48:18 +01:00
parent 6c4fac05e8
commit 3ea6171c4f
28 changed files with 445 additions and 366 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD_PM_WINDREAM/frmColumn_Detail.vb
View File

@@ -118,7 +118,7 @@ Public Class frmColumn_Detail
If oldSQL <> oForm.SQLCommand Then
Dim oUpdate As String = $"Update TBPM_CONTROL_TABLE SET CHANGED_WHO = '{USER_USERNAME}', SQL_COMMAND = '{oForm.SQLCommand.Replace("'", "''")}'
, CONNECTION_ID = {oForm.ConnectionID} WHERE GUID = {GUIDTextBox.Text}"
If Database_ECM.ExecuteNonQuery(oUpdate) = True Then
If DatabaseFallback.ExecuteNonQueryECM(oUpdate) = True Then
tslblAenderungen.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
tslblAenderungen.Caption = "Changes saved - " & Now
End If
@@ -166,7 +166,7 @@ Public Class frmColumn_Detail
If oldSQL <> oForm.SQLCommand Then
Dim oUpdate As String = $"Update TBPM_CONTROL_TABLE SET CHANGED_WHO = '{USER_USERNAME}', SQL_COMMAND = '{oForm.SQLCommand.Replace("'", "''")}'
, CONNECTION_ID = {oForm.ConnectionID} WHERE GUID = {GUIDTextBox.Text}"
If Database_ECM.ExecuteNonQuery(oUpdate) = True Then
If DatabaseFallback.ExecuteNonQueryECM(oUpdate) = True Then
tslblAenderungen.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
tslblAenderungen.Caption = "Changes saved - " & Now
End If