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

PMMS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-06-21 11:16:09 +02:00
parent fc8631bad8
commit cb3d370085
12 changed files with 674 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@@ -109,10 +109,10 @@ Public Class frmMassValidator
'End Try
'Me.lblerror.Visible = False
If CURRENT_USER_LANGUAGE <> "de-DE" Then
btnSave.Text = String.Format("Finish all documents (#{0})", CURRENT_DT_MASS_CHANGE_DOCS.Rows.Count.ToString)
Else
btnSave.Text = String.Format("Alle Dokumente (#{0}) abschliessen.", CURRENT_DT_MASS_CHANGE_DOCS.Rows.Count.ToString)
If USER_LANGUAGE <> "de-DE" Then
btnSave.Text = String.Format("Finish all documents (#{0})", CURRENT_DT_MASS_CHANGE_DOCS.Rows.Count.ToString)
Else
btnSave.Text = String.Format("Alle Dokumente (#{0}) abschliessen.", CURRENT_DT_MASS_CHANGE_DOCS.Rows.Count.ToString)
End If
End Sub
@@ -608,7 +608,7 @@ Public Class frmMassValidator
valueAllOver = tempIndexValue
Else
If valueAllOver <> tempIndexValue Then
If CURRENT_USER_LANGUAGE <> "de-DE" Then
If USER_LANGUAGE <> "de-DE" Then
valueAllOver = "(Different values)"
Else
valueAllOver = "(Untersch. Werte)"
@@ -700,7 +700,7 @@ Public Class frmMassValidator
Dim displayboxname = ROW.Item(Name).ToString
If Not IsDBNull(ROW.Item(1)) And Not IsDBNull(ROW.Item(2)) Then
Dim sql_Statement = ROW.Item(2)
sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, WMObject, CURRENT_USER_PRENAME, CURRENT_USER_SURNAME, CURRENT_USER_SHORTNAME, CURRENT_USER_EMAIL)
sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, WMObject, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
_dependingControl_in_action = True
Depending_Control_Set_Result(displayboxname, sql_Statement, ROW.Item(1))
@@ -774,7 +774,7 @@ Public Class frmMassValidator
If Not IsDBNull(ROW.Item("CONNECTION_ID")) And Not IsDBNull(ROW.Item("SQL_UEBERPRUEFUNG")) Then
Dim sql_Statement = ROW.Item("SQL_UEBERPRUEFUNG")
sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, WMObject, CURRENT_USER_PRENAME, CURRENT_USER_SURNAME, CURRENT_USER_SHORTNAME, CURRENT_USER_EMAIL)
sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, WMObject, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
_dependingControl_in_action = True
@@ -1062,15 +1062,15 @@ Public Class frmMassValidator
'Wenn kein Fehler nach der finalen Indexierung gesetzt wurde
If workedFiles = CURRENT_DT_MASS_CHANGE_DOCS.Rows.Count Then
If CURRENT_USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = "de-DE" Then
MsgBox(String.Format("{0} Dateien wurden abgeschlossen!", workedFiles), MsgBoxStyle.Information, "Erfolgsmeldung:")
ElseIf CURRENT_USER_LANGUAGE = "en-US" Then
ElseIf USER_LANGUAGE = "en-US" Then
MsgBox(String.Format("{0} files have been worked successfully!", workedFiles), MsgBoxStyle.Information, "Success:")
End If
Else
If CURRENT_USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = "de-DE" Then
MsgBox(String.Format("{0} von {1} Dateien wurden abgeschlossen! Bitte prüfen Sie das Log und informieren Ihren Sysadmin.", workedFiles, CURRENT_DT_MASS_CHANGE_DOCS.Rows.Count), MsgBoxStyle.Information, "Achtung:")
ElseIf CURRENT_USER_LANGUAGE = "en-US" Then
ElseIf USER_LANGUAGE = "en-US" Then
MsgBox(String.Format("{0} of {1} files have been worked successfully - Check the log And inform Your sysadmin!", workedFiles, CURRENT_DT_MASS_CHANGE_DOCS.Rows.Count), MsgBoxStyle.Information, "Attention:")
End If