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

MS 2.0.0.6

Browse Source
This commit is contained in:
SchreiberM
2020-01-28 10:38:32 +01:00
parent cd08b9c7d3
commit 39921824b8
13 changed files with 344 additions and 419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
app/DD_PM_WINDREAM/frmValidator.vb
View File

@@ -523,7 +523,7 @@ Public Class frmValidator
Next
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Error in LoadSQLData: " & ex.Message, MsgBoxStyle.Critical)
MsgBox("Error in LoadSQLData: " & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE)
clsLogger.Add("Error in LoadSQLData: " & ex.Message)
End Try
End Sub
@@ -560,7 +560,7 @@ Public Class frmValidator
oDTforControl = ClassDatabase.Return_Datatable_ConId(oSql, oConnectionId)
If IsNothing(oDTforControl) Then
MsgBox($"SQL-Query for control {control.Name} is invalid.")
MsgBox($"SQL-Query for control {control.Name} is invalid.", MsgBoxStyle.OkOnly, ADDITIONAL_TITLE)
Exit Sub
End If
Dim oValue
@@ -635,7 +635,7 @@ Public Class frmValidator
Next
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Error in LoadSQLData2: " & ex.Message, MsgBoxStyle.Critical)
MsgBox("Error in LoadSQLData2: " & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE)
clsLogger.Add("Error in LoadSQLData2: " & ex.Message)
End Try
End Sub
@@ -1126,10 +1126,10 @@ Public Class frmValidator
Override_SQLCommand = clsPatterns.ReplaceAllValues(Override_SQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
Dim oDT_ACTIONS As DataTable = ClassDatabase.Return_Datatable(oSQL)
If IsNothing(oDT_ACTIONS) Then
MsgBox("Something went wrong in custom action - Please check Your log!", MsgBoxStyle.Exclamation)
MsgBox("Something went wrong in custom action - Please check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
Exit Sub
ElseIf oDT_ACTIONS.Rows.Count = 0 Then
MsgBox("Something went wrong in custom action (No row) - Please check Your log!", MsgBoxStyle.Exclamation)
MsgBox("Something went wrong in custom action (No row) - Please check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
Exit Sub
End If
'Select Case'Override' as Action_Type, 'Sind Sie sicher dass Sie nicht zuständig sind?' as Question,'Nicht Zuständig' as Caption,'Red' as Color
@@ -1211,7 +1211,7 @@ Public Class frmValidator
If oREsult = True Then
Reload_Controls(oControlName)
Else
MsgBox("Unexpected error in Button Refresh_Controls - Check Your log!", MsgBoxStyle.Exclamation)
MsgBox("Unexpected error in Button Refresh_Controls - Check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
End If
End If
Case "Update_Controls".ToUpper
@@ -1227,7 +1227,7 @@ Public Class frmValidator
StatusLabel("Refreshed single control")
FillIndexValues(False)
Else
MsgBox("Unexpected error in Button Refresh_Controls - Check Your log!", MsgBoxStyle.Exclamation)
MsgBox("Unexpected error in Button Refresh_Controls - Check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
End If
End If
@@ -1236,7 +1236,7 @@ Public Class frmValidator
Override = True
Finish_WFStep()
Case Else
MsgBox($"No configured action provided for onCustomButtonClick [{oAction}]", MsgBoxStyle.Exclamation, "")
MsgBox($"No configured action provided for onCustomButtonClick [{oAction}]", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
LOGGER.Warn($"No configured action provided for onCustomButtonClick [{oAction}]")
End Select
@@ -1714,7 +1714,7 @@ Public Class frmValidator
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in Depending_Control_Set_Result - ERROR: " & ex.Message)
MsgBox("Unexpected error: " & ex.Message, MsgBoxStyle.Critical)
MsgBox("Unexpected error: " & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE)
End Try
End Sub
Public Sub OnDTPValueChanged(sender As System.Object, e As System.EventArgs)
@@ -1940,7 +1940,7 @@ Public Class frmValidator
LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'")
If CURRENT_DOC_GUID > 0 Then
If GetWMDocPathWindows(0) = False Then
MsgBox("Could not access the file! Check the log!", MsgBoxStyle.Critical, "")
MsgBox("Could not access the file! Check the log!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)
Exit Sub
End If
If IDB_ACTIVE = False Then
@@ -2045,7 +2045,7 @@ Public Class frmValidator
Try
MsgBox(oROW.Item("STRING1"), MsgBoxStyle.Information, oROW.Item("STRING2"))
Catch ex As Exception
MsgBox("No more documents!" & vbNewLine & "Form will be closed now!", MsgBoxStyle.Information, "")
MsgBox("No more documents!" & vbNewLine & "Form will be closed now!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
End Try
activate_controls(True)
Me.Close()
@@ -2063,6 +2063,12 @@ Public Class frmValidator
End Sub
Sub load_viewer()
DocumentViewerValidator.LoadFile(WMDocPathWindows)
DocumentViewerValidator.RightOnlyView(USER_RIGHT_VIEW_ONLY)
If USER_RIGHT_VIEW_ONLY = True Then
RibbonPageFile.Visible = False
Else
RibbonPageFile.Visible = True
End If
SplitContainer1.Panel2Collapsed = False
End Sub
@@ -2344,7 +2350,7 @@ Public Class frmValidator
Return value
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("error in ReturnVektor_IndexValue: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
MsgBox("error in ReturnVektor_IndexValue: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE)
LOGGER.Info("error in ReturnVektor_IndexValue: " & ex.Message)
Return ""
End Try
@@ -2561,7 +2567,7 @@ Public Class frmValidator
oControlType = "DataGridView"
Dim dgv As DataGridView = oControl
If oSourceIndexName = "" Then
MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)
Exit For
End If
If oSourceIndexName Is Nothing = False Then
@@ -2579,7 +2585,7 @@ Public Class frmValidator
'Tabellendarstellung
Case "TABLE"
Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId)
Dim dt As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlId} ORDER BY [SEQUENCE]")
Dim SpaltenWerte As String()
LOGGER.Debug($"{dt.Rows.Count} Columns configured for control {oControlId}.")
If dt.Rows.Count > 1 Then
@@ -2638,7 +2644,7 @@ Public Class frmValidator
oControlType = "DevExpress.XtraGrid.GridControl"
Dim oMyGridControl As GridControl = oControl
If oSourceIndexName = "" Then
MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)
Exit For
End If
If oSourceIndexName Is Nothing = False Then
@@ -2658,7 +2664,7 @@ Public Class frmValidator
Select Case oTyp
'Tabellendarstellung
Case "TABLE"
Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId)
Dim dt As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlId} ORDER BY [SEQUENCE]")
Dim oColCount = dt.Rows.Count
Dim oColValuesfromSource As String()
LOGGER.Debug($"DevExpressGrid: {oColCount} Columns configured for control {oControlId}.")
@@ -2816,7 +2822,7 @@ Public Class frmValidator
LOGGER.Debug("Loading checkbox.")
oControlType = "CheckBox"
If oSourceIndexName = "" Then
MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)
Exit For
End If
If oSourceIndexName Is Nothing = False Then
@@ -2962,7 +2968,7 @@ Public Class frmValidator
oControlType = "DateTimePicker"
Dim DTP As DateTimePicker = oControl
If oSourceIndexName = "" Then
MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)
Exit For
End If
If oSourceIndexName Is Nothing = False Then
@@ -3158,10 +3164,10 @@ Public Class frmValidator
Dim oDT_ACTIONS As DataTable = ClassDatabase.Return_Datatable(oSQL)
If IsNothing(oDT_ACTIONS) Then
MsgBox("Something went wrong in btnFinish_continue - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation)
MsgBox("Something went wrong in btnFinish_continue - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
Return False
ElseIf oDT_ACTIONS.Rows.Count = 0 Then
MsgBox("Something went wrong in btnFinish_continue (No row) - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation)
MsgBox("Something went wrong in btnFinish_continue (No row) - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
Return False
End If
'Select Case'Override' as Action_Type, 'Sind Sie sicher dass Sie nicht zuständig sind?' as Question,'Nicht Zuständig' as Caption,'Red' as Color
@@ -3520,7 +3526,7 @@ Public Class frmValidator
End If
End If
If oErrorOcurred = True Then
MsgBox("Unhandled error occured ... please check your log!", MsgBoxStyle.Exclamation)
MsgBox("Unhandled error occured ... please check your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
ItemWorked = False
Else
'Das Dokument freigeben und as editiert markieren
@@ -3661,6 +3667,8 @@ Public Class frmValidator
Dim oRegexMessage As String = NotNull(dr.Item("REGEX_MESSAGE_DE"), String.Empty)
oControlName = dr.Item("CTRL_NAME")
Dim oOVERWRITE_DATA = dr.Item("OVERWRITE_DATA")
Dim oPreventMultipleValues = dr.Item("VKT_PREVENT_MULTIPLE_VALUES")
'Nur wenn der Name der Zeile entspricht und der Index READ_ONLY FALSE ist
If dr.Item("CTRL_NAME") = oControl.Name And (oIsReadOnly = False Or oSQLCheckCommand <> "") And oIndexName <> "DD PM-ONLY FOR DISPLAY" Then
LOGGER.Debug("Indexierung für Control (" & oControlId & ") '" & oControlName & "' gestartet. Indexname '" & oIndexName & "'")
@@ -3708,14 +3716,12 @@ Public Class frmValidator
Else
Dim oMyDT = DT_FOR_ARRAY(myVektorArr)
If IDBData.SetVariableValue(oIndexName, oMyDT, oOVERWRITE_DATA) = False Then
If IDBData.SetVariableValue(oIndexName, oMyDT, oOVERWRITE_DATA, oIDBTyp) = False Then
oMissing = True
oErrorMessage = "Error while indexing IDB-Object LookupGrid"
Exit For
End If
End If
'Jetzt die Datei indexieren
Else
Dim oValues As New List(Of Object) From {String.Empty}
If IDB_ACTIVE = False Then
@@ -4686,7 +4692,7 @@ Public Class frmValidator
bsiInformation.Caption = infotext & " " & Now.ToString
End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemFileView.ItemClick
Try
Dim Proc As New System.Diagnostics.Process
Dim psi As New ProcessStartInfo(WMDocPathWindows)