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

MS Buttons Validator, Fomat Currency

Browse Source
This commit is contained in:
SchreiberM
2024-07-04 15:42:54 +02:00
parent cd75a665e6
commit 4660e8ee9a
23 changed files with 757 additions and 313 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
app/TaskFlow/frmAdmin_notResponsibleConfig.vb
View File

@@ -1,4 +1,5 @@
Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback
Public Class frmAdmin_notResponsibleConfig
Dim oProfilID As Integer = 0
@@ -26,6 +27,8 @@ Public Class frmAdmin_notResponsibleConfig
If DatabaseECM.ExecuteNonQuery(oUpd) Then
oUpd = $"EXEC PRDD_GUI_LANGUAGE_PHRASE 'PM','PROFILE_REJECTION_CAPT{oProfilID}','{USER_LANGUAGE}','PROFILE_REJECTION_CAPT','{txtCaption_NotResponsible.Text}','','{USER_USERNAME}','{oProfilID}',0"
bstitmInfo.Caption = "Data saved successfully - " + Now.ToString
End If
Else
bstitmInfo.Caption = "Attention: Error storing data - Check Your log"
@@ -36,11 +39,10 @@ Public Class frmAdmin_notResponsibleConfig
Try
Dim oSQL = $"SELECT NOT_RESP_SQL FROM TBPM_PROFILE WHERE GUID = {oProfilID}"
Dim oDT = DatabaseECM.GetDatatable(oSQL)
oCaption = oDT.Rows(0).Item(0)
oNotResponsible_SQL = oDT.Rows(0).Item(0)
For Each oRow As DataRow In CURRENT_DT_PROFILE_LANGUAGE.Rows
If oRow.Item("TITLE") = $"PROFILE_NOT_RESPONSIBLE_CAPT{oProfilID}" Then
If oRow.Item("TITLE") = $"PROFILE_NOT_RESPONSIBLE_CAPT{oProfilID}" And oRow.Item("LANGUAGE") = USER_LANGUAGE Then
oCaption = oRow.Item("STRING1")
ElseIf oRow.Item("TITLE") = $"PROFILE_NOT_RESPONSIBLE_QUEST{oProfilID}" And oRow.Item("LANGUAGE") = USER_LANGUAGE Then
oQuestion = oRow.Item("STRING1")
@@ -87,4 +89,9 @@ Public Class frmAdmin_notResponsibleConfig
MsgBox("Error in Saving Profile SQL: " & vbNewLine & vbNewLine & ex.Message)
End Try
End Sub
Private Sub frmAdmin_notResponsibleConfig_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Dim oSQL = $"select * from TBDD_GUI_LANGUAGE_PHRASE WHERE MODULE = 'PM' AND TITLE LIKE 'PROFILE_%'"
CURRENT_DT_PROFILE_LANGUAGE = DatabaseECM.GetDatatable(oSQL)
End Sub
End Class