2.4.1.7 Logging SQL from Task, replacing '
This commit is contained in:
parent
fcf3ad53a4
commit
386e3b62b5
@ -7,7 +7,7 @@ Public Class ClassDatabase
|
||||
Dim connectionString As String = ""
|
||||
Try
|
||||
'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id)
|
||||
Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id)
|
||||
Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id, "Get_ConnectionString")
|
||||
If DTConnection.Rows.Count = 1 Then
|
||||
Select Case DTConnection.Rows(0).Item("SQL_PROVIDER").ToString.ToUpper
|
||||
Case "MS-SQL"
|
||||
@ -57,36 +57,42 @@ Public Class ClassDatabase
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Shared Function Return_Datatable(Select_anweisung As String, Optional userInput As Boolean = False)
|
||||
Public Shared Function Return_Datatable(pSQLCommand As String, Optional pInfo As String = "")
|
||||
Try
|
||||
If pInfo <> "" Then
|
||||
pInfo = "[" & pInfo & "]"
|
||||
End If
|
||||
Dim SQLconnect As New SqlClient.SqlConnection
|
||||
Dim SQLcommand As SqlClient.SqlCommand
|
||||
LOGGER.Debug("ReturnDatatable: " & Select_anweisung)
|
||||
LOGGER.Debug($"Return_Datatable[{pSQLCommand}]#{pInfo}")
|
||||
SQLconnect.ConnectionString = SQLSERVERConnectionString
|
||||
SQLconnect.Open()
|
||||
SQLcommand = SQLconnect.CreateCommand
|
||||
SQLcommand.CommandText = Select_anweisung
|
||||
LOGGER.Debug("Execute ReturnDatatable: " & Select_anweisung)
|
||||
SQLcommand.CommandText = pSQLCommand
|
||||
LOGGER.Debug("Execute ReturnDatatable: " & pSQLCommand)
|
||||
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
|
||||
Dim dt As DataTable = New DataTable()
|
||||
adapter1.Fill(dt)
|
||||
SQLconnect.Close()
|
||||
Return dt
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn($"Unexpected Error in Return_Datatable: {ex.Message} [{Select_anweisung}]")
|
||||
LOGGER.Warn($"Unexpected Error in Return_Datatable{pInfo}: {ex.Message} [{pSQLCommand}]")
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
Public Shared Function Return_Datatable_ConId(SQLCommand As String, ConnID As Integer, Optional userInput As Boolean = False)
|
||||
Public Shared Function Return_Datatable_ConId(pSQLCommand As String, ConnID As Integer, Optional pInfo As String = "")
|
||||
Try
|
||||
If pInfo <> "" Then
|
||||
pInfo = "[" & pInfo & "]"
|
||||
End If
|
||||
Dim oConnString = Get_ConnectionString(ConnID)
|
||||
LOGGER.Debug($"Return_Datatable_ConId [{ConnID}]: " & SQLCommand)
|
||||
LOGGER.Debug($"Return_Datatable_ConId [{ConnID}]#[{pSQLCommand}]#{pInfo}")
|
||||
Dim oSQLconnect As New SqlClient.SqlConnection
|
||||
Dim oSQLcommand As SqlClient.SqlCommand
|
||||
oSQLconnect.ConnectionString = oConnString
|
||||
oSQLconnect.Open()
|
||||
oSQLcommand = oSQLconnect.CreateCommand
|
||||
oSQLcommand.CommandText = SQLCommand
|
||||
oSQLcommand.CommandText = pSQLCommand
|
||||
|
||||
Dim oSQLAdapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(oSQLcommand)
|
||||
Dim oReturnDatatable As DataTable = New DataTable()
|
||||
@ -94,22 +100,23 @@ Public Class ClassDatabase
|
||||
oSQLconnect.Close()
|
||||
Return oReturnDatatable
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn($"Unexpected Error in Return_Datatable_ConId: {ex.Message} [{SQLCommand}]")
|
||||
If userInput = True Then
|
||||
MsgBox("Error in Return_Datatable_ConId - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & SQLCommand, MsgBoxStyle.Critical)
|
||||
End If
|
||||
LOGGER.Warn($"Unexpected Error in Return_Datatable_ConId{pInfo}: {ex.Message} [{pSQLCommand}]")
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
Public Shared Function Return_Datatable_ConStr(SQLCommand As String, ConNStr As String, Optional userInput As Boolean = False)
|
||||
Public Shared Function Return_Datatable_ConStr(pSQLCommand As String, ConNStr As String, Optional pInfo As String = "")
|
||||
Try
|
||||
LOGGER.Debug("Return_Datatable_ConStr: " & SQLCommand)
|
||||
If pInfo <> "" Then
|
||||
pInfo = "[" & pInfo & "]"
|
||||
End If
|
||||
LOGGER.Debug("Return_Datatable_ConStr: " & pSQLCommand)
|
||||
|
||||
Dim oSQLconnect As New SqlClient.SqlConnection
|
||||
Dim oSQLcommand As SqlClient.SqlCommand
|
||||
oSQLconnect.ConnectionString = ConNStr
|
||||
oSQLconnect.Open()
|
||||
oSQLcommand = oSQLconnect.CreateCommand
|
||||
oSQLcommand.CommandText = SQLCommand
|
||||
oSQLcommand.CommandText = pSQLCommand
|
||||
|
||||
Dim oSQLAdapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(oSQLcommand)
|
||||
Dim oReturnDatatable As DataTable = New DataTable()
|
||||
@ -117,68 +124,60 @@ Public Class ClassDatabase
|
||||
oSQLconnect.Close()
|
||||
Return oReturnDatatable
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn($"Unexpected Error in Return_Datatable_ConStr: {ex.Message} [{SQLCommand}]")
|
||||
If userInput = True Then
|
||||
MsgBox("Error in Return_Datatable_ConStr - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & SQLCommand, MsgBoxStyle.Critical)
|
||||
End If
|
||||
LOGGER.Warn($"Unexpected Error in Return_Datatable_ConStr{pInfo}: {ex.Message} [{pSQLCommand}]")
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional userInput As Boolean = False)
|
||||
Public Shared Function Execute_non_Query(pSQLCommand As String, Optional pInfo As String = "")
|
||||
Try
|
||||
If pInfo <> "" Then
|
||||
pInfo = "[" & pInfo & "]"
|
||||
End If
|
||||
Dim SQLconnect As New SqlClient.SqlConnection
|
||||
Dim SQLcommand As SqlClient.SqlCommand
|
||||
SQLconnect.ConnectionString = SQLSERVERConnectionString
|
||||
SQLconnect.Open()
|
||||
SQLcommand = SQLconnect.CreateCommand
|
||||
'Update Last Created Record in Foo
|
||||
SQLcommand.CommandText = ExecuteCMD
|
||||
LOGGER.Debug("Execute_non_Query Created: " & ExecuteCMD)
|
||||
SQLcommand.CommandText = pSQLCommand
|
||||
LOGGER.Debug("Execute_non_Query Created: " & pSQLCommand)
|
||||
SQLcommand.ExecuteNonQuery()
|
||||
SQLcommand.Dispose()
|
||||
SQLconnect.Close()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
If userInput = True Then
|
||||
MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
|
||||
End If
|
||||
Clipboard.SetText("Error ExecuteCMD: " & ex.Message & vbNewLine & "SQL: " & ExecuteCMD)
|
||||
LOGGER.Info("Fehler bei Execute_non_Query: " & ex.Message, True)
|
||||
LOGGER.Info("#SQL: " & ExecuteCMD, False)
|
||||
|
||||
LOGGER.Warn($"Unexpected Error in Execute_non_Query{pInfo}: {ex.Message} [{pSQLCommand}]")
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
Public Shared Function Execute_non_Query_ConStr(ExecuteCMD As String, ConnString As String, Optional userInput As Boolean = False)
|
||||
Public Shared Function Execute_non_Query_ConStr(pSQLCommand As String, ConnString As String, Optional pInfo As String = "")
|
||||
Try
|
||||
If pInfo <> "" Then
|
||||
pInfo = "[" & pInfo & "]"
|
||||
End If
|
||||
Dim SQLconnect As New SqlClient.SqlConnection
|
||||
Dim SQLcommand As SqlClient.SqlCommand
|
||||
SQLconnect.ConnectionString = ConnString
|
||||
SQLconnect.Open()
|
||||
SQLcommand = SQLconnect.CreateCommand
|
||||
'Update Last Created Record in Foo
|
||||
SQLcommand.CommandText = ExecuteCMD
|
||||
LOGGER.Debug("Execute_non_Query_ConStr Created: " & ExecuteCMD)
|
||||
SQLcommand.CommandText = pSQLCommand
|
||||
LOGGER.Debug("Execute_non_Query_ConStr Created: " & pSQLCommand)
|
||||
SQLcommand.ExecuteNonQuery()
|
||||
SQLcommand.Dispose()
|
||||
SQLconnect.Close()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
If userInput = True Then
|
||||
MsgBox("Error in Execute_non_Query_ConStr - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
|
||||
End If
|
||||
Clipboard.SetText("Error Execute_non_Query_ConStr: " & ex.Message & vbNewLine & "SQL: " & ExecuteCMD)
|
||||
LOGGER.Info("Fehler bei Execute_non_Query_ConStr: " & ex.Message, True)
|
||||
LOGGER.Info("#SQL: " & ExecuteCMD, False)
|
||||
|
||||
LOGGER.Warn($"Unexpected Error in Execute_non_Query_ConStr{pInfo}: {ex.Message} [{pSQLCommand}]")
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
Public Shared Function Execute_Scalar(cmdscalar As String, ConString As String, Optional userInput As Boolean = False)
|
||||
Public Shared Function Execute_Scalar(pSQLCommand As String, ConString As String, Optional pInfo As String = "")
|
||||
Dim result
|
||||
Try
|
||||
If pInfo <> "" Then
|
||||
pInfo = "[" & pInfo & "]"
|
||||
End If
|
||||
Dim SQLconnect As New SqlClient.SqlConnection
|
||||
Dim SQLcommand As SqlClient.SqlCommand
|
||||
SQLconnect.ConnectionString = ConString
|
||||
@ -186,74 +185,61 @@ Public Class ClassDatabase
|
||||
SQLconnect.Open()
|
||||
SQLcommand = SQLconnect.CreateCommand
|
||||
'Update Last Created Record in Foo
|
||||
SQLcommand.CommandText = cmdscalar
|
||||
LOGGER.Debug("Execute_Scalar: " & cmdscalar)
|
||||
SQLcommand.CommandText = pSQLCommand
|
||||
LOGGER.Debug("Execute_Scalar: " & pSQLCommand)
|
||||
result = SQLcommand.ExecuteScalar()
|
||||
SQLcommand.Dispose()
|
||||
SQLconnect.Close()
|
||||
Return result
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
If userInput = True Then
|
||||
MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
|
||||
End If
|
||||
Clipboard.SetText("Error Execute_Scalar: " & ex.Message & vbNewLine & "SQL: " & cmdscalar)
|
||||
LOGGER.Info("Fehler bei Execute_Scalar: " & ex.Message, True)
|
||||
LOGGER.Info("#SQL: " & cmdscalar, False)
|
||||
LOGGER.Warn($"Unexpected Error in Execute_Scalar{pInfo}: {ex.Message} [{pSQLCommand}]")
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
Public Shared Function Execute_Scalar_ConStr(cmdscalar As String, ConString As String, Optional userInput As Boolean = False)
|
||||
Public Shared Function Execute_Scalar_ConStr(pSQLCommand As String, ConString As String, Optional pInfo As String = "")
|
||||
Dim result
|
||||
Try
|
||||
If pInfo <> "" Then
|
||||
pInfo = "[" & pInfo & "]"
|
||||
End If
|
||||
Dim SQLconnect As New SqlClient.SqlConnection
|
||||
Dim SQLcommand As SqlClient.SqlCommand
|
||||
SQLconnect.ConnectionString = ConString
|
||||
SQLconnect.Open()
|
||||
SQLcommand = SQLconnect.CreateCommand
|
||||
'Update Last Created Record in Foo
|
||||
SQLcommand.CommandText = cmdscalar
|
||||
LOGGER.Debug("Execute_Scalar_ConStr Scalar: " & cmdscalar)
|
||||
SQLcommand.CommandText = pSQLCommand
|
||||
LOGGER.Debug("Execute_Scalar_ConStr Scalar: " & pSQLCommand)
|
||||
result = SQLcommand.ExecuteScalar()
|
||||
SQLcommand.Dispose()
|
||||
SQLconnect.Close()
|
||||
Return result
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
If userInput = True Then
|
||||
MsgBox("Error in Execute_Scalar_ConStr - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
|
||||
End If
|
||||
Clipboard.SetText("Error Execute_Scalar_ConStr: " & ex.Message & vbNewLine & "SQL: " & cmdscalar)
|
||||
LOGGER.Info("Fehler bei Execute_Scalar_ConStr: " & ex.Message, True)
|
||||
LOGGER.Info("#SQL: " & cmdscalar, False)
|
||||
LOGGER.Warn($"Unexpected Error in Execute_Scalar_ConStr{pInfo}: {ex.Message} [{pSQLCommand}]")
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
Public Shared Function Execute_Scalar_ConID(cmdscalar As String, ConnID As Integer, Optional userInput As Boolean = False)
|
||||
Public Shared Function Execute_Scalar_ConID(pSQLCommand As String, ConnID As Integer, Optional pInfo As String = "")
|
||||
Dim result
|
||||
Try
|
||||
If pInfo <> "" Then
|
||||
pInfo = "[" & pInfo & "]"
|
||||
End If
|
||||
Dim oConnString = Get_ConnectionString(ConnID)
|
||||
LOGGER.Debug($"Execute_Scalar_ConID [{ConnID}]: " & cmdscalar)
|
||||
|
||||
LOGGER.Debug($"Execute_Scalar_ConID [{ConnID}]: " & pSQLCommand)
|
||||
Dim SQLconnect As New SqlClient.SqlConnection
|
||||
Dim SQLcommand As SqlClient.SqlCommand
|
||||
SQLconnect.ConnectionString = oConnString
|
||||
SQLconnect.Open()
|
||||
SQLcommand = SQLconnect.CreateCommand
|
||||
'Update Last Created Record in Foo
|
||||
SQLcommand.CommandText = cmdscalar
|
||||
SQLcommand.CommandText = pSQLCommand
|
||||
result = SQLcommand.ExecuteScalar()
|
||||
SQLcommand.Dispose()
|
||||
SQLconnect.Close()
|
||||
Return result
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
If userInput = True Then
|
||||
MsgBox("Error in Execute_Scalar_ConStr - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
|
||||
End If
|
||||
Clipboard.SetText("Error Execute_Scalar_ConStr: " & ex.Message & vbNewLine & "SQL: " & cmdscalar)
|
||||
LOGGER.Info("Fehler bei Execute_Scalar_ConStr: " & ex.Message, True)
|
||||
LOGGER.Info("#SQL: " & cmdscalar, False)
|
||||
LOGGER.Warn($"Unexpected Error in Execute_Scalar_ConID{pInfo}: {ex.Message} [{pSQLCommand}]")
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
@ -3,7 +3,7 @@
|
||||
Try
|
||||
Dim _error As Boolean = False
|
||||
If CURRENT_DT_FINAL_INDEXING Is Nothing Then
|
||||
CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID))
|
||||
CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID), "Write_Final_Metadata")
|
||||
End If
|
||||
If CURRENT_DT_FINAL_INDEXING.Rows.Count > 0 Then
|
||||
|
||||
@ -39,10 +39,9 @@
|
||||
'Next
|
||||
Dim sql_Statement = clsPatterns.ReplaceUserValues(dr.Item("SQL_COMMAND"), USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
|
||||
sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement)
|
||||
sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject)
|
||||
|
||||
sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject, True)
|
||||
LOGGER.Debug("sql after ReplaceAllValues: " & sql_Statement)
|
||||
Dim dynamic_value = ClassDatabase.Execute_Scalar(sql_Statement, CONNECTION_STRING, True)
|
||||
Dim dynamic_value = ClassDatabase.Execute_Scalar(sql_Statement, CONNECTION_STRING, "Write_Final_Metadata/dynamic_value")
|
||||
If Not IsNothing(dynamic_value) Then
|
||||
value = dynamic_value
|
||||
Else
|
||||
|
||||
@ -106,7 +106,7 @@ Public Class ClassInit
|
||||
Dim oStopWatch As New RefreshHelper.SW("Refresh_Licence")
|
||||
Try
|
||||
Me._lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
|
||||
Dim lic As String = BASEDATA_DT_CONFIG.Rows(0).Item("LIZENZEN") ' ClassDatabase.Execute_Scalar("SELECT LIZENZEN FROM TBPM_KONFIGURATION WHERE (GUID = 1)", MyConnectionString)
|
||||
Dim lic As String = BASEDATA_DT_CONFIG.Rows(0).Item("LIZENZEN")
|
||||
Dim licString = Me._lizenzManager.DecodeLicenseKey(lic)
|
||||
Dim split() = licString.ToString.Split("#")
|
||||
|
||||
@ -139,7 +139,7 @@ Public Class ClassInit
|
||||
Try
|
||||
Dim oSQLSW As New RefreshHelper.SW("VWDD_USER_CLIENT")
|
||||
Dim oSQL = $"SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{USER_USERNAME}')"
|
||||
DT_CLIENT_USER = ClassDatabase.Return_Datatable(oSQL, False)
|
||||
DT_CLIENT_USER = ClassDatabase.Return_Datatable(oSQL, "InitUserLogin1")
|
||||
oSQLSW.Done()
|
||||
|
||||
If DT_CLIENT_USER.Rows.Count > 1 Then
|
||||
@ -163,7 +163,7 @@ Public Class ClassInit
|
||||
LOGGER.Debug("Username: " & USER_USERNAME)
|
||||
Dim oFnct As New RefreshHelper.SW("FNDD_CHECK_USER_MODULE")
|
||||
Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED)
|
||||
Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql)
|
||||
Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql, "InitUserLogin2")
|
||||
oFnct.Done()
|
||||
If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
|
||||
LOGGER.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
|
||||
@ -233,11 +233,6 @@ Public Class ClassInit
|
||||
If ClassAllgemeineFunktionen.LoginOut("LOGIN") = True Then
|
||||
USERCOUNT_LOGGED_IN += 1
|
||||
End If
|
||||
|
||||
'sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Process-Manager') AND CLIENT_ID = {0}", 1)
|
||||
' USERCOUNT_LOGGED_IN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
|
||||
'sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Process-Manager'"
|
||||
'ClassDatabase.Execute_non_Query(sql, True)
|
||||
LOGGER.Debug("Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString)
|
||||
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
|
||||
MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
|
||||
@ -262,28 +257,28 @@ Public Class ClassInit
|
||||
Try
|
||||
Dim oStopWatch As New RefreshHelper.SW("InitBasics")
|
||||
Dim oSql = String.Format("select * from TBPM_KONFIGURATION WHERE GUID = 1")
|
||||
BASEDATA_DT_CONFIG = ClassDatabase.Return_Datatable(oSql)
|
||||
BASEDATA_DT_CONFIG = ClassDatabase.Return_Datatable(oSql, "InitBasics1")
|
||||
Settings_LoadBasicConfig()
|
||||
oSql = "select * from TBDD_CONNECTION WHERE AKTIV = 1"
|
||||
BASEDATA_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(oSql)
|
||||
BASEDATA_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(oSql, "InitBasics2")
|
||||
|
||||
|
||||
oSql = "Select * FROM TBDD_3RD_PARTY_MODULES WHERE ACTIVE = 1"
|
||||
Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSql)
|
||||
Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSql, "InitBasics3")
|
||||
For Each oROW As DataRow In oDT.Rows
|
||||
If oROW.Item("NAME") = "GDPICTURE" Then
|
||||
GDPICTURE_LICENSE = oROW.Item("LICENSE")
|
||||
End If
|
||||
Next
|
||||
oSql = "SELECT * FROM TBDD_GUI_LANGUAGE_PHRASE WHERE MODULE IN ('PM','All Modules')"
|
||||
BASEDATA_DT_GUI_LANGUAGE_PHRASES = ClassDatabase.Return_Datatable(oSql)
|
||||
BASEDATA_DT_GUI_LANGUAGE_PHRASES = ClassDatabase.Return_Datatable(oSql, "InitBasics4")
|
||||
|
||||
BASEDATA_DT_PROFILES_SEARCHES_DOC = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX")
|
||||
BASEDATA_DT_PROFILES_SEARCHES_DOC = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX", "InitBasics5")
|
||||
BASEDATA_DT_PROFILE_SEARCHES_DOC = BASEDATA_DT_PROFILES_SEARCHES_DOC.Clone()
|
||||
|
||||
BASEDATA_DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1")
|
||||
BASEDATA_DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1", "InitBasics6")
|
||||
oSql = "SELECT * FROM TBPM_CHART"
|
||||
BASEDATA_DT_CHARTS = ClassDatabase.Return_Datatable(oSql)
|
||||
BASEDATA_DT_CHARTS = ClassDatabase.Return_Datatable(oSql, "InitBasics7")
|
||||
oStopWatch.Done()
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
@ -296,7 +291,7 @@ Public Class ClassInit
|
||||
Try
|
||||
Dim oStopWatch As New RefreshHelper.SW("InitBasics2")
|
||||
Dim oSql = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID = {0}", USER_ID)
|
||||
BASEDATA_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(oSql)
|
||||
BASEDATA_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(oSql, "InitBasics2_1")
|
||||
oStopWatch.Done()
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
@ -308,7 +303,7 @@ Public Class ClassInit
|
||||
Private Shared Function Settings_LoadBasicConfig()
|
||||
Try
|
||||
Dim sql As String = "select * from tbdd_Modules where SHORT_NAME = 'PM'"
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Settings_LoadBasicConfig")
|
||||
If DT.Rows.Count = 1 Then
|
||||
Try
|
||||
VERSION_DELIMITER = DT.Rows(0).Item("VERSION_DELIMITER")
|
||||
|
||||
@ -1,23 +0,0 @@
|
||||
Public Class ClassUser
|
||||
Public Shared Function Check_User_Exists_in_UMGroups()
|
||||
Try
|
||||
Dim sel = String.Format("select T1.* from TBDD_GROUPS T, TBDD_GROUPS_USER T1 WHERE T.GUID = T1.GROUP_ID AND T1.USER_ID = {0} AND UPPER(T.NAME) = 'UM_ADMINS'", USER_ID)
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(sel)
|
||||
If Not IsNothing(DT) Then
|
||||
If DT.Rows.Count = 1 Then
|
||||
LOGGER.Debug("User is in UM_ADMINS-Group....")
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Check_User_Exists_in_UMGroups:")
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
End Class
|
||||
@ -136,7 +136,7 @@ LOGGER.Error(ex)
|
||||
Try
|
||||
' 04.10.18: Überprüft, ob der Benutzer Mitglied der SERVER_USER Gruppe ist
|
||||
Dim sql = "SELECT T.GUID FROM TBDD_GROUPS_USER T INNER JOIN TBDD_GROUPS T1 on T1.GUID = T.GROUP_ID WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID
|
||||
Dim userExistsInServerUserGroup = ClassDatabase.Execute_Scalar(sql, CONNECTION_STRING)
|
||||
Dim userExistsInServerUserGroup = ClassDatabase.Execute_Scalar(sql, CONNECTION_STRING, "StartWMCC-userExistsInServerUserGroup")
|
||||
|
||||
If WMSESSION_STARTSTOP_STARTUP = True Then
|
||||
'And userExistsInServerUserGroup Is Nothing
|
||||
@ -159,7 +159,7 @@ LOGGER.Error(ex)
|
||||
Try
|
||||
' 04.10.18: Überprüft, ob der Benutzer Mitglied der SERVER_USER Gruppe ist
|
||||
Dim sql = "SELECT T.GUID FROM TBDD_GROUPS_USER T INNER JOIN TBDD_GROUPS T1 on T1.GUID = T.GROUP_ID WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID
|
||||
Dim userExistsInServerUserGroup = ClassDatabase.Execute_Scalar(sql, CONNECTION_STRING)
|
||||
Dim userExistsInServerUserGroup = ClassDatabase.Execute_Scalar(sql, CONNECTION_STRING, "StopWMCC-userExistsInServerUserGroup")
|
||||
|
||||
If WMSESSION_STARTSTOP_STARTUP = True Then 'And userExistsInServerUserGroup Is Nothing
|
||||
Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter")
|
||||
|
||||
105
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb
generated
105
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb
generated
@ -5228,6 +5228,10 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
|
||||
Private columnSQL_ENABLE_ON_LOAD As Global.System.Data.DataColumn
|
||||
|
||||
Private columnSQL_ENABLE_ON_LOAD_CONID As Global.System.Data.DataColumn
|
||||
|
||||
Private columnCONTROL_ACTIVE As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Sub New()
|
||||
@ -5559,6 +5563,22 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public ReadOnly Property SQL_ENABLE_ON_LOAD_CONIDColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnSQL_ENABLE_ON_LOAD_CONID
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public ReadOnly Property CONTROL_ACTIVEColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnCONTROL_ACTIVE
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@ -5632,9 +5652,11 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
ByVal SQL2 As String, _
|
||||
ByVal SQL_ENABLE As String, _
|
||||
ByVal SET_CONTROL_DATA As String, _
|
||||
ByVal SQL_ENABLE_ON_LOAD As String) As TBPM_PROFILE_CONTROLSRow
|
||||
ByVal SQL_ENABLE_ON_LOAD As String, _
|
||||
ByVal SQL_ENABLE_ON_LOAD_CONID As Byte, _
|
||||
ByVal CONTROL_ACTIVE As Boolean) As TBPM_PROFILE_CONTROLSRow
|
||||
Dim rowTBPM_PROFILE_CONTROLSRow As TBPM_PROFILE_CONTROLSRow = CType(Me.NewRow,TBPM_PROFILE_CONTROLSRow)
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL2, SQL_ENABLE, SET_CONTROL_DATA, SQL_ENABLE_ON_LOAD}
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL2, SQL_ENABLE, SET_CONTROL_DATA, SQL_ENABLE_ON_LOAD, SQL_ENABLE_ON_LOAD_CONID, CONTROL_ACTIVE}
|
||||
If (Not (parentTBPM_PROFILERowByFK_TBPM_PROFILE_CONTROLS_PROFILE1) Is Nothing) Then
|
||||
columnValuesArray(1) = parentTBPM_PROFILERowByFK_TBPM_PROFILE_CONTROLS_PROFILE1(0)
|
||||
End If
|
||||
@ -5703,6 +5725,8 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
Me.columnSQL_ENABLE = MyBase.Columns("SQL_ENABLE")
|
||||
Me.columnSET_CONTROL_DATA = MyBase.Columns("SET_CONTROL_DATA")
|
||||
Me.columnSQL_ENABLE_ON_LOAD = MyBase.Columns("SQL_ENABLE_ON_LOAD")
|
||||
Me.columnSQL_ENABLE_ON_LOAD_CONID = MyBase.Columns("SQL_ENABLE_ON_LOAD_CONID")
|
||||
Me.columnCONTROL_ACTIVE = MyBase.Columns("CONTROL_ACTIVE")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@ -5782,6 +5806,10 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
MyBase.Columns.Add(Me.columnSET_CONTROL_DATA)
|
||||
Me.columnSQL_ENABLE_ON_LOAD = New Global.System.Data.DataColumn("SQL_ENABLE_ON_LOAD", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnSQL_ENABLE_ON_LOAD)
|
||||
Me.columnSQL_ENABLE_ON_LOAD_CONID = New Global.System.Data.DataColumn("SQL_ENABLE_ON_LOAD_CONID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnSQL_ENABLE_ON_LOAD_CONID)
|
||||
Me.columnCONTROL_ACTIVE = New Global.System.Data.DataColumn("CONTROL_ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnCONTROL_ACTIVE)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
||||
Me.columnGUID.AutoIncrement = true
|
||||
Me.columnGUID.AllowDBNull = false
|
||||
@ -5792,7 +5820,6 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
Me.columnNAME.MaxLength = 100
|
||||
Me.columnCTRL_TYPE.AllowDBNull = false
|
||||
Me.columnCTRL_TYPE.MaxLength = 10
|
||||
Me.columnCTRL_TEXT.AllowDBNull = false
|
||||
Me.columnCTRL_TEXT.MaxLength = 100
|
||||
Me.columnX_LOC.AllowDBNull = false
|
||||
Me.columnY_LOC.AllowDBNull = false
|
||||
@ -5823,6 +5850,7 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
Me.columnSQL_ENABLE.MaxLength = 2147483647
|
||||
Me.columnSET_CONTROL_DATA.MaxLength = 2147483647
|
||||
Me.columnSQL_ENABLE_ON_LOAD.MaxLength = 2147483647
|
||||
Me.columnCONTROL_ACTIVE.AllowDBNull = false
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@ -12260,7 +12288,11 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property CTRL_TEXT() As String
|
||||
Get
|
||||
Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn),String)
|
||||
Try
|
||||
Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CTRL_TEXT in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn) = value
|
||||
@ -12694,6 +12726,33 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property SQL_ENABLE_ON_LOAD_CONID() As Byte
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLE_ON_LOAD_CONIDColumn),Byte)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_ENABLE_ON_LOAD_CONID in Tabelle TBPM_PROFILE_CONTROLS ist"& _
|
||||
" DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLE_ON_LOAD_CONIDColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property CONTROL_ACTIVE() As Boolean
|
||||
Get
|
||||
Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CONTROL_ACTIVEColumn),Boolean)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBPM_PROFILE_CONTROLS.CONTROL_ACTIVEColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property TBPM_PROFILERow() As TBPM_PROFILERow
|
||||
@ -12705,6 +12764,18 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function IsCTRL_TEXTNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Sub SetCTRL_TEXTNull()
|
||||
Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function IsCHANGED_WHONull() As Boolean
|
||||
@ -12921,6 +12992,18 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLE_ON_LOADColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function IsSQL_ENABLE_ON_LOAD_CONIDNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLE_ON_LOAD_CONIDColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Sub SetSQL_ENABLE_ON_LOAD_CONIDNull()
|
||||
Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLE_ON_LOAD_CONIDColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function GetTBPM_CONTROL_TABLERows() As TBPM_CONTROL_TABLERow()
|
||||
@ -20886,6 +20969,8 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
tableMapping.ColumnMappings.Add("SQL_ENABLE", "SQL_ENABLE")
|
||||
tableMapping.ColumnMappings.Add("SET_CONTROL_DATA", "SET_CONTROL_DATA")
|
||||
tableMapping.ColumnMappings.Add("SQL_ENABLE_ON_LOAD", "SQL_ENABLE_ON_LOAD")
|
||||
tableMapping.ColumnMappings.Add("SQL_ENABLE_ON_LOAD_CONID", "SQL_ENABLE_ON_LOAD_CONID")
|
||||
tableMapping.ColumnMappings.Add("CONTROL_ACTIVE", "CONTROL_ACTIVE")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.DeleteCommand.Connection = Me.Connection
|
||||
@ -21023,8 +21108,9 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
"FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAU"& _
|
||||
"LT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
||||
" REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL"& _
|
||||
"2, SQL_ENABLE, SET_CONTROL_DATA, SQL_ENABLE_ON_LOAD"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFIL"& _
|
||||
"E_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @guid)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Y_LOC, X_LOC"
|
||||
"2, SQL_ENABLE, SET_CONTROL_DATA, SQL_ENABLE_ON_LOAD, SQL_ENABLE_ON_LOAD_CONID, C"& _
|
||||
"ONTROL_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @guid"& _
|
||||
")"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Y_LOC, X_LOC"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@guid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
@ -21103,8 +21189,9 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
" REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, SQL_UEBERPRUEFUNG, TY"& _
|
||||
"P, VALIDATION, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, WIDTH, X_LOC, Y_LOC, I"& _
|
||||
"MAGE_CONTROL, SQL2, SQL_ENABLE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SET_CONTROL_DATA, SQL"& _
|
||||
"_ENABLE_ON_LOAD"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS AS T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFI"& _
|
||||
"L_ID = @profil_id)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Y_LOC, X_LOC"
|
||||
"_ENABLE_ON_LOAD, SQL_ENABLE_ON_LOAD_CONID, CONTROL_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_"& _
|
||||
"PROFILE_CONTROLS AS T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @profil_id)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Y_LOC, X_"& _
|
||||
"LOC"
|
||||
Me._commandCollection(10).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(10).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(10).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@profil_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
@ -21776,7 +21863,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
command.Parameters(2).Value = CType(CTRL_TYPE,String)
|
||||
End If
|
||||
If (CTRL_TEXT Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("CTRL_TEXT")
|
||||
command.Parameters(3).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
command.Parameters(3).Value = CType(CTRL_TEXT,String)
|
||||
End If
|
||||
|
||||
@ -1256,7 +1256,7 @@ SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADD
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID,
|
||||
SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES,
|
||||
REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL2, SQL_ENABLE, SET_CONTROL_DATA, SQL_ENABLE_ON_LOAD
|
||||
REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL2, SQL_ENABLE, SET_CONTROL_DATA, SQL_ENABLE_ON_LOAD, SQL_ENABLE_ON_LOAD_CONID, CONTROL_ACTIVE
|
||||
FROM TBPM_PROFILE_CONTROLS
|
||||
WHERE (GUID = @guid)
|
||||
ORDER BY Y_LOC, X_LOC</CommandText>
|
||||
@ -1352,6 +1352,8 @@ SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADD
|
||||
<Mapping SourceColumn="SQL_ENABLE" DataSetColumn="SQL_ENABLE" />
|
||||
<Mapping SourceColumn="SET_CONTROL_DATA" DataSetColumn="SET_CONTROL_DATA" />
|
||||
<Mapping SourceColumn="SQL_ENABLE_ON_LOAD" DataSetColumn="SQL_ENABLE_ON_LOAD" />
|
||||
<Mapping SourceColumn="SQL_ENABLE_ON_LOAD_CONID" DataSetColumn="SQL_ENABLE_ON_LOAD_CONID" />
|
||||
<Mapping SourceColumn="CONTROL_ACTIVE" DataSetColumn="CONTROL_ACTIVE" />
|
||||
</Mappings>
|
||||
<Sources>
|
||||
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdControlExists" Modifier="Public" Name="cmdControlExists" QueryType="Scalar" ScalarCallRetval="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="cmdControlExists">
|
||||
@ -1449,7 +1451,7 @@ VALUES (@PROFIL_ID,@NAME,@CTRL_TYPE,@CTRL_TEXT,@X_LOC,@Y_LOC,@ADDED_WHO,@
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="PROFIL_ID" ColumnName="PROFIL_ID" DataSourceName="DD_DMS.dbo.TBPM_PROFILE_CONTROLS" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_DMS.dbo.TBPM_PROFILE_CONTROLS" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="CTRL_TYPE" ColumnName="CTRL_TYPE" DataSourceName="DD_DMS.dbo.TBPM_PROFILE_CONTROLS" DataTypeServer="varchar(10)" DbType="AnsiString" Direction="Input" ParameterName="@CTRL_TYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="10" SourceColumn="CTRL_TYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="CTRL_TEXT" ColumnName="CTRL_TEXT" DataSourceName="DD_DMS.dbo.TBPM_PROFILE_CONTROLS" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CTRL_TEXT" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CTRL_TEXT" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="CTRL_TEXT" ColumnName="CTRL_TEXT" DataSourceName="DD_DMS.dbo.TBPM_PROFILE_CONTROLS" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CTRL_TEXT" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CTRL_TEXT" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="X_LOC" ColumnName="X_LOC" DataSourceName="DD_DMS.dbo.TBPM_PROFILE_CONTROLS" DataTypeServer="float" DbType="Double" Direction="Input" ParameterName="@X_LOC" Precision="0" ProviderType="Float" Scale="0" Size="8" SourceColumn="X_LOC" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="Y_LOC" ColumnName="Y_LOC" DataSourceName="DD_DMS.dbo.TBPM_PROFILE_CONTROLS" DataTypeServer="float" DbType="Double" Direction="Input" ParameterName="@Y_LOC" Precision="0" ProviderType="Float" Scale="0" Size="8" SourceColumn="Y_LOC" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_DMS.dbo.TBPM_PROFILE_CONTROLS" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
@ -1479,7 +1481,7 @@ WHERE (GUID = @Original_GUID);</CommandText>
|
||||
<CommandText>SELECT dbo.FNPM_LANGUAGE_CONTROL_TEXT(NAME, @USER_LANGUAGE, CTRL_TYPE, CTRL_TEXT) AS CTRL_CAPTION_LANG, ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, CHOICE_LIST, CONNECTION_ID,
|
||||
CTRL_TEXT, CTRL_TYPE, DEFAULT_VALUE, FONT_COLOR, FONT_FAMILY, FONT_SIZE, FONT_STYLE, GUID, HEIGHT, INDEX_NAME, LOAD_IDX_VALUE, MULTISELECT, NAME, PROFIL_ID, READ_ONLY, REGEX_MATCH,
|
||||
REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, SQL_UEBERPRUEFUNG, TYP, VALIDATION, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, WIDTH, X_LOC, Y_LOC, IMAGE_CONTROL, SQL2, SQL_ENABLE,
|
||||
SET_CONTROL_DATA, SQL_ENABLE_ON_LOAD
|
||||
SET_CONTROL_DATA, SQL_ENABLE_ON_LOAD, SQL_ENABLE_ON_LOAD_CONID, CONTROL_ACTIVE
|
||||
FROM TBPM_PROFILE_CONTROLS AS T
|
||||
WHERE (PROFIL_ID = @profil_id)
|
||||
ORDER BY Y_LOC, X_LOC</CommandText>
|
||||
@ -2053,7 +2055,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
<xs:element name="DD_DMSLiteDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="True" msprop:Generator_DataSetName="DD_DMSLiteDataSet" msprop:Generator_UserDSName="DD_DMSLiteDataSet">
|
||||
<xs:complexType>
|
||||
<xs:choice minOccurs="0" maxOccurs="unbounded">
|
||||
<xs:element name="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_TableClassName="TBPM_PROFILE_FINAL_INDEXINGDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowChangedName="TBPM_PROFILE_FINAL_INDEXINGRowChanged" msprop:Generator_TablePropName="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowDeletingName="TBPM_PROFILE_FINAL_INDEXINGRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_FINAL_INDEXINGRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_FINAL_INDEXINGRowDeleted" msprop:Generator_RowClassName="TBPM_PROFILE_FINAL_INDEXINGRow" msprop:Generator_UserTableName="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowEvArgName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent">
|
||||
<xs:element name="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_TableClassName="TBPM_PROFILE_FINAL_INDEXINGDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_FINAL_INDEXING" msprop:Generator_TablePropName="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowDeletingName="TBPM_PROFILE_FINAL_INDEXINGRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_FINAL_INDEXINGRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_FINAL_INDEXINGRowDeleted" msprop:Generator_UserTableName="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowChangedName="TBPM_PROFILE_FINAL_INDEXINGRowChanged" msprop:Generator_RowEvArgName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent" msprop:Generator_RowClassName="TBPM_PROFILE_FINAL_INDEXINGRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="INDEXNAME" msprop:Generator_ColumnVarNameInTable="columnINDEXNAME" msprop:Generator_ColumnPropNameInRow="INDEXNAME" msprop:Generator_ColumnPropNameInTable="INDEXNAMEColumn" msprop:Generator_UserColumnName="INDEXNAME">
|
||||
@ -2113,7 +2115,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBPM_KONFIGURATION" msprop:Generator_TableClassName="TBPM_KONFIGURATIONDataTable" msprop:Generator_TableVarName="tableTBPM_KONFIGURATION" msprop:Generator_RowChangedName="TBPM_KONFIGURATIONRowChanged" msprop:Generator_TablePropName="TBPM_KONFIGURATION" msprop:Generator_RowDeletingName="TBPM_KONFIGURATIONRowDeleting" msprop:Generator_RowChangingName="TBPM_KONFIGURATIONRowChanging" msprop:Generator_RowEvHandlerName="TBPM_KONFIGURATIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_KONFIGURATIONRowDeleted" msprop:Generator_RowClassName="TBPM_KONFIGURATIONRow" msprop:Generator_UserTableName="TBPM_KONFIGURATION" msprop:Generator_RowEvArgName="TBPM_KONFIGURATIONRowChangeEvent">
|
||||
<xs:element name="TBPM_KONFIGURATION" msprop:Generator_TableClassName="TBPM_KONFIGURATIONDataTable" msprop:Generator_TableVarName="tableTBPM_KONFIGURATION" msprop:Generator_TablePropName="TBPM_KONFIGURATION" msprop:Generator_RowDeletingName="TBPM_KONFIGURATIONRowDeleting" msprop:Generator_RowChangingName="TBPM_KONFIGURATIONRowChanging" msprop:Generator_RowEvHandlerName="TBPM_KONFIGURATIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_KONFIGURATIONRowDeleted" msprop:Generator_UserTableName="TBPM_KONFIGURATION" msprop:Generator_RowChangedName="TBPM_KONFIGURATIONRowChanged" msprop:Generator_RowEvArgName="TBPM_KONFIGURATIONRowChangeEvent" msprop:Generator_RowClassName="TBPM_KONFIGURATIONRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:unsignedByte" />
|
||||
@ -2209,7 +2211,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBDD_USER" msprop:Generator_TableClassName="TBDD_USERDataTable" msprop:Generator_TableVarName="tableTBDD_USER" msprop:Generator_RowChangedName="TBDD_USERRowChanged" msprop:Generator_TablePropName="TBDD_USER" msprop:Generator_RowDeletingName="TBDD_USERRowDeleting" msprop:Generator_RowChangingName="TBDD_USERRowChanging" msprop:Generator_RowEvHandlerName="TBDD_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_USERRowDeleted" msprop:Generator_RowClassName="TBDD_USERRow" msprop:Generator_UserTableName="TBDD_USER" msprop:Generator_RowEvArgName="TBDD_USERRowChangeEvent">
|
||||
<xs:element name="TBDD_USER" msprop:Generator_TableClassName="TBDD_USERDataTable" msprop:Generator_TableVarName="tableTBDD_USER" msprop:Generator_TablePropName="TBDD_USER" msprop:Generator_RowDeletingName="TBDD_USERRowDeleting" msprop:Generator_RowChangingName="TBDD_USERRowChanging" msprop:Generator_RowEvHandlerName="TBDD_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_USERRowDeleted" msprop:Generator_UserTableName="TBDD_USER" msprop:Generator_RowChangedName="TBDD_USERRowChanged" msprop:Generator_RowEvArgName="TBDD_USERRowChangeEvent" msprop:Generator_RowClassName="TBDD_USERRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
|
||||
@ -2274,7 +2276,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBPM_TYPE" msprop:Generator_TableClassName="TBPM_TYPEDataTable" msprop:Generator_TableVarName="tableTBPM_TYPE" msprop:Generator_RowChangedName="TBPM_TYPERowChanged" msprop:Generator_TablePropName="TBPM_TYPE" msprop:Generator_RowDeletingName="TBPM_TYPERowDeleting" msprop:Generator_RowChangingName="TBPM_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBPM_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_TYPERowDeleted" msprop:Generator_RowClassName="TBPM_TYPERow" msprop:Generator_UserTableName="TBPM_TYPE" msprop:Generator_RowEvArgName="TBPM_TYPERowChangeEvent">
|
||||
<xs:element name="TBPM_TYPE" msprop:Generator_TableClassName="TBPM_TYPEDataTable" msprop:Generator_TableVarName="tableTBPM_TYPE" msprop:Generator_TablePropName="TBPM_TYPE" msprop:Generator_RowDeletingName="TBPM_TYPERowDeleting" msprop:Generator_RowChangingName="TBPM_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBPM_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_TYPERowDeleted" msprop:Generator_UserTableName="TBPM_TYPE" msprop:Generator_RowChangedName="TBPM_TYPERowChanged" msprop:Generator_RowEvArgName="TBPM_TYPERowChangeEvent" msprop:Generator_RowClassName="TBPM_TYPERow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
|
||||
@ -2304,7 +2306,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBPM_ERROR_LOG" msprop:Generator_TableClassName="TBPM_ERROR_LOGDataTable" msprop:Generator_TableVarName="tableTBPM_ERROR_LOG" msprop:Generator_RowChangedName="TBPM_ERROR_LOGRowChanged" msprop:Generator_TablePropName="TBPM_ERROR_LOG" msprop:Generator_RowDeletingName="TBPM_ERROR_LOGRowDeleting" msprop:Generator_RowChangingName="TBPM_ERROR_LOGRowChanging" msprop:Generator_RowEvHandlerName="TBPM_ERROR_LOGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_ERROR_LOGRowDeleted" msprop:Generator_RowClassName="TBPM_ERROR_LOGRow" msprop:Generator_UserTableName="TBPM_ERROR_LOG" msprop:Generator_RowEvArgName="TBPM_ERROR_LOGRowChangeEvent">
|
||||
<xs:element name="TBPM_ERROR_LOG" msprop:Generator_TableClassName="TBPM_ERROR_LOGDataTable" msprop:Generator_TableVarName="tableTBPM_ERROR_LOG" msprop:Generator_TablePropName="TBPM_ERROR_LOG" msprop:Generator_RowDeletingName="TBPM_ERROR_LOGRowDeleting" msprop:Generator_RowChangingName="TBPM_ERROR_LOGRowChanging" msprop:Generator_RowEvHandlerName="TBPM_ERROR_LOGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_ERROR_LOGRowDeleted" msprop:Generator_UserTableName="TBPM_ERROR_LOG" msprop:Generator_RowChangedName="TBPM_ERROR_LOGRowChanged" msprop:Generator_RowEvArgName="TBPM_ERROR_LOGRowChangeEvent" msprop:Generator_RowClassName="TBPM_ERROR_LOGRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
|
||||
@ -2327,7 +2329,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_RowClassName="TBDD_CONNECTIONRow" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent">
|
||||
<xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent" msprop:Generator_RowClassName="TBDD_CONNECTIONRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
|
||||
@ -2401,7 +2403,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBPROFILE_USER" msprop:Generator_TableClassName="TBPROFILE_USERDataTable" msprop:Generator_TableVarName="tableTBPROFILE_USER" msprop:Generator_RowChangedName="TBPROFILE_USERRowChanged" msprop:Generator_TablePropName="TBPROFILE_USER" msprop:Generator_RowDeletingName="TBPROFILE_USERRowDeleting" msprop:Generator_RowChangingName="TBPROFILE_USERRowChanging" msprop:Generator_RowEvHandlerName="TBPROFILE_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPROFILE_USERRowDeleted" msprop:Generator_RowClassName="TBPROFILE_USERRow" msprop:Generator_UserTableName="TBPROFILE_USER" msprop:Generator_RowEvArgName="TBPROFILE_USERRowChangeEvent">
|
||||
<xs:element name="TBPROFILE_USER" msprop:Generator_TableClassName="TBPROFILE_USERDataTable" msprop:Generator_TableVarName="tableTBPROFILE_USER" msprop:Generator_TablePropName="TBPROFILE_USER" msprop:Generator_RowDeletingName="TBPROFILE_USERRowDeleting" msprop:Generator_RowChangingName="TBPROFILE_USERRowChanging" msprop:Generator_RowEvHandlerName="TBPROFILE_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPROFILE_USERRowDeleted" msprop:Generator_UserTableName="TBPROFILE_USER" msprop:Generator_RowChangedName="TBPROFILE_USERRowChanged" msprop:Generator_RowEvArgName="TBPROFILE_USERRowChangeEvent" msprop:Generator_RowClassName="TBPROFILE_USERRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
|
||||
@ -2450,7 +2452,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBPM_PROFILE_FILES" msprop:Generator_TableClassName="TBPM_PROFILE_FILESDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_FILES" msprop:Generator_RowChangedName="TBPM_PROFILE_FILESRowChanged" msprop:Generator_TablePropName="TBPM_PROFILE_FILES" msprop:Generator_RowDeletingName="TBPM_PROFILE_FILESRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_FILESRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_FILESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_FILESRowDeleted" msprop:Generator_RowClassName="TBPM_PROFILE_FILESRow" msprop:Generator_UserTableName="TBPM_PROFILE_FILES" msprop:Generator_RowEvArgName="TBPM_PROFILE_FILESRowChangeEvent">
|
||||
<xs:element name="TBPM_PROFILE_FILES" msprop:Generator_TableClassName="TBPM_PROFILE_FILESDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_FILES" msprop:Generator_TablePropName="TBPM_PROFILE_FILES" msprop:Generator_RowDeletingName="TBPM_PROFILE_FILESRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_FILESRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_FILESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_FILESRowDeleted" msprop:Generator_UserTableName="TBPM_PROFILE_FILES" msprop:Generator_RowChangedName="TBPM_PROFILE_FILESRowChanged" msprop:Generator_RowEvArgName="TBPM_PROFILE_FILESRowChangeEvent" msprop:Generator_RowClassName="TBPM_PROFILE_FILESRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
|
||||
@ -2465,7 +2467,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBPM_PROFILE" msprop:Generator_TableClassName="TBPM_PROFILEDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE" msprop:Generator_RowChangedName="TBPM_PROFILERowChanged" msprop:Generator_TablePropName="TBPM_PROFILE" msprop:Generator_RowDeletingName="TBPM_PROFILERowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILERowDeleted" msprop:Generator_RowClassName="TBPM_PROFILERow" msprop:Generator_UserTableName="TBPM_PROFILE" msprop:Generator_RowEvArgName="TBPM_PROFILERowChangeEvent">
|
||||
<xs:element name="TBPM_PROFILE" msprop:Generator_TableClassName="TBPM_PROFILEDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE" msprop:Generator_TablePropName="TBPM_PROFILE" msprop:Generator_RowDeletingName="TBPM_PROFILERowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILERowDeleted" msprop:Generator_UserTableName="TBPM_PROFILE" msprop:Generator_RowChangedName="TBPM_PROFILERowChanged" msprop:Generator_RowEvArgName="TBPM_PROFILERowChangeEvent" msprop:Generator_RowClassName="TBPM_PROFILERow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
|
||||
@ -2587,7 +2589,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBWH_CONNECTION" msprop:Generator_TableClassName="TBWH_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBWH_CONNECTION" msprop:Generator_TablePropName="TBWH_CONNECTION" msprop:Generator_RowDeletingName="TBWH_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBWH_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBWH_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_CONNECTIONRowDeleted" msprop:Generator_UserTableName="TBWH_CONNECTION" msprop:Generator_RowChangedName="TBWH_CONNECTIONRowChanged" msprop:Generator_RowEvArgName="TBWH_CONNECTIONRowChangeEvent" msprop:Generator_RowClassName="TBWH_CONNECTIONRow">
|
||||
<xs:element name="TBWH_CONNECTION" msprop:Generator_TableClassName="TBWH_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBWH_CONNECTION" msprop:Generator_RowChangedName="TBWH_CONNECTIONRowChanged" msprop:Generator_TablePropName="TBWH_CONNECTION" msprop:Generator_RowDeletingName="TBWH_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBWH_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBWH_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_CONNECTIONRowDeleted" msprop:Generator_RowClassName="TBWH_CONNECTIONRow" msprop:Generator_UserTableName="TBWH_CONNECTION" msprop:Generator_RowEvArgName="TBWH_CONNECTIONRowChangeEvent">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
|
||||
@ -2660,7 +2662,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_TableClassName="TBWH_CHECK_PROFILE_CONTROLSDataTable" msprop:Generator_TableVarName="tableTBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_TablePropName="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowDeletingName="TBWH_CHECK_PROFILE_CONTROLSRowDeleting" msprop:Generator_RowChangingName="TBWH_CHECK_PROFILE_CONTROLSRowChanging" msprop:Generator_RowEvHandlerName="TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_CHECK_PROFILE_CONTROLSRowDeleted" msprop:Generator_UserTableName="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowChangedName="TBWH_CHECK_PROFILE_CONTROLSRowChanged" msprop:Generator_RowEvArgName="TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent" msprop:Generator_RowClassName="TBWH_CHECK_PROFILE_CONTROLSRow">
|
||||
<xs:element name="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_TableClassName="TBWH_CHECK_PROFILE_CONTROLSDataTable" msprop:Generator_TableVarName="tableTBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowChangedName="TBWH_CHECK_PROFILE_CONTROLSRowChanged" msprop:Generator_TablePropName="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowDeletingName="TBWH_CHECK_PROFILE_CONTROLSRowDeleting" msprop:Generator_RowChangingName="TBWH_CHECK_PROFILE_CONTROLSRowChanging" msprop:Generator_RowEvHandlerName="TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_CHECK_PROFILE_CONTROLSRowDeleted" msprop:Generator_RowClassName="TBWH_CHECK_PROFILE_CONTROLSRow" msprop:Generator_UserTableName="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowEvArgName="TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
|
||||
@ -2711,7 +2713,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBPM_PROFILE_CONTROLS" msprop:Generator_TableClassName="TBPM_PROFILE_CONTROLSDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_CONTROLS" msprop:Generator_TablePropName="TBPM_PROFILE_CONTROLS" msprop:Generator_RowDeletingName="TBPM_PROFILE_CONTROLSRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_CONTROLSRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_CONTROLSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_CONTROLSRowDeleted" msprop:Generator_UserTableName="TBPM_PROFILE_CONTROLS" msprop:Generator_RowChangedName="TBPM_PROFILE_CONTROLSRowChanged" msprop:Generator_RowEvArgName="TBPM_PROFILE_CONTROLSRowChangeEvent" msprop:Generator_RowClassName="TBPM_PROFILE_CONTROLSRow">
|
||||
<xs:element name="TBPM_PROFILE_CONTROLS" msprop:Generator_TableClassName="TBPM_PROFILE_CONTROLSDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_CONTROLS" msprop:Generator_RowChangedName="TBPM_PROFILE_CONTROLSRowChanged" msprop:Generator_TablePropName="TBPM_PROFILE_CONTROLS" msprop:Generator_RowDeletingName="TBPM_PROFILE_CONTROLSRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_CONTROLSRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_CONTROLSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_CONTROLSRowDeleted" msprop:Generator_RowClassName="TBPM_PROFILE_CONTROLSRow" msprop:Generator_UserTableName="TBPM_PROFILE_CONTROLS" msprop:Generator_RowEvArgName="TBPM_PROFILE_CONTROLSRowChangeEvent">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
|
||||
@ -2730,7 +2732,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="CTRL_TEXT" msprop:Generator_ColumnVarNameInTable="columnCTRL_TEXT" msprop:Generator_ColumnPropNameInRow="CTRL_TEXT" msprop:Generator_ColumnPropNameInTable="CTRL_TEXTColumn" msprop:Generator_UserColumnName="CTRL_TEXT">
|
||||
<xs:element name="CTRL_TEXT" msprop:Generator_ColumnVarNameInTable="columnCTRL_TEXT" msprop:Generator_ColumnPropNameInRow="CTRL_TEXT" msprop:Generator_ColumnPropNameInTable="CTRL_TEXTColumn" msprop:Generator_UserColumnName="CTRL_TEXT" minOccurs="0">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:maxLength value="100" />
|
||||
@ -2853,10 +2855,12 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="SQL_ENABLE_ON_LOAD_CONID" msprop:Generator_ColumnVarNameInTable="columnSQL_ENABLE_ON_LOAD_CONID" msprop:Generator_ColumnPropNameInRow="SQL_ENABLE_ON_LOAD_CONID" msprop:Generator_ColumnPropNameInTable="SQL_ENABLE_ON_LOAD_CONIDColumn" msprop:Generator_UserColumnName="SQL_ENABLE_ON_LOAD_CONID" type="xs:unsignedByte" minOccurs="0" />
|
||||
<xs:element name="CONTROL_ACTIVE" msprop:Generator_ColumnVarNameInTable="columnCONTROL_ACTIVE" msprop:Generator_ColumnPropNameInRow="CONTROL_ACTIVE" msprop:Generator_ColumnPropNameInTable="CONTROL_ACTIVEColumn" msprop:Generator_UserColumnName="CONTROL_ACTIVE" type="xs:boolean" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBPM_CONTROL_TABLE" msprop:Generator_TableClassName="TBPM_CONTROL_TABLEDataTable" msprop:Generator_TableVarName="tableTBPM_CONTROL_TABLE" msprop:Generator_TablePropName="TBPM_CONTROL_TABLE" msprop:Generator_RowDeletingName="TBPM_CONTROL_TABLERowDeleting" msprop:Generator_RowChangingName="TBPM_CONTROL_TABLERowChanging" msprop:Generator_RowEvHandlerName="TBPM_CONTROL_TABLERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_CONTROL_TABLERowDeleted" msprop:Generator_UserTableName="TBPM_CONTROL_TABLE" msprop:Generator_RowChangedName="TBPM_CONTROL_TABLERowChanged" msprop:Generator_RowEvArgName="TBPM_CONTROL_TABLERowChangeEvent" msprop:Generator_RowClassName="TBPM_CONTROL_TABLERow">
|
||||
<xs:element name="TBPM_CONTROL_TABLE" msprop:Generator_TableClassName="TBPM_CONTROL_TABLEDataTable" msprop:Generator_TableVarName="tableTBPM_CONTROL_TABLE" msprop:Generator_RowChangedName="TBPM_CONTROL_TABLERowChanged" msprop:Generator_TablePropName="TBPM_CONTROL_TABLE" msprop:Generator_RowDeletingName="TBPM_CONTROL_TABLERowDeleting" msprop:Generator_RowChangingName="TBPM_CONTROL_TABLERowChanging" msprop:Generator_RowEvHandlerName="TBPM_CONTROL_TABLERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_CONTROL_TABLERowDeleted" msprop:Generator_RowClassName="TBPM_CONTROL_TABLERow" msprop:Generator_UserTableName="TBPM_CONTROL_TABLE" msprop:Generator_RowEvArgName="TBPM_CONTROL_TABLERowChangeEvent">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
|
||||
@ -2934,7 +2938,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBDD_GROUPS" msprop:Generator_TableClassName="TBDD_GROUPSDataTable" msprop:Generator_TableVarName="tableTBDD_GROUPS" msprop:Generator_RowChangedName="TBDD_GROUPSRowChanged" msprop:Generator_TablePropName="TBDD_GROUPS" msprop:Generator_RowDeletingName="TBDD_GROUPSRowDeleting" msprop:Generator_RowChangingName="TBDD_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="TBDD_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_GROUPSRowDeleted" msprop:Generator_RowClassName="TBDD_GROUPSRow" msprop:Generator_UserTableName="TBDD_GROUPS" msprop:Generator_RowEvArgName="TBDD_GROUPSRowChangeEvent">
|
||||
<xs:element name="TBDD_GROUPS" msprop:Generator_TableClassName="TBDD_GROUPSDataTable" msprop:Generator_TableVarName="tableTBDD_GROUPS" msprop:Generator_TablePropName="TBDD_GROUPS" msprop:Generator_RowDeletingName="TBDD_GROUPSRowDeleting" msprop:Generator_RowChangingName="TBDD_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="TBDD_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_GROUPSRowDeleted" msprop:Generator_UserTableName="TBDD_GROUPS" msprop:Generator_RowChangedName="TBDD_GROUPSRowChanged" msprop:Generator_RowEvArgName="TBDD_GROUPSRowChangeEvent" msprop:Generator_RowClassName="TBDD_GROUPSRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
|
||||
@ -2975,7 +2979,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBPROFILE_GROUP" msprop:Generator_TableClassName="TBPROFILE_GROUPDataTable" msprop:Generator_TableVarName="tableTBPROFILE_GROUP" msprop:Generator_TablePropName="TBPROFILE_GROUP" msprop:Generator_RowDeletingName="TBPROFILE_GROUPRowDeleting" msprop:Generator_RowChangingName="TBPROFILE_GROUPRowChanging" msprop:Generator_RowEvHandlerName="TBPROFILE_GROUPRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPROFILE_GROUPRowDeleted" msprop:Generator_UserTableName="TBPROFILE_GROUP" msprop:Generator_RowChangedName="TBPROFILE_GROUPRowChanged" msprop:Generator_RowEvArgName="TBPROFILE_GROUPRowChangeEvent" msprop:Generator_RowClassName="TBPROFILE_GROUPRow">
|
||||
<xs:element name="TBPROFILE_GROUP" msprop:Generator_TableClassName="TBPROFILE_GROUPDataTable" msprop:Generator_TableVarName="tableTBPROFILE_GROUP" msprop:Generator_RowChangedName="TBPROFILE_GROUPRowChanged" msprop:Generator_TablePropName="TBPROFILE_GROUP" msprop:Generator_RowDeletingName="TBPROFILE_GROUPRowDeleting" msprop:Generator_RowChangingName="TBPROFILE_GROUPRowChanging" msprop:Generator_RowEvHandlerName="TBPROFILE_GROUPRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPROFILE_GROUPRowDeleted" msprop:Generator_RowClassName="TBPROFILE_GROUPRow" msprop:Generator_UserTableName="TBPROFILE_GROUP" msprop:Generator_RowEvArgName="TBPROFILE_GROUPRowChangeEvent">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
|
||||
@ -3013,7 +3017,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="FNPM_GET_FREE_USER_FOR_PROFILE" msprop:Generator_TableClassName="FNPM_GET_FREE_USER_FOR_PROFILEDataTable" msprop:Generator_TableVarName="tableFNPM_GET_FREE_USER_FOR_PROFILE" msprop:Generator_TablePropName="FNPM_GET_FREE_USER_FOR_PROFILE" msprop:Generator_RowDeletingName="FNPM_GET_FREE_USER_FOR_PROFILERowDeleting" msprop:Generator_RowChangingName="FNPM_GET_FREE_USER_FOR_PROFILERowChanging" msprop:Generator_RowEvHandlerName="FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="FNPM_GET_FREE_USER_FOR_PROFILERowDeleted" msprop:Generator_UserTableName="FNPM_GET_FREE_USER_FOR_PROFILE" msprop:Generator_RowChangedName="FNPM_GET_FREE_USER_FOR_PROFILERowChanged" msprop:Generator_RowEvArgName="FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent" msprop:Generator_RowClassName="FNPM_GET_FREE_USER_FOR_PROFILERow">
|
||||
<xs:element name="FNPM_GET_FREE_USER_FOR_PROFILE" msprop:Generator_TableClassName="FNPM_GET_FREE_USER_FOR_PROFILEDataTable" msprop:Generator_TableVarName="tableFNPM_GET_FREE_USER_FOR_PROFILE" msprop:Generator_RowChangedName="FNPM_GET_FREE_USER_FOR_PROFILERowChanged" msprop:Generator_TablePropName="FNPM_GET_FREE_USER_FOR_PROFILE" msprop:Generator_RowDeletingName="FNPM_GET_FREE_USER_FOR_PROFILERowDeleting" msprop:Generator_RowChangingName="FNPM_GET_FREE_USER_FOR_PROFILERowChanging" msprop:Generator_RowEvHandlerName="FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="FNPM_GET_FREE_USER_FOR_PROFILERowDeleted" msprop:Generator_RowClassName="FNPM_GET_FREE_USER_FOR_PROFILERow" msprop:Generator_UserTableName="FNPM_GET_FREE_USER_FOR_PROFILE" msprop:Generator_RowEvArgName="FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="SequentialOrder" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnSequentialOrder" msprop:Generator_ColumnPropNameInRow="SequentialOrder" msprop:Generator_ColumnPropNameInTable="SequentialOrderColumn" msprop:Generator_UserColumnName="SequentialOrder" type="xs:int" />
|
||||
@ -3070,7 +3074,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBDD_EMAIL_TEMPLATE" msprop:Generator_TableClassName="TBDD_EMAIL_TEMPLATEDataTable" msprop:Generator_TableVarName="tableTBDD_EMAIL_TEMPLATE" msprop:Generator_RowChangedName="TBDD_EMAIL_TEMPLATERowChanged" msprop:Generator_TablePropName="TBDD_EMAIL_TEMPLATE" msprop:Generator_RowDeletingName="TBDD_EMAIL_TEMPLATERowDeleting" msprop:Generator_RowChangingName="TBDD_EMAIL_TEMPLATERowChanging" msprop:Generator_RowEvHandlerName="TBDD_EMAIL_TEMPLATERowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_EMAIL_TEMPLATERowDeleted" msprop:Generator_RowClassName="TBDD_EMAIL_TEMPLATERow" msprop:Generator_UserTableName="TBDD_EMAIL_TEMPLATE" msprop:Generator_RowEvArgName="TBDD_EMAIL_TEMPLATERowChangeEvent">
|
||||
<xs:element name="TBDD_EMAIL_TEMPLATE" msprop:Generator_TableClassName="TBDD_EMAIL_TEMPLATEDataTable" msprop:Generator_TableVarName="tableTBDD_EMAIL_TEMPLATE" msprop:Generator_TablePropName="TBDD_EMAIL_TEMPLATE" msprop:Generator_RowDeletingName="TBDD_EMAIL_TEMPLATERowDeleting" msprop:Generator_RowChangingName="TBDD_EMAIL_TEMPLATERowChanging" msprop:Generator_RowEvHandlerName="TBDD_EMAIL_TEMPLATERowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_EMAIL_TEMPLATERowDeleted" msprop:Generator_UserTableName="TBDD_EMAIL_TEMPLATE" msprop:Generator_RowChangedName="TBDD_EMAIL_TEMPLATERowChanged" msprop:Generator_RowEvArgName="TBDD_EMAIL_TEMPLATERowChangeEvent" msprop:Generator_RowClassName="TBDD_EMAIL_TEMPLATERow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
|
||||
@ -3128,7 +3132,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBDD_GUI_LANGUAGE_PHRASE" msprop:Generator_TableClassName="TBDD_GUI_LANGUAGE_PHRASEDataTable" msprop:Generator_TableVarName="tableTBDD_GUI_LANGUAGE_PHRASE" msprop:Generator_TablePropName="TBDD_GUI_LANGUAGE_PHRASE" msprop:Generator_RowDeletingName="TBDD_GUI_LANGUAGE_PHRASERowDeleting" msprop:Generator_RowChangingName="TBDD_GUI_LANGUAGE_PHRASERowChanging" msprop:Generator_RowEvHandlerName="TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_GUI_LANGUAGE_PHRASERowDeleted" msprop:Generator_UserTableName="TBDD_GUI_LANGUAGE_PHRASE" msprop:Generator_RowChangedName="TBDD_GUI_LANGUAGE_PHRASERowChanged" msprop:Generator_RowEvArgName="TBDD_GUI_LANGUAGE_PHRASERowChangeEvent" msprop:Generator_RowClassName="TBDD_GUI_LANGUAGE_PHRASERow">
|
||||
<xs:element name="TBDD_GUI_LANGUAGE_PHRASE" msprop:Generator_TableClassName="TBDD_GUI_LANGUAGE_PHRASEDataTable" msprop:Generator_TableVarName="tableTBDD_GUI_LANGUAGE_PHRASE" msprop:Generator_RowChangedName="TBDD_GUI_LANGUAGE_PHRASERowChanged" msprop:Generator_TablePropName="TBDD_GUI_LANGUAGE_PHRASE" msprop:Generator_RowDeletingName="TBDD_GUI_LANGUAGE_PHRASERowDeleting" msprop:Generator_RowChangingName="TBDD_GUI_LANGUAGE_PHRASERowChanging" msprop:Generator_RowEvHandlerName="TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_GUI_LANGUAGE_PHRASERowDeleted" msprop:Generator_RowClassName="TBDD_GUI_LANGUAGE_PHRASERow" msprop:Generator_UserTableName="TBDD_GUI_LANGUAGE_PHRASE" msprop:Generator_RowEvArgName="TBDD_GUI_LANGUAGE_PHRASERowChangeEvent">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
|
||||
@ -3229,7 +3233,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="VWPM_CHART_INVOICE_MONITOR" msprop:Generator_TableClassName="VWPM_CHART_INVOICE_MONITORDataTable" msprop:Generator_TableVarName="tableVWPM_CHART_INVOICE_MONITOR" msprop:Generator_RowChangedName="VWPM_CHART_INVOICE_MONITORRowChanged" msprop:Generator_TablePropName="VWPM_CHART_INVOICE_MONITOR" msprop:Generator_RowDeletingName="VWPM_CHART_INVOICE_MONITORRowDeleting" msprop:Generator_RowChangingName="VWPM_CHART_INVOICE_MONITORRowChanging" msprop:Generator_RowEvHandlerName="VWPM_CHART_INVOICE_MONITORRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_CHART_INVOICE_MONITORRowDeleted" msprop:Generator_RowClassName="VWPM_CHART_INVOICE_MONITORRow" msprop:Generator_UserTableName="VWPM_CHART_INVOICE_MONITOR" msprop:Generator_RowEvArgName="VWPM_CHART_INVOICE_MONITORRowChangeEvent">
|
||||
<xs:element name="VWPM_CHART_INVOICE_MONITOR" msprop:Generator_TableClassName="VWPM_CHART_INVOICE_MONITORDataTable" msprop:Generator_TableVarName="tableVWPM_CHART_INVOICE_MONITOR" msprop:Generator_TablePropName="VWPM_CHART_INVOICE_MONITOR" msprop:Generator_RowDeletingName="VWPM_CHART_INVOICE_MONITORRowDeleting" msprop:Generator_RowChangingName="VWPM_CHART_INVOICE_MONITORRowChanging" msprop:Generator_RowEvHandlerName="VWPM_CHART_INVOICE_MONITORRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_CHART_INVOICE_MONITORRowDeleted" msprop:Generator_UserTableName="VWPM_CHART_INVOICE_MONITOR" msprop:Generator_RowChangedName="VWPM_CHART_INVOICE_MONITORRowChanged" msprop:Generator_RowEvArgName="VWPM_CHART_INVOICE_MONITORRowChangeEvent" msprop:Generator_RowClassName="VWPM_CHART_INVOICE_MONITORRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Anzahl_AI" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnAnzahl_AI" msprop:Generator_ColumnPropNameInRow="Anzahl_AI" msprop:Generator_ColumnPropNameInTable="Anzahl_AIColumn" msprop:Generator_UserColumnName="Anzahl_AI" type="xs:int" minOccurs="0" />
|
||||
@ -3282,7 +3286,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="VWPM_CHART_INVOICE_MONITOR_SERIES" msprop:Generator_TableClassName="VWPM_CHART_INVOICE_MONITOR_SERIESDataTable" msprop:Generator_TableVarName="tableVWPM_CHART_INVOICE_MONITOR_SERIES" msprop:Generator_TablePropName="VWPM_CHART_INVOICE_MONITOR_SERIES" msprop:Generator_RowDeletingName="VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleting" msprop:Generator_RowChangingName="VWPM_CHART_INVOICE_MONITOR_SERIESRowChanging" msprop:Generator_RowEvHandlerName="VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleted" msprop:Generator_UserTableName="VWPM_CHART_INVOICE_MONITOR_SERIES" msprop:Generator_RowChangedName="VWPM_CHART_INVOICE_MONITOR_SERIESRowChanged" msprop:Generator_RowEvArgName="VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent" msprop:Generator_RowClassName="VWPM_CHART_INVOICE_MONITOR_SERIESRow">
|
||||
<xs:element name="VWPM_CHART_INVOICE_MONITOR_SERIES" msprop:Generator_TableClassName="VWPM_CHART_INVOICE_MONITOR_SERIESDataTable" msprop:Generator_TableVarName="tableVWPM_CHART_INVOICE_MONITOR_SERIES" msprop:Generator_RowChangedName="VWPM_CHART_INVOICE_MONITOR_SERIESRowChanged" msprop:Generator_TablePropName="VWPM_CHART_INVOICE_MONITOR_SERIES" msprop:Generator_RowDeletingName="VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleting" msprop:Generator_RowChangingName="VWPM_CHART_INVOICE_MONITOR_SERIESRowChanging" msprop:Generator_RowEvHandlerName="VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleted" msprop:Generator_RowClassName="VWPM_CHART_INVOICE_MONITOR_SERIESRow" msprop:Generator_UserTableName="VWPM_CHART_INVOICE_MONITOR_SERIES" msprop:Generator_RowEvArgName="VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Title" msprop:Generator_ColumnVarNameInTable="columnTitle" msprop:Generator_ColumnPropNameInRow="Title" msprop:Generator_ColumnPropNameInTable="TitleColumn" msprop:Generator_UserColumnName="Title">
|
||||
@ -3298,7 +3302,7 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="VWPM_CHART_TOP5" msprop:Generator_TableClassName="VWPM_CHART_TOP5DataTable" msprop:Generator_TableVarName="tableVWPM_CHART_TOP5" msprop:Generator_TablePropName="VWPM_CHART_TOP5" msprop:Generator_RowDeletingName="VWPM_CHART_TOP5RowDeleting" msprop:Generator_RowChangingName="VWPM_CHART_TOP5RowChanging" msprop:Generator_RowEvHandlerName="VWPM_CHART_TOP5RowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_CHART_TOP5RowDeleted" msprop:Generator_UserTableName="VWPM_CHART_TOP5" msprop:Generator_RowChangedName="VWPM_CHART_TOP5RowChanged" msprop:Generator_RowEvArgName="VWPM_CHART_TOP5RowChangeEvent" msprop:Generator_RowClassName="VWPM_CHART_TOP5Row">
|
||||
<xs:element name="VWPM_CHART_TOP5" msprop:Generator_TableClassName="VWPM_CHART_TOP5DataTable" msprop:Generator_TableVarName="tableVWPM_CHART_TOP5" msprop:Generator_RowChangedName="VWPM_CHART_TOP5RowChanged" msprop:Generator_TablePropName="VWPM_CHART_TOP5" msprop:Generator_RowDeletingName="VWPM_CHART_TOP5RowDeleting" msprop:Generator_RowChangingName="VWPM_CHART_TOP5RowChanging" msprop:Generator_RowEvHandlerName="VWPM_CHART_TOP5RowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_CHART_TOP5RowDeleted" msprop:Generator_RowClassName="VWPM_CHART_TOP5Row" msprop:Generator_UserTableName="VWPM_CHART_TOP5" msprop:Generator_RowEvArgName="VWPM_CHART_TOP5RowChangeEvent">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="KRED_NAME" msprop:Generator_ColumnVarNameInTable="columnKRED_NAME" msprop:Generator_ColumnPropNameInRow="KRED_NAME" msprop:Generator_ColumnPropNameInTable="KRED_NAMEColumn" msprop:Generator_UserColumnName="KRED_NAME">
|
||||
@ -3395,11 +3399,11 @@ ORDER BY Netto DESC</CommandText>
|
||||
</xs:element>
|
||||
<xs:annotation>
|
||||
<xs:appinfo>
|
||||
<msdata:Relationship name="FK_TBPM_ERROR_LOG_PROFILE1" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_ERROR_LOG" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBPM_ERROR_LOG" msprop:Generator_ChildPropName="GetTBPM_ERROR_LOGRows" msprop:Generator_UserRelationName="FK_TBPM_ERROR_LOG_PROFILE1" msprop:Generator_ParentPropName="TBPM_PROFILERow" msprop:Generator_RelationVarName="relationFK_TBPM_ERROR_LOG_PROFILE1" msprop:Generator_UserParentTable="TBPM_PROFILE" />
|
||||
<msdata:Relationship name="FK_TBPM_PROFILE_TYPE1" msdata:parent="TBPM_TYPE" msdata:child="TBPM_PROFILE" msdata:parentkey="GUID" msdata:childkey="TYPE" msprop:Generator_UserChildTable="TBPM_PROFILE" msprop:Generator_ChildPropName="GetTBPM_PROFILERows" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_TYPE1" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_TYPE1" msprop:Generator_UserParentTable="TBPM_TYPE" msprop:Generator_ParentPropName="TBPM_TYPERow" />
|
||||
<msdata:Relationship name="FK_TBPM_PROFILE_CONTROLS_PROFILE1" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_PROFILE_CONTROLS" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBPM_PROFILE_CONTROLS" msprop:Generator_ChildPropName="GetTBPM_PROFILE_CONTROLSRows" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_CONTROLS_PROFILE1" msprop:Generator_ParentPropName="TBPM_PROFILERow" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_CONTROLS_PROFILE1" msprop:Generator_UserParentTable="TBPM_PROFILE" />
|
||||
<msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL1" msdata:parent="TBPM_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_ParentPropName="TBPM_PROFILE_CONTROLSRow" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_UserParentTable="TBPM_PROFILE_CONTROLS" />
|
||||
<msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL" msdata:parent="TBWH_CHECK_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_UserParentTable="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_ParentPropName="TBWH_CHECK_PROFILE_CONTROLSRow" />
|
||||
<msdata:Relationship name="FK_TBPM_ERROR_LOG_PROFILE1" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_ERROR_LOG" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBPM_ERROR_LOG" msprop:Generator_ChildPropName="GetTBPM_ERROR_LOGRows" msprop:Generator_UserRelationName="FK_TBPM_ERROR_LOG_PROFILE1" msprop:Generator_RelationVarName="relationFK_TBPM_ERROR_LOG_PROFILE1" msprop:Generator_UserParentTable="TBPM_PROFILE" msprop:Generator_ParentPropName="TBPM_PROFILERow" />
|
||||
<msdata:Relationship name="FK_TBPM_PROFILE_TYPE1" msdata:parent="TBPM_TYPE" msdata:child="TBPM_PROFILE" msdata:parentkey="GUID" msdata:childkey="TYPE" msprop:Generator_UserChildTable="TBPM_PROFILE" msprop:Generator_ChildPropName="GetTBPM_PROFILERows" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_TYPE1" msprop:Generator_ParentPropName="TBPM_TYPERow" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_TYPE1" msprop:Generator_UserParentTable="TBPM_TYPE" />
|
||||
<msdata:Relationship name="FK_TBPM_PROFILE_CONTROLS_PROFILE1" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_PROFILE_CONTROLS" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBPM_PROFILE_CONTROLS" msprop:Generator_ChildPropName="GetTBPM_PROFILE_CONTROLSRows" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_CONTROLS_PROFILE1" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_CONTROLS_PROFILE1" msprop:Generator_UserParentTable="TBPM_PROFILE" msprop:Generator_ParentPropName="TBPM_PROFILERow" />
|
||||
<msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL1" msdata:parent="TBPM_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_UserParentTable="TBPM_PROFILE_CONTROLS" msprop:Generator_ParentPropName="TBPM_PROFILE_CONTROLSRow" />
|
||||
<msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL" msdata:parent="TBWH_CHECK_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_ParentPropName="TBWH_CHECK_PROFILE_CONTROLSRow" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_UserParentTable="TBWH_CHECK_PROFILE_CONTROLS" />
|
||||
</xs:appinfo>
|
||||
</xs:annotation>
|
||||
</xs:schema>
|
||||
@ -4,7 +4,7 @@
|
||||
Changes to this file may cause incorrect behavior and will be lost if
|
||||
the code is regenerated.
|
||||
</autogenerated>-->
|
||||
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="303" ViewPortY="133" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
|
||||
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="303" ViewPortY="-87" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
|
||||
<Shapes>
|
||||
<Shape ID="DesignTable:TBPM_PROFILE_FINAL_INDEXING" ZOrder="12" X="1688" Y="-74" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
|
||||
<Shape ID="DesignTable:TBPM_KONFIGURATION" ZOrder="26" X="-17" Y="232" Height="262" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="97" />
|
||||
|
||||
@ -246,7 +246,6 @@
|
||||
<Compile Include="ClassSQLEditor.vb" />
|
||||
<Compile Include="ClassSQLTypeConverter.vb" />
|
||||
<Compile Include="ClassSQLValue.vb" />
|
||||
<Compile Include="ClassUser.vb" />
|
||||
<Compile Include="ClassVectorBehaviourListConverter.vb" />
|
||||
<Compile Include="ClassWorkDoc.vb" />
|
||||
<Compile Include="clsPatterns.vb" />
|
||||
|
||||
@ -13,6 +13,7 @@ Public Module ModuleControlProperties
|
||||
Private _size As Size
|
||||
Private _font As Font
|
||||
|
||||
|
||||
<Category("Allgemein")>
|
||||
<[ReadOnly](True)>
|
||||
Public Property ChangedAt As Date
|
||||
@ -28,6 +29,7 @@ Public Module ModuleControlProperties
|
||||
<Category("Allgemein")>
|
||||
Public Property Name() As String
|
||||
|
||||
|
||||
<Category("Anzeige")>
|
||||
Public Property Location() As Point
|
||||
|
||||
@ -83,6 +85,8 @@ Public Module ModuleControlProperties
|
||||
Private _Enable_SQL_ONLOAD As String
|
||||
|
||||
Private _default_value
|
||||
<Category("Allgemein")> Public Property Active() As Boolean
|
||||
|
||||
Public Property Required() As Boolean
|
||||
<Category("Validierung")>
|
||||
Public Property [ReadOnly]() As Boolean
|
||||
@ -147,7 +151,8 @@ Public Module ModuleControlProperties
|
||||
|
||||
Public Class TextboxProperties
|
||||
Inherits InputProperties
|
||||
|
||||
<Category("Sonstiges")>
|
||||
Public Property SetControlData As SQLValue
|
||||
<Category("Validierung")>
|
||||
<Editor(GetType(ClassRegexEditor), GetType(UITypeEditor))>
|
||||
Public Property Regex As String
|
||||
@ -169,6 +174,8 @@ Public Module ModuleControlProperties
|
||||
|
||||
<Category("Allgemein")>
|
||||
Public Property Text() As String
|
||||
<Category("Sonstiges")>
|
||||
Public Property SetControlData As SQLValue
|
||||
End Class
|
||||
|
||||
Public Class ComboboxProperties
|
||||
@ -176,6 +183,8 @@ Public Module ModuleControlProperties
|
||||
|
||||
<Category("Allgemein")>
|
||||
Public Property Text() As String
|
||||
<Category("Sonstiges")>
|
||||
Public Property SetControlData As SQLValue
|
||||
|
||||
<Browsable(False)>
|
||||
Public Property ChoiceLists() As List(Of String)
|
||||
|
||||
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("2.1.4.6")>
|
||||
<Assembly: AssemblyVersion("2.1.4.7")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
Imports System.Text.RegularExpressions
|
||||
Imports WINDREAMLib
|
||||
|
||||
Imports DigitalData.Controls.LookupGrid
|
||||
''' <summary>
|
||||
''' Defines common Functions for Checking for and replacing placeholders.
|
||||
''' This Class also includes a child class `Pattern` for passing around Patterns.
|
||||
@ -51,18 +51,17 @@ Public Class clsPatterns
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function ReplaceAllValues(input As String, panel As Panel, document As WMObject, prename As Object, surname As Object, shortname As Object, language As Object, email As Object, userId As Object, profileId As Object) As String
|
||||
Public Shared Function ReplaceAllValues(input As String, panel As Panel, is_SQL As Boolean) As String
|
||||
Try
|
||||
Dim result = input
|
||||
LOGGER.Debug($"input BEFORE replacing: [{result}]")
|
||||
result = ReplaceInternalValues(result)
|
||||
result = ReplaceControlValues(result, panel)
|
||||
If Not IsNothing(document) Then result = ReplaceWindreamIndicies(result, document)
|
||||
result = ReplaceControlValues(result, panel, is_SQL)
|
||||
If Not IsNothing(CURRENT_WMFILE) Then result = ReplaceWindreamIndicies(result, CURRENT_WMFILE, is_SQL)
|
||||
If IDB_ACTIVE = True Then
|
||||
result = ReplaceIDBAttributes(result)
|
||||
result = ReplaceIDBAttributes(result, is_SQL)
|
||||
End If
|
||||
|
||||
result = ReplaceUserValues(result, prename, surname, shortname, language, email, userId, profileId)
|
||||
result = ReplaceUserValues(result, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
|
||||
LOGGER.Debug($"input AFTER replacing: [{result}]")
|
||||
Return result
|
||||
Catch ex As Exception
|
||||
@ -143,7 +142,7 @@ Public Class clsPatterns
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Shared Function ReplaceControlValues(input As String, panel As Panel) As String
|
||||
Public Shared Function ReplaceControlValues(input As String, panel As Panel, IS_SQL As Boolean) As String
|
||||
Try
|
||||
Dim result = input
|
||||
Dim oTryCounter = 0
|
||||
@ -156,10 +155,33 @@ Public Class clsPatterns
|
||||
End If
|
||||
|
||||
Dim controlName As String = GetNextPattern(result, PATTERN_CTRL).Value
|
||||
Dim control As Control = panel.Controls.Find(controlName, False).FirstOrDefault()
|
||||
Dim oControl As Control = panel.Controls.Find(controlName, False).FirstOrDefault()
|
||||
|
||||
If control IsNot Nothing Then
|
||||
Dim oReplaceValue As String = control.Text
|
||||
If oControl IsNot Nothing Then
|
||||
Dim oReplaceValue As String
|
||||
Select Case oControl.GetType.ToString
|
||||
Case GetType(TextBox).ToString
|
||||
oReplaceValue = oControl.Text
|
||||
Case GetType(LookupControl2).ToString
|
||||
Dim oLookupControl2 As LookupControl2 = oControl
|
||||
If oLookupControl2.SelectedValues.Count = 1 Then
|
||||
oReplaceValue = oLookupControl2.SelectedValues.Item(0)
|
||||
Else
|
||||
oReplaceValue = "0"
|
||||
End If
|
||||
Case GetType(ComboBox).ToString
|
||||
oReplaceValue = oControl.Text
|
||||
Case GetType(CheckBox).ToString
|
||||
Dim oCheckBox As CheckBox = oControl
|
||||
oReplaceValue = oCheckBox.Checked
|
||||
Case Else
|
||||
oReplaceValue = "0"
|
||||
End Select
|
||||
If IS_SQL = True Then
|
||||
LOGGER.Debug($"IS_SQL = True - oReplaceValue = {oReplaceValue}")
|
||||
oReplaceValue = oReplaceValue.Replace("'", "''")
|
||||
LOGGER.Debug($"oReplaceValue = {oReplaceValue}")
|
||||
End If
|
||||
result = ReplacePattern(result, PATTERN_CTRL, oReplaceValue)
|
||||
End If
|
||||
|
||||
@ -173,7 +195,7 @@ Public Class clsPatterns
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Shared Function ReplaceWindreamIndicies(input As String, document As WMObject) As String
|
||||
Public Shared Function ReplaceWindreamIndicies(input As String, document As WMObject, IS_SQL As Boolean) As String
|
||||
Try
|
||||
Dim result = input
|
||||
Dim oTryCounter As Integer = 0
|
||||
@ -188,6 +210,11 @@ Public Class clsPatterns
|
||||
|
||||
End If
|
||||
If oWMValue IsNot Nothing Then
|
||||
If IS_SQL = True Then
|
||||
LOGGER.Debug($"IS_SQL = True - oReplaceValue = {oWMValue}")
|
||||
oWMValue = oWMValue.Replace("'", "''")
|
||||
LOGGER.Debug($"oReplaceValue = {oWMValue}")
|
||||
End If
|
||||
result = ReplacePattern(result, PATTERN_WMI, oWMValue)
|
||||
End If
|
||||
oTryCounter += 100
|
||||
@ -199,7 +226,7 @@ Public Class clsPatterns
|
||||
LOGGER.Info("Error in ReplaceWindreamIndicies:" & ex.Message)
|
||||
End Try
|
||||
End Function
|
||||
Public Shared Function ReplaceIDBAttributes(input As String) As String
|
||||
Public Shared Function ReplaceIDBAttributes(input As String, IS_SQL As Boolean) As String
|
||||
Try
|
||||
Dim result = input
|
||||
Dim oTryCounter As Integer = 0
|
||||
@ -227,6 +254,11 @@ Public Class clsPatterns
|
||||
End If
|
||||
If oIDBValue IsNot Nothing Then
|
||||
Dim oReplaceValue = "{" + $"#{PATTERN_IDBA}#{indexName}" + "}"
|
||||
If IS_SQL = True Then
|
||||
LOGGER.Debug($"IS_SQL = True - oReplaceValue = {oIDBValue}")
|
||||
oIDBValue = oIDBValue.Replace("'", "''")
|
||||
LOGGER.Debug($"oReplaceValue = {oIDBValue}")
|
||||
End If
|
||||
result = result.Replace(oReplaceValue, oIDBValue)
|
||||
'result = ReplacePattern(result, oReplaceValue, oIDBValue)
|
||||
End If
|
||||
|
||||
@ -472,7 +472,7 @@ Public Class frmAdministration
|
||||
Series4Sequence.Value = 1
|
||||
|
||||
Dim oSQLChart As String = "SELECT * FROM TBPM_CHART ORDER BY GROUP_ID"
|
||||
DT_CHART_CONFIG = ClassDatabase.Return_Datatable(oSQLChart)
|
||||
DT_CHART_CONFIG = ClassDatabase.Return_Datatable(oSQLChart, "Adm_Chart")
|
||||
For Each oROW As DataRow In DT_CHART_CONFIG.Rows
|
||||
If oROW.Item("GROUP_ID") = 1 Then
|
||||
Series1GUID.Text = oROW.Item("GUID")
|
||||
@ -1336,7 +1336,7 @@ Public Class frmAdministration
|
||||
CURRENT_ProfilGUID = PROFILGUIDTextBox.Text
|
||||
CURRENT_DESIGN_TYPE = "SQL_BTNFINISH"
|
||||
Dim oSQL = $"SELECT SQL_BTN_FINISH FROM TBPM_PROFILE WHERE GUID = {CURRENT_ProfilGUID}"
|
||||
Dim oldSQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING)
|
||||
Dim oldSQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, "bbtnItemFinishSQL_ItemClick-get SQL_BTN_FINISH")
|
||||
Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL}
|
||||
Dim oResult = oForm.ShowDialog()
|
||||
|
||||
|
||||
@ -116,7 +116,7 @@ Public Class frmFormDesigner
|
||||
Private Sub frmFormDesigner_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
If ProfileId > 0 Then
|
||||
Dim sql As String = $"SELECT NAME, INDEX_NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {ProfileId} AND CTRL_TYPE NOT IN ('BUTTON','LBL','LINE')"
|
||||
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
|
||||
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql, "frmFormDesigner_FormClosing")
|
||||
|
||||
Dim missingIndexControls As New List(Of String)
|
||||
|
||||
@ -267,7 +267,7 @@ Public Class frmFormDesigner
|
||||
SetMovementHandlers(dgv)
|
||||
|
||||
Case "TABLE"
|
||||
Dim oDTColumnsPerDevExGrid As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {guid} ORDER BY [SEQUENCE]")
|
||||
Dim oDTColumnsPerDevExGrid As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {guid} ORDER BY [SEQUENCE]", "FDesignLaodControls")
|
||||
|
||||
|
||||
Dim table = ClassControlCreator.CreateExistingGridControl(row, oDTColumnsPerDevExGrid, True)
|
||||
@ -517,7 +517,7 @@ Public Class frmFormDesigner
|
||||
|
||||
Private Function GetLastID()
|
||||
Dim sql = String.Format("SELECT MAX(GUID) FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0}", ProfileId)
|
||||
Return ClassDatabase.Execute_Scalar(sql, CONNECTION_STRING, True)
|
||||
Return ClassDatabase.Execute_Scalar(sql, CONNECTION_STRING, "GetLastID")
|
||||
End Function
|
||||
|
||||
Sub SetActiveControlColor()
|
||||
@ -778,6 +778,7 @@ Public Class frmFormDesigner
|
||||
obj.Indicies = indicies
|
||||
obj.ReadOnly = StrToBool(row.Item("READ_ONLY"))
|
||||
obj.Required = StrToBool(row.Item("VALIDATION"))
|
||||
obj.Active = StrToBool(row.Item("CONTROL_ACTIVE"))
|
||||
obj.Index = NotNull(row.Item("INDEX_NAME"), "")
|
||||
obj.DefaultValue = NotNull(row.Item("DEFAULT_VALUE"), Nothing)
|
||||
obj.SQLCommand = New SQLValue(row.Item("SQL_UEBERPRUEFUNG"))
|
||||
@ -787,8 +788,8 @@ Public Class frmFormDesigner
|
||||
Private Sub LoadControlProperties(sender As Control)
|
||||
Try
|
||||
Dim props
|
||||
Dim dt As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS
|
||||
Dim row As DataRow
|
||||
Dim oDatatable As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS
|
||||
Dim oRow As DataRow
|
||||
|
||||
pgControls.Enabled = True
|
||||
|
||||
@ -804,12 +805,12 @@ Public Class frmFormDesigner
|
||||
|
||||
Dim oControlId = DirectCast(sender.Tag, ClassControlCreator.ControlMetadata).Guid
|
||||
|
||||
row = dt.AsEnumerable().Where(Function(r As DataRow)
|
||||
Return r.Item("GUID") = oControlId
|
||||
End Function).SingleOrDefault()
|
||||
oRow = oDatatable.AsEnumerable().Where(Function(r As DataRow)
|
||||
Return r.Item("GUID") = oControlId
|
||||
End Function).SingleOrDefault()
|
||||
|
||||
' Control-Id wurde nicht in DataRow gefunden
|
||||
If IsNothing(row) Then
|
||||
If IsNothing(oRow) Then
|
||||
LOGGER.Info($"Error while filtering Controls by Guid '{oControlId}' in LoadControlProperties:")
|
||||
MsgBox($"Control mit der Id {oControlId} wurde nicht gefunden!", MsgBoxStyle.Critical, "Fehler beim Laden der Control Eigenschaften")
|
||||
|
||||
@ -826,83 +827,86 @@ Public Class frmFormDesigner
|
||||
' Eigenschaften angelegt. Danach können für jeden Control Typ spezifische Eigenschaften festgelegt werden.
|
||||
If TypeOf sender Is ClassControlCreator.LineLabel Then
|
||||
Dim line As ClassControlCreator.LineLabel = sender
|
||||
Dim lineProps As LineLabelProperties = CreatePropsObject(New LineLabelProperties, row)
|
||||
Dim lineProps As LineLabelProperties = CreatePropsObject(New LineLabelProperties, oRow)
|
||||
|
||||
props = lineProps
|
||||
ElseIf TypeOf sender Is Label Then
|
||||
Dim label As Label = sender
|
||||
Dim labelProps As LabelProperties = CreatePropsObject(New LabelProperties, row)
|
||||
Dim labelProps As LabelProperties = CreatePropsObject(New LabelProperties, oRow)
|
||||
labelProps.Text = label.Text
|
||||
|
||||
props = labelProps
|
||||
ElseIf TypeOf sender Is CheckBox Then
|
||||
Dim check As CheckBox = sender
|
||||
Dim checkProps As CheckboxProperties = CreatePropsObjectWithIndicies(New CheckboxProperties, row, Source_AllIndicies)
|
||||
Dim checkProps As CheckboxProperties = CreatePropsObjectWithIndicies(New CheckboxProperties, oRow, Source_AllIndicies)
|
||||
checkProps.Text = check.Text
|
||||
checkProps.Enable_SQL = New SQLValue(NotNull(row.Item("SQL_ENABLE"), ""))
|
||||
checkProps.Enable_SQL_OnLoad = New SQLValue(NotNull(row.Item("SQL_ENABLE_ON_LOAD"), ""))
|
||||
checkProps.Enable_SQL = New SQLValue(NotNull(oRow.Item("SQL_ENABLE"), ""))
|
||||
checkProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
|
||||
checkProps.SetControlData = New SQLValue(NotNull(oRow.Item("SET_CONTROL_DATA"), ""))
|
||||
props = checkProps
|
||||
ElseIf TypeOf sender Is TextBox Then
|
||||
Dim txt As TextBox = sender
|
||||
Dim txtProps As TextboxProperties = CreatePropsObjectWithIndicies(New TextboxProperties, row, Source_AllIndicies)
|
||||
txtProps.Regex = NotNull(row.Item("REGEX_MATCH"), String.Empty)
|
||||
txtProps.RegexMessage = NotNull(row.Item("REGEX_MESSAGE_DE"), String.Empty)
|
||||
txtProps.Enable_SQL = New SQLValue(NotNull(row.Item("SQL_ENABLE"), ""))
|
||||
txtProps.Enable_SQL_OnLoad = New SQLValue(NotNull(row.Item("SQL_ENABLE_ON_LOAD"), ""))
|
||||
Dim txtProps As TextboxProperties = CreatePropsObjectWithIndicies(New TextboxProperties, oRow, Source_AllIndicies)
|
||||
txtProps.Regex = NotNull(oRow.Item("REGEX_MATCH"), String.Empty)
|
||||
txtProps.RegexMessage = NotNull(oRow.Item("REGEX_MESSAGE_DE"), String.Empty)
|
||||
txtProps.Enable_SQL = New SQLValue(NotNull(oRow.Item("SQL_ENABLE"), ""))
|
||||
txtProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
|
||||
txtProps.SetControlData = New SQLValue(NotNull(oRow.Item("SET_CONTROL_DATA"), ""))
|
||||
props = txtProps
|
||||
|
||||
ElseIf TypeOf sender Is ComboBox Then
|
||||
Dim cmb As ComboBox = sender
|
||||
Dim cmbProps As ComboboxProperties = CreatePropsObjectWithIndicies(New ComboboxProperties, row, Source_AllIndicies)
|
||||
Dim cmbProps As ComboboxProperties = CreatePropsObjectWithIndicies(New ComboboxProperties, oRow, Source_AllIndicies)
|
||||
cmbProps.ChoiceLists = Windream_ChoiceLists
|
||||
cmbProps.ChoiceList = NotNull(row.Item("CHOICE_LIST"), String.Empty)
|
||||
cmbProps.Enable_SQL = New SQLValue(NotNull(row.Item("SQL_ENABLE"), ""))
|
||||
cmbProps.Enable_SQL_OnLoad = New SQLValue(NotNull(row.Item("SQL_ENABLE_ON_LOAD"), ""))
|
||||
cmbProps.ChoiceList = NotNull(oRow.Item("CHOICE_LIST"), String.Empty)
|
||||
cmbProps.Enable_SQL = New SQLValue(NotNull(oRow.Item("SQL_ENABLE"), ""))
|
||||
cmbProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
|
||||
cmbProps.SetControlData = New SQLValue(NotNull(oRow.Item("SET_CONTROL_DATA"), ""))
|
||||
props = cmbProps
|
||||
cmbProps.DisplayAsLookUpControl = False
|
||||
|
||||
ElseIf TypeOf sender Is DateTimePicker Then
|
||||
Dim dtp As DateTimePicker = sender
|
||||
Dim dtpProps As DatepickerProperties = CreatePropsObjectWithIndicies(New DatepickerProperties, row, Source_AllIndicies)
|
||||
dtpProps.Enable_SQL = New SQLValue(NotNull(row.Item("SQL_ENABLE"), ""))
|
||||
dtpProps.Enable_SQL_OnLoad = New SQLValue(NotNull(row.Item("SQL_ENABLE_ON_LOAD"), ""))
|
||||
Dim dtpProps As DatepickerProperties = CreatePropsObjectWithIndicies(New DatepickerProperties, oRow, Source_AllIndicies)
|
||||
dtpProps.Enable_SQL = New SQLValue(NotNull(oRow.Item("SQL_ENABLE"), ""))
|
||||
dtpProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
|
||||
props = dtpProps
|
||||
|
||||
ElseIf TypeOf sender Is DataGridView Then
|
||||
Dim grid As DataGridView = sender
|
||||
Dim gridProps As GridViewProperties = CreatePropsObjectWithIndicies(New GridViewProperties, row, Source_VectorIndicies)
|
||||
Dim gridProps As GridViewProperties = CreatePropsObjectWithIndicies(New GridViewProperties, oRow, Source_VectorIndicies)
|
||||
|
||||
props = gridProps
|
||||
|
||||
ElseIf TypeOf sender Is LookupControl2 Then
|
||||
Dim grid As LookupControl2 = sender
|
||||
Dim lookupProps As LookupControlProperties = CreatePropsObjectWithIndicies(New LookupControlProperties, row, Source_AllIndicies)
|
||||
lookupProps.MultiSelect = StrToBool(row.Item("MULTISELECT"))
|
||||
lookupProps.PreventDuplicates = StrToBool(row.Item("VKT_PREVENT_MULTIPLE_VALUES"))
|
||||
lookupProps.AllowAddNewValues = StrToBool(row.Item("VKT_ADD_ITEM"))
|
||||
Dim lookupProps As LookupControlProperties = CreatePropsObjectWithIndicies(New LookupControlProperties, oRow, Source_AllIndicies)
|
||||
lookupProps.MultiSelect = StrToBool(oRow.Item("MULTISELECT"))
|
||||
lookupProps.PreventDuplicates = StrToBool(oRow.Item("VKT_PREVENT_MULTIPLE_VALUES"))
|
||||
lookupProps.AllowAddNewValues = StrToBool(oRow.Item("VKT_ADD_ITEM"))
|
||||
lookupProps.DisplayAsComboBox = False
|
||||
lookupProps.Enable_SQL = New SQLValue(NotNull(row.Item("SQL_ENABLE"), ""))
|
||||
lookupProps.Enable_SQL_OnLoad = New SQLValue(NotNull(row.Item("SQL_ENABLE_ON_LOAD"), ""))
|
||||
lookupProps.SetControlData = New SQLValue(NotNull(row.Item("SET_CONTROL_DATA"), ""))
|
||||
lookupProps.Enable_SQL = New SQLValue(NotNull(oRow.Item("SQL_ENABLE"), ""))
|
||||
lookupProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
|
||||
lookupProps.SetControlData = New SQLValue(NotNull(oRow.Item("SET_CONTROL_DATA"), ""))
|
||||
props = lookupProps
|
||||
|
||||
ElseIf TypeOf sender Is GridControl Then
|
||||
Dim oGridControl As GridControl = sender
|
||||
Dim oGridProps As GridControlProperties = CreatePropsObjectWithIndicies(New GridControlProperties, row, Source_VectorIndicies)
|
||||
oGridProps.AllowAddNewValues = StrToBool(row.Item("VKT_ADD_ITEM"))
|
||||
oGridProps.Enable_SQL = New SQLValue(NotNull(row.Item("SQL_ENABLE"), ""))
|
||||
oGridProps.Enable_SQL_OnLoad = New SQLValue(NotNull(row.Item("SQL_ENABLE_ON_LOAD"), ""))
|
||||
Dim oGridProps As GridControlProperties = CreatePropsObjectWithIndicies(New GridControlProperties, oRow, Source_VectorIndicies)
|
||||
oGridProps.AllowAddNewValues = StrToBool(oRow.Item("VKT_ADD_ITEM"))
|
||||
oGridProps.Enable_SQL = New SQLValue(NotNull(oRow.Item("SQL_ENABLE"), ""))
|
||||
oGridProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
|
||||
props = oGridProps
|
||||
ElseIf TypeOf sender Is Button Then
|
||||
Dim oButton As Button = sender
|
||||
Dim oButtonProps As ButtonProperties = CreatePropsObject(New ButtonProperties, row, Source_VectorIndicies)
|
||||
Dim oButtonProps As ButtonProperties = CreatePropsObject(New ButtonProperties, oRow, Source_VectorIndicies)
|
||||
oButtonProps.Text = oButton.Text
|
||||
oButtonProps.SQLCommand = New SQLValue(row.Item("SQL_UEBERPRUEFUNG"))
|
||||
oButtonProps.Override_SQL = New SQLValue(NotNull(row.Item("SQL2"), ""))
|
||||
oButtonProps.Enable_SQL = New SQLValue(NotNull(row.Item("SQL_ENABLE"), ""))
|
||||
oButtonProps.Enable_SQL_OnLoad = New SQLValue(NotNull(row.Item("SQL_ENABLE_ON_LOAD"), ""))
|
||||
If Not IsDBNull(row.Item("IMAGE_CONTROL")) Then
|
||||
Dim obimg() As Byte = row.Item("IMAGE_CONTROL")
|
||||
oButtonProps.SQLCommand = New SQLValue(oRow.Item("SQL_UEBERPRUEFUNG"))
|
||||
oButtonProps.Override_SQL = New SQLValue(NotNull(oRow.Item("SQL2"), ""))
|
||||
oButtonProps.Enable_SQL = New SQLValue(NotNull(oRow.Item("SQL_ENABLE"), ""))
|
||||
oButtonProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
|
||||
If Not IsDBNull(oRow.Item("IMAGE_CONTROL")) Then
|
||||
Dim obimg() As Byte = oRow.Item("IMAGE_CONTROL")
|
||||
Dim oBitmap As Bitmap = ByteArrayToBitmap(obimg)
|
||||
oButtonProps.CtrlImage = New ImageValue("IMAGE")
|
||||
oButton.Image = oBitmap
|
||||
@ -1045,6 +1049,8 @@ Public Class frmFormDesigner
|
||||
|
||||
Case "RegexMessage"
|
||||
UpdateSingleValue("REGEX_MESSAGE_DE", newValue)
|
||||
Case "Active"
|
||||
UpdateSingleValue("CONTROL_ACTIVE", IIf(newValue = True, 1, 0))
|
||||
Case "CtrlImage"
|
||||
Dim myPath As ImageValue = newValue
|
||||
UpdateImage(myPath.Value)
|
||||
@ -1136,7 +1142,7 @@ Public Class frmFormDesigner
|
||||
Try
|
||||
CURRENT_DESIGN_TYPE = "SQL_BTNFINISH"
|
||||
Dim oSQL = $"SELECT SQL_BTN_FINISH FROM TBPM_PROFILE WHERE GUID = {ProfileId}"
|
||||
Dim oldSQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING)
|
||||
Dim oldSQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, "bbtnItemFinishSQL_ItemClick")
|
||||
Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL}
|
||||
Dim oResult = oForm.ShowDialog()
|
||||
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
Public Class frmGhostMode
|
||||
Private Sub frmGhostMode_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Dim oSQL = "SELECT CONFIG_VALUE FROM TBIDB_BASE WHERE CONFIG_NAME = 'GHOST_SELECT'"
|
||||
oSQL = ClassDatabase.Execute_Scalar_ConStr(oSQL, CONNECTION_STRING_IDB)
|
||||
Dim DT_USER = ClassDatabase.Return_Datatable(oSQL)
|
||||
oSQL = ClassDatabase.Execute_Scalar_ConStr(oSQL, CONNECTION_STRING_IDB, "frmGhostMode_Load")
|
||||
Dim DT_USER = ClassDatabase.Return_Datatable(oSQL, "frmGhostMode_LoadDT")
|
||||
|
||||
Try
|
||||
If Not IsNothing(DT_USER) Then
|
||||
|
||||
@ -63,7 +63,7 @@ Public Class frmInvDashboard
|
||||
Dim oChartArgument = cRow.Item("ARGUMENT")
|
||||
Dim oSqlchart = cRow.Item("SQL_COMMAND")
|
||||
oSqlchart = oSqlchart.Replace("@USER", USER_USERNAME)
|
||||
Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(oSqlchart)
|
||||
Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(oSqlchart, "layputDashboard1")
|
||||
|
||||
Dim series As Series = Create_Series(oChartTitle, oChartType.ToString.ToUpper)
|
||||
|
||||
@ -111,7 +111,7 @@ Public Class frmInvDashboard
|
||||
|
||||
oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER_ID", USER_ID)
|
||||
oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER", USER_USERNAME)
|
||||
Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(oSqlchart)
|
||||
Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(oSqlchart, "layputDashboard2")
|
||||
|
||||
' Create Series based on type
|
||||
Dim series As Series = Create_Series(oChartTitle, oChartType)
|
||||
|
||||
@ -225,7 +225,7 @@ Public Class frmMain
|
||||
SOURCE_INIT = Init_IDB()
|
||||
If SOURCE_INIT = True Then
|
||||
Dim oSQL = $"SELECT SQL_COMMAND FROM TBDD_SQL_COMMANDS WHERE TITLE = 'PM_IDB_DOC_DATA'"
|
||||
IDB_DOC_DATA_SQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING)
|
||||
IDB_DOC_DATA_SQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, "frmMainload-PM_IDPDOCDATA")
|
||||
LOGGER.Debug($"Got the IDB_DOC_DATA_SQL..{IDB_DOC_DATA_SQL}")
|
||||
End If
|
||||
bsiGeneralInfo.Caption = "IDB active"
|
||||
@ -589,7 +589,7 @@ Public Class frmMain
|
||||
sql = sql.Replace("@MACHINE_NAME", Environment.MachineName)
|
||||
sql = sql.Replace("@DATE", Now.ToShortDateString)
|
||||
sql = sql.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID)
|
||||
CURR_DT_OVERVIEW = ClassDatabase.Return_Datatable(sql, True)
|
||||
CURR_DT_OVERVIEW = ClassDatabase.Return_Datatable(sql, "Load_single_Profile")
|
||||
If CURR_DT_OVERVIEW.Rows.Count = 0 Then
|
||||
NO_WORKFLOWITEMS = True
|
||||
Else
|
||||
@ -906,10 +906,8 @@ Public Class frmMain
|
||||
|
||||
Sub Load_Profil_from_Grid(pProfilID As Integer)
|
||||
Try
|
||||
'Me.Visible = False
|
||||
CURRENT_ProfilGUID = pProfilID
|
||||
' CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, CONNECTION_STRING)
|
||||
'My.Settings.Save()
|
||||
|
||||
Dim omsg = "Es ist bereits ein Workflow geöffnet!"
|
||||
Dim omsgTitle = "Achtung:"
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
@ -942,10 +940,8 @@ Public Class frmMain
|
||||
BASEDATA_DT_PROFILE_SEARCHES_DOC.Clear()
|
||||
oExpression = $"PROFILE_ID = {CURRENT_ProfilGUID}"
|
||||
BASEDATA_DT_PROFILES_SEARCHES_DOC.Select(oExpression, "TAB_INDEX").CopyToDataTable(BASEDATA_DT_PROFILE_SEARCHES_DOC, LoadOption.PreserveChanges)
|
||||
'CURRENT_DT_PROFILE_SEARCHES_DOC = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'DOC' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
|
||||
BASEDATA_DT_PROFILE_SEARCHES_SQL.Clear()
|
||||
BASEDATA_DT_PROFILES_SEARCHES_SQL.Select(oExpression, "TAB_INDEX").CopyToDataTable(BASEDATA_DT_PROFILE_SEARCHES_SQL, LoadOption.PreserveChanges)
|
||||
'CURRENT_DT_PROFILE_SEARCHES_SQL = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'SQL' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
|
||||
|
||||
Try
|
||||
frmValidator.Show()
|
||||
@ -1143,7 +1139,7 @@ Public Class frmMain
|
||||
CURRENT_DOC_GUID = CURRENT_JUMP_DOC_GUID
|
||||
CURRENT_DOC_PATH = DOC_PATH
|
||||
Dim oSQL = $"SELECT [dbo].[FNPM_CHECK_DocGUID_Valid] ({CURRENT_DOC_GUID})"
|
||||
Dim oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING)
|
||||
Dim oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, $"Item_Scope-FNPM_CHECK_DocGUID_Valid")
|
||||
Try
|
||||
If CBool(oResult) = True Then
|
||||
Load_Profil_from_Grid(oHitProfilID)
|
||||
@ -1234,7 +1230,7 @@ Public Class frmMain
|
||||
If SOURCE_INIT = True Then
|
||||
|
||||
CURRENT_ProfilGUID = oProfileId
|
||||
CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID))
|
||||
CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID), "tsmiMarkedFilesFinish_Click")
|
||||
CURRENT_DT_PROFILE.Clear()
|
||||
Dim oExpression = $"GUID = {CURRENT_ProfilGUID}"
|
||||
CURRENT_DT_PROFILES.Select(oExpression).CopyToDataTable(CURRENT_DT_PROFILE, LoadOption.PreserveChanges)
|
||||
@ -1346,7 +1342,7 @@ Public Class frmMain
|
||||
'String.Format("SELECT '1' TL_STATE,T.PROFIL_ID,T1.TITLE, T.DocID, T.FILE_PATH, T.DMS_ERSTELLT_DATE,[dbo].[FNPM_LAST_WORKUSER_DOC] (T.PROFIL_ID,T.DocID) AS 'Last User',[dbo].[FNPM_LAST_EDITED_DOC] (T.PROFIL_ID,T.DocID) as 'Last edited' FROM TBPM_PROFILE_FILES T, VWPM_PROFILE_USER T1 " &
|
||||
' "WHERE T.PROFIL_ID = T1.PROFIL_ID " &
|
||||
' "AND T1.ACTIVE = 1 And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", USER_USERNAME)
|
||||
CURR_DT_OVERVIEW = ClassDatabase.Return_Datatable(oSQLOverview)
|
||||
CURR_DT_OVERVIEW = ClassDatabase.Return_Datatable(oSQLOverview, "Load_Grid_Overview")
|
||||
oStopWatch2.Done()
|
||||
|
||||
|
||||
@ -1659,22 +1655,22 @@ Public Class frmMain
|
||||
If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.SaveViewInfo()
|
||||
End Sub
|
||||
Sub LoadCURRENT_DT_PROFILES()
|
||||
CURRENT_DT_PROFILES = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE where ACTIVE = 1")
|
||||
CURRENT_DT_PROFILES = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE where ACTIVE = 1", "LoadCURRENT_DT_PROFILES")
|
||||
End Sub
|
||||
Sub LoadVWPM_CONTROL_INDEX()
|
||||
Dim oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX ORDER BY PROFIL_ID,Y_LOC, X_LOC"
|
||||
DTVWCONTROLS_INDEX = ClassDatabase.Return_Datatable(oSQL)
|
||||
DTVWCONTROLS_INDEX = ClassDatabase.Return_Datatable(oSQL, "LoadVWPM_CONTROL_INDEX")
|
||||
End Sub
|
||||
Sub GetBaseData(pMode As String)
|
||||
Dim oStopWatch As New RefreshHelper.SW("GetBaseData")
|
||||
Try
|
||||
Dim oSQL = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED)
|
||||
DT_CHECKUSER_MODULE = ClassDatabase.Return_Datatable(oSQL)
|
||||
DT_CHECKUSER_MODULE = ClassDatabase.Return_Datatable(oSQL, "GetBaseData1")
|
||||
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(10)
|
||||
ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE)
|
||||
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(20)
|
||||
oSQL = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID)
|
||||
CURR_DT_VWPM_PROFILE_ACTIVE = ClassDatabase.Return_Datatable(oSQL)
|
||||
CURR_DT_VWPM_PROFILE_ACTIVE = ClassDatabase.Return_Datatable(oSQL, "GetBaseData2")
|
||||
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(30)
|
||||
LoadCURRENT_DT_PROFILES()
|
||||
|
||||
@ -1682,12 +1678,12 @@ Public Class frmMain
|
||||
CURRENT_DT_PROFILE = CURRENT_DT_PROFILES.Clone()
|
||||
End If
|
||||
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(40)
|
||||
BASEDATA_DT_PROFILES_SEARCHES_DOC = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX")
|
||||
BASEDATA_DT_PROFILES_SEARCHES_DOC = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX", "GetBaseData3")
|
||||
If pMode = "Load" Then
|
||||
BASEDATA_DT_PROFILE_SEARCHES_DOC = BASEDATA_DT_PROFILES_SEARCHES_DOC.Clone()
|
||||
End If
|
||||
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(50)
|
||||
BASEDATA_DT_PROFILES_SEARCHES_SQL = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'SQL' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX")
|
||||
BASEDATA_DT_PROFILES_SEARCHES_SQL = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'SQL' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX", "GetBaseData4")
|
||||
If pMode = "Load" Then
|
||||
BASEDATA_DT_PROFILE_SEARCHES_SQL = BASEDATA_DT_PROFILES_SEARCHES_SQL.Clone()
|
||||
End If
|
||||
@ -1698,7 +1694,7 @@ Public Class frmMain
|
||||
DTVWCONTROL_INDEX = DTVWCONTROLS_INDEX.Clone()
|
||||
End If
|
||||
oSQL = $"SELECT * FROM TBPM_PROFILE_CONTROLS WHERE LEN(ISNULL(SQL_UEBERPRUEFUNG,'')) > 0 AND CTRL_TYPE <> 'BUTTON'"
|
||||
DTCONTROLS_WITH_SQL = ClassDatabase.Return_Datatable(oSQL)
|
||||
DTCONTROLS_WITH_SQL = ClassDatabase.Return_Datatable(oSQL, "GetBaseData5")
|
||||
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(85)
|
||||
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(100)
|
||||
Catch ex As Exception
|
||||
@ -2010,7 +2006,7 @@ Public Class frmMain
|
||||
Dim oReceipiant = ""
|
||||
Dim oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID"))
|
||||
Dim oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({oFocusedDocGUID},1)"
|
||||
Dim oFilePath = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING)
|
||||
Dim oFilePath = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, $"DateiAlsLinkVersendenToolStripMenuItem_Click")
|
||||
|
||||
Dim oLink = "<HTML><body><p><a href=" + "file:///" + oFilePath + ">Link zur Datei</a></p></body></HTML>"
|
||||
Dim oLink2 = "<a href=" + "file:///" + oFilePath + ">Link zur Datei</a>"
|
||||
|
||||
@ -58,7 +58,7 @@ Public Class frmMassValidator
|
||||
Size = My.Settings.frmMassValidatorSize
|
||||
End If
|
||||
Try
|
||||
DTCONTROLS = ClassDatabase.Return_Datatable($"SELECT [dbo].[FNPM_LANGUAGE_CONTROL_TEXT] (NAME,{USER_LANGUAGE},CTRL_TYPE,CTRL_TEXT) CTRL_CAPTION_LANG,* FROM TBPM_PROFILE_CONTROLS WHERE SQL_UEBERPRUEFUNG NOT LIKE '%WMI%' AND PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC")
|
||||
DTCONTROLS = ClassDatabase.Return_Datatable($"SELECT [dbo].[FNPM_LANGUAGE_CONTROL_TEXT] (NAME,{USER_LANGUAGE},CTRL_TYPE,CTRL_TEXT) CTRL_CAPTION_LANG,* FROM TBPM_PROFILE_CONTROLS WHERE SQL_UEBERPRUEFUNG NOT LIKE '%WMI%' AND PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC", "MV_Load1")
|
||||
LOGGER.Debug("Profile Data geladen")
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
@ -229,7 +229,7 @@ Public Class frmMassValidator
|
||||
'sql = ClassPatterns.ReplaceAllValues(sql, pnldesigner, aktivesDokument)
|
||||
If clsPatterns.HasOnlySimplePatterns(CURR_SELECT_CONTROL) Then
|
||||
CURR_SELECT_CONTROL = clsPatterns.ReplaceInternalValues(CURR_SELECT_CONTROL)
|
||||
CURR_SELECT_CONTROL = clsPatterns.ReplaceControlValues(CURR_SELECT_CONTROL, pnldesigner)
|
||||
CURR_SELECT_CONTROL = clsPatterns.ReplaceControlValues(CURR_SELECT_CONTROL, pnldesigner, True)
|
||||
|
||||
sqlCnn = New SqlClient.SqlConnection(connectionString)
|
||||
' Try
|
||||
@ -353,7 +353,7 @@ Public Class frmMassValidator
|
||||
|
||||
Case "TABLE"
|
||||
LOGGER.Debug("Versuch Tabelle zu laden")
|
||||
Dim oDTMyColumns As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlRow.Item("GUID")} ORDER BY SEQUENCE")
|
||||
Dim oDTMyColumns As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlRow.Item("GUID")} ORDER BY SEQUENCE", "MV_LoadControls1")
|
||||
|
||||
oControl = ClassControlCreator.CreateExistingGridControl(oControlRow, oDTMyColumns, False)
|
||||
End Select
|
||||
@ -400,10 +400,10 @@ Public Class frmMassValidator
|
||||
End If
|
||||
If Not IsDBNull(filteredData.Rows(0).Item("CONNECTION_ID")) And Not IsDBNull(filteredData.Rows(0).Item("SQL_UEBERPRUEFUNG")) Then
|
||||
Dim oSqlCommand = IIf(IsDBNull(filteredData.Rows(0).Item("SQL_UEBERPRUEFUNG")), "", filteredData.Rows(0).Item("SQL_UEBERPRUEFUNG"))
|
||||
oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
|
||||
oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, True)
|
||||
LOGGER.Debug(">>> sql after ReplaceAllValues: " & oSqlCommand)
|
||||
_dependingControl_in_action = True
|
||||
Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable(oSqlCommand)
|
||||
Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable(oSqlCommand, "MV_OnLookUp1")
|
||||
Try
|
||||
Dim oDependingLookup As LookupControl2 = pnldesigner.Controls.Find(oDEPENDING_CtrlName, False).FirstOrDefault()
|
||||
For Each oControl As Control In pnldesigner.Controls
|
||||
@ -540,7 +540,7 @@ Public Class frmMassValidator
|
||||
Select Case Typ
|
||||
'Tabellendarstellung
|
||||
Case "TABLE"
|
||||
Dim dt As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {CONTROL_ID} ORDER BY SEQUENCE")
|
||||
Dim dt As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {CONTROL_ID} ORDER BY SEQUENCE", "MV_FillIndexValues")
|
||||
Dim SpaltenWerte As String()
|
||||
If dt.Rows.Count > 1 Then
|
||||
For Each Zeile As Object In wertWD
|
||||
@ -851,7 +851,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, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
|
||||
sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, True)
|
||||
|
||||
_dependingControl_in_action = True
|
||||
Depending_Control_Set_Result(displayboxname, sql_Statement, ROW.Item(1))
|
||||
@ -928,7 +928,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, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
|
||||
sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, True)
|
||||
|
||||
|
||||
_dependingControl_in_action = True
|
||||
@ -1012,7 +1012,7 @@ Public Class frmMassValidator
|
||||
If TypeOf control Is Label Then Exit Sub
|
||||
|
||||
Dim sql As String = $"SELECT NAME, CONNECTION_ID, SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE GUID = {controlId} AND PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(ISNULL(SQL_UEBERPRUEFUNG,'')) > 0 AND SQL_UEBERPRUEFUNG NOT LIKE '%#WMI#%' AND SQL_UEBERPRUEFUNG NOT LIKE '%#CTRL#%'"
|
||||
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
|
||||
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql, "MV_LoadSimpleData")
|
||||
|
||||
If IsNothing(dt) Then Exit Sub
|
||||
If dt.Rows.Count = 0 Then Exit Sub
|
||||
@ -1034,7 +1034,7 @@ Public Class frmMassValidator
|
||||
sql = clsPatterns.ReplaceInternalValues(sql)
|
||||
LOGGER.Debug(">>> sql after ReplaceInternalValues: " & sql)
|
||||
'sql = ClassPatterns.ReplaceInternalValues(sqlStatement)
|
||||
dt = ClassDatabase.Return_Datatable(sql)
|
||||
dt = ClassDatabase.Return_Datatable(sql, "MV_LoadSimpleData1")
|
||||
|
||||
If IsNothing(dt) Then
|
||||
MsgBox($"SQL-Query for control {control.Name} is invalid.")
|
||||
@ -1230,7 +1230,7 @@ Public Class frmMassValidator
|
||||
If Not IsNothing(WORK_HISTORY_ENTRY) Then
|
||||
If CBool(CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_WORK_HISTORY_ENTRY")) = True Then
|
||||
Dim Sql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE GUID = (SELECT MAX(GUID) FROM TBPM_FILES_WORK_HISTORY WHERE PROFIL_ID = {0} AND DOC_ID = {1})", CURRENT_ProfilGUID, CURRENT_DOC_ID)
|
||||
Dim DT_ENTRY As DataTable = ClassDatabase.Return_Datatable(Sql, True)
|
||||
Dim DT_ENTRY As DataTable = ClassDatabase.Return_Datatable(Sql, "MV_Finish1")
|
||||
If Not IsNothing(DT_ENTRY) Then
|
||||
If DT_ENTRY.Rows.Count = 1 Then
|
||||
Dim AnnotationString = DT_ENTRY.Rows(0).Item("WORKED_WHEN") & " " & DT_ENTRY.Rows(0).Item("WORKED_BY") & ": " & DT_ENTRY.Rows(0).Item("STATUS_COMMENT")
|
||||
@ -1241,7 +1241,7 @@ Public Class frmMassValidator
|
||||
Dim value = CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_ALL_WORK_HISTORY_ENTRIES")
|
||||
If CBool(value) = True Then
|
||||
Dim Sql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE DOC_ID = {1} ORDER BY GUID", CURRENT_ProfilGUID, CURRENT_DOC_ID)
|
||||
Dim DT_ENTRIES As DataTable = ClassDatabase.Return_Datatable(Sql, True)
|
||||
Dim DT_ENTRIES As DataTable = ClassDatabase.Return_Datatable(Sql, "MV_Finish2")
|
||||
If Not IsNothing(DT_ENTRIES) Then
|
||||
If DT_ENTRIES.Rows.Count > 0 Then
|
||||
Dim AnnotationString As String = ""
|
||||
@ -1304,12 +1304,12 @@ Public Class frmMassValidator
|
||||
Private Function GetWMDocPathWindows(_CheckStandard As Integer)
|
||||
Dim oResult As String
|
||||
Dim oSQL = $"SELECT [dbo].[FNPM_GET_WM_FILE_PATH] ({CURRENT_DOC_GUID},{_CheckStandard})"
|
||||
oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING)
|
||||
oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, "MVGetWMDocPathWindows1")
|
||||
LOGGER.Debug($"Checking file 0 GDP [{oResult}] exists?...")
|
||||
If File.Exists(oResult) = False Then
|
||||
LOGGER.Debug($"GetWMDocPathWindows returned false - trying with standard again...")
|
||||
oSQL = $"SELECT [dbo].[FNPM_GET_WM_FILE_PATH] ({CURRENT_DOC_GUID},1)"
|
||||
oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING)
|
||||
oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, "MVGetWMDocPathWindows1")
|
||||
LOGGER.Debug($"Checking file 1 GDP [{oResult}] exists?...")
|
||||
If File.Exists(oResult) = False Then
|
||||
Return False
|
||||
|
||||
@ -52,7 +52,7 @@ Public Class frmMonitor
|
||||
oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID)
|
||||
oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
|
||||
oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
|
||||
Dim oDT2 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL)
|
||||
Dim oDT2 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL, "Monitor_Detail1")
|
||||
If Not IsNothing(oDT2) Then
|
||||
LOGGER.Debug($"Found {oDT2.Rows.Count} rows for GridView2")
|
||||
GridView2.Columns.Clear()
|
||||
@ -72,7 +72,7 @@ Public Class frmMonitor
|
||||
oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID)
|
||||
oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
|
||||
oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
|
||||
Dim oDT3 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL)
|
||||
Dim oDT3 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL, "Monitor_Detail2")
|
||||
If Not IsNothing(oDT3) Then
|
||||
LOGGER.Debug($"Found {oDT3.Rows.Count} rows for GridView3")
|
||||
GridView3.Columns.Clear()
|
||||
@ -84,7 +84,7 @@ Public Class frmMonitor
|
||||
oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID)
|
||||
oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
|
||||
oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
|
||||
Dim oDT4 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL)
|
||||
Dim oDT4 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL, "Monitor_Detail3")
|
||||
If Not IsNothing(oDT4) Then
|
||||
LOGGER.Debug($"Found {oDT4.Rows.Count} rows for GridView4")
|
||||
GridView4.Columns.Clear()
|
||||
@ -168,12 +168,12 @@ Public Class frmMonitor
|
||||
Try
|
||||
FormShown = False
|
||||
Dim oSQL = "SELECT * FROM TBPM_MONITOR_KONFIG"
|
||||
DT_MONITOR_KONFIG = ClassDatabase.Return_Datatable(oSQL)
|
||||
DT_MONITOR_KONFIG = ClassDatabase.Return_Datatable(oSQL, "Monitor-Load_Grid_Data1")
|
||||
If Not IsNothing(DT_MONITOR_KONFIG) Then
|
||||
If DT_MONITOR_KONFIG.Rows.Count >= 1 Then
|
||||
oSQL = DT_MONITOR_KONFIG.Rows(0).Item("GRID_SQL")
|
||||
GridView1.Columns.Clear()
|
||||
Dim oDTGRID1 As DataTable = ClassDatabase.Return_Datatable(oSQL)
|
||||
Dim oDTGRID1 As DataTable = ClassDatabase.Return_Datatable(oSQL, "Monitor-Load_Grid_Data2")
|
||||
GridControl1.DataSource = oDTGRID1
|
||||
|
||||
GRID1_TITLE = DT_MONITOR_KONFIG.Rows(0).Item("GRID_TITLE")
|
||||
|
||||
@ -7,7 +7,7 @@ Public Class frmSQL_Admin
|
||||
Private Sub btnrunSQL_Click(sender As Object, e As EventArgs) Handles btnrunSQL.Click
|
||||
If txtSQL.Text <> "" Then
|
||||
If txtSQL.Text.ToLower.StartsWith("select") Then
|
||||
Dim dt As DataTable = ClassDatabase.Return_Datatable(txtSQL.Text)
|
||||
Dim dt As DataTable = ClassDatabase.Return_Datatable(txtSQL.Text, "btnrunSQL_Click")
|
||||
If Not dt Is Nothing Then
|
||||
XtraTabControl1.SelectedTabPageIndex = 1
|
||||
BindingSource1.DataSource = dt
|
||||
|
||||
@ -35,9 +35,9 @@ Public Class frmSQL_DESIGNER
|
||||
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
|
||||
TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
|
||||
If CURRENT_DESIGN_TYPE = "INPUT_INDEX" Then
|
||||
CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_UEBERPRUEFUNG,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_CONTROLS T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_CONTROL_ID), True)
|
||||
CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_UEBERPRUEFUNG,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_CONTROLS T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_CONTROL_ID), "frmSQL_FINAL_INDICES_Load1")
|
||||
Else
|
||||
CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_COMMAND,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_FINAL_INDEXING T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_INDEX_ID), True)
|
||||
CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_COMMAND,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_FINAL_INDEXING T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_INDEX_ID), "frmSQL_FINAL_INDICES_Load2")
|
||||
End If
|
||||
|
||||
|
||||
@ -48,7 +48,7 @@ Public Class frmSQL_DESIGNER
|
||||
End If
|
||||
|
||||
Dim oSQL = String.Format("SELECT NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND CTRL_TYPE <> 'LBL' ORDER BY NAME", CURRENT_ProfilGUID)
|
||||
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL, True)
|
||||
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL, "frmSQL_FINAL_INDICES_Load3")
|
||||
cmbControls.DataSource = oDatatable
|
||||
cmbControls.DisplayMember = oDatatable.Columns(0).ColumnName
|
||||
cmbControls.Visible = True
|
||||
|
||||
@ -172,7 +172,7 @@ Public Class frmUserKonfig_AddUsers
|
||||
If Not UserExists(USERNAME) Then
|
||||
SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "','" & USER_USERNAME & "')"
|
||||
If ClassDatabase.Execute_non_Query(SQL, False) = True Then
|
||||
Dim ID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_USER", CONNECTION_STRING)
|
||||
Dim ID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_USER", CONNECTION_STRING, "btnAddUsers_Click")
|
||||
Dim msg = String.Format(">> USER {0}, {1} - {2} ADDED TO CONFIGURATION", NAME, PRENAME, USERNAME)
|
||||
LOGGER.Info(msg)
|
||||
SQL = String.Format("INSERT INTO TBDD_USER_MODULES (USER_ID,MODULE_ID) VALUES ({0},(SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'PM'))", ID)
|
||||
@ -207,7 +207,7 @@ Public Class frmUserKonfig_AddUsers
|
||||
Private Function UserExists(username As String) As Boolean
|
||||
Try
|
||||
Dim SQL = "SELECT GUID FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER('" & username & "')"
|
||||
If ClassDatabase.Execute_Scalar(SQL, CONNECTION_STRING, True) = Nothing Then
|
||||
If ClassDatabase.Execute_Scalar(SQL, CONNECTION_STRING, "UserExists") = Nothing Then
|
||||
Return False
|
||||
Else
|
||||
Return True
|
||||
|
||||
@ -138,7 +138,7 @@
|
||||
<value>No</value>
|
||||
</data>
|
||||
<data name="TITLELabel1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>549, 29</value>
|
||||
<value>565, 29</value>
|
||||
</data>
|
||||
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="TITLELabel1.TabIndex" type="System.Int32, mscorlib">
|
||||
@ -172,13 +172,13 @@
|
||||
<value>MiddleLeft</value>
|
||||
</data>
|
||||
<data name="btnSave.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>7, 419</value>
|
||||
<value>7, 459</value>
|
||||
</data>
|
||||
<data name="btnSave.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
|
||||
<value>3, 4, 3, 4</value>
|
||||
</data>
|
||||
<data name="btnSave.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>561, 50</value>
|
||||
<value>577, 50</value>
|
||||
</data>
|
||||
<data name="btnSave.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>11</value>
|
||||
@ -205,7 +205,7 @@
|
||||
<value>5, 33</value>
|
||||
</data>
|
||||
<data name="DESCRIPTIONLabel.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>563, 48</value>
|
||||
<value>579, 48</value>
|
||||
</data>
|
||||
<data name="DESCRIPTIONLabel.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>1</value>
|
||||
@ -238,7 +238,7 @@
|
||||
<value>3, 4, 3, 4</value>
|
||||
</data>
|
||||
<data name="pnldesigner.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>560, 326</value>
|
||||
<value>576, 366</value>
|
||||
</data>
|
||||
<data name="pnldesigner.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>18</value>
|
||||
@ -265,7 +265,7 @@
|
||||
<value>3, 4, 3, 4</value>
|
||||
</data>
|
||||
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>571, 476</value>
|
||||
<value>587, 516</value>
|
||||
</data>
|
||||
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>24</value>
|
||||
@ -304,7 +304,7 @@
|
||||
<value>3, 4, 3, 4</value>
|
||||
</data>
|
||||
<data name="DocumentViewerValidator.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>577, 476</value>
|
||||
<value>594, 516</value>
|
||||
</data>
|
||||
<data name="DocumentViewerValidator.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>0</value>
|
||||
@ -334,10 +334,10 @@
|
||||
<value>1</value>
|
||||
</data>
|
||||
<data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1152, 476</value>
|
||||
<value>1185, 516</value>
|
||||
</data>
|
||||
<data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib">
|
||||
<value>571</value>
|
||||
<value>587</value>
|
||||
</data>
|
||||
<data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>37</value>
|
||||
@ -373,7 +373,7 @@
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="barDockControlTop.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1152, 0</value>
|
||||
<value>1185, 0</value>
|
||||
</data>
|
||||
<data name=">>barDockControlTop.Name" xml:space="preserve">
|
||||
<value>barDockControlTop</value>
|
||||
@ -391,10 +391,10 @@
|
||||
<value>Bottom</value>
|
||||
</data>
|
||||
<data name="barDockControlBottom.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 643</value>
|
||||
<value>0, 683</value>
|
||||
</data>
|
||||
<data name="barDockControlBottom.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1152, 0</value>
|
||||
<value>1185, 0</value>
|
||||
</data>
|
||||
<data name=">>barDockControlBottom.Name" xml:space="preserve">
|
||||
<value>barDockControlBottom</value>
|
||||
@ -415,7 +415,7 @@
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="barDockControlLeft.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>0, 643</value>
|
||||
<value>0, 683</value>
|
||||
</data>
|
||||
<data name=">>barDockControlLeft.Name" xml:space="preserve">
|
||||
<value>barDockControlLeft</value>
|
||||
@ -433,10 +433,10 @@
|
||||
<value>Right</value>
|
||||
</data>
|
||||
<data name="barDockControlRight.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>1152, 0</value>
|
||||
<value>1185, 0</value>
|
||||
</data>
|
||||
<data name="barDockControlRight.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>0, 643</value>
|
||||
<value>0, 683</value>
|
||||
</data>
|
||||
<data name=">>barDockControlRight.Name" xml:space="preserve">
|
||||
<value>barDockControlRight</value>
|
||||
@ -460,7 +460,7 @@
|
||||
<value>7, 17</value>
|
||||
</data>
|
||||
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1152, 643</value>
|
||||
<value>1185, 683</value>
|
||||
</data>
|
||||
<data name="bsiError.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing">
|
||||
<value>Tahoma, 8.25pt, style=Bold</value>
|
||||
@ -862,13 +862,13 @@
|
||||
<value>Start</value>
|
||||
</data>
|
||||
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1152, 146</value>
|
||||
<value>1185, 146</value>
|
||||
</data>
|
||||
<data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 622</value>
|
||||
<value>0, 662</value>
|
||||
</data>
|
||||
<data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1152, 21</value>
|
||||
<value>1185, 21</value>
|
||||
</data>
|
||||
<data name=">>RibbonStatusBar1.Name" xml:space="preserve">
|
||||
<value>RibbonStatusBar1</value>
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -414,7 +414,7 @@ Public Class frmValidatorSearch
|
||||
If IsNothing(_DTSQLSearches) Then Exit Sub
|
||||
Dim oConID = _DTSQLSearches.Rows(XtraTabControlSQL.SelectedTabPageIndex).Item("CONN_ID")
|
||||
Dim oCommand = _DTSQLSearches.Rows(XtraTabControlSQL.SelectedTabPageIndex).Item("SQL_COMMAND")
|
||||
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
|
||||
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, True)
|
||||
Dim oTabIndex = _DTSQLSearches.Rows(XtraTabControlSQL.SelectedTabPageIndex).Item("TAB_INDEX")
|
||||
Dim oTabCaption = _DTSQLSearches.Rows(XtraTabControlSQL.SelectedTabPageIndex).Item("TAB_TITLE")
|
||||
RefreshTabSQL(oConID, oCommand, oTabIndex, oTabCaption)
|
||||
@ -423,7 +423,7 @@ Public Class frmValidatorSearch
|
||||
If IsNothing(_DTDocSearches) Then Exit Sub
|
||||
Dim oConID = _DTDocSearches.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("CONN_ID")
|
||||
Dim oCommand = _DTDocSearches.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("SQL_COMMAND")
|
||||
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
|
||||
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, True)
|
||||
Dim oTabIndex = _DTDocSearches.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("TAB_INDEX")
|
||||
Dim oTabCaption = _DTDocSearches.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("TAB_TITLE")
|
||||
RefreshTabDoc(oConID, oCommand, oTabIndex, oTabCaption)
|
||||
@ -610,7 +610,7 @@ Public Class frmValidatorSearch
|
||||
_DTSQLSearches = BASEDATA_DT_PROFILE_SEARCHES_SQL
|
||||
Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID")
|
||||
Dim oCommand = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND")
|
||||
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
|
||||
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, True)
|
||||
XtraTabControlSQL.SelectedTabPageIndex = 0
|
||||
Refresh_Load_GridSQL(oConID, oCommand, 0, BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("TAB_TITLE"))
|
||||
End If
|
||||
@ -618,7 +618,7 @@ Public Class frmValidatorSearch
|
||||
_DTDocSearches = BASEDATA_DT_PROFILE_SEARCHES_DOC
|
||||
Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID")
|
||||
Dim oCommand = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND")
|
||||
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
|
||||
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, True)
|
||||
XtraTabControlDocs.SelectedTabPageIndex = 0
|
||||
RefreshTabDoc(oConID, oCommand, 0, BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("TAB_TITLE"))
|
||||
End If
|
||||
@ -635,7 +635,7 @@ Public Class frmValidatorSearch
|
||||
Dim oTabIndex = XtraTabControlDocs.SelectedTabPageIndex
|
||||
Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("CONN_ID")
|
||||
Dim oCommand = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("SQL_COMMAND")
|
||||
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
|
||||
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, True)
|
||||
RefreshTabDoc(oConID, oCommand, oTabIndex, BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("TAB_TITLE"))
|
||||
End Sub
|
||||
|
||||
@ -667,7 +667,7 @@ Public Class frmValidatorSearch
|
||||
Dim oTabIndex = XtraTabControlSQL.SelectedTabPageIndex
|
||||
Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(oTabIndex).Item("CONN_ID")
|
||||
Dim oCommand = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(oTabIndex).Item("SQL_COMMAND")
|
||||
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
|
||||
oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, True)
|
||||
RefreshTabSQL(oConID, oCommand, oTabIndex, BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(oTabIndex).Item("TAB_TITLE"))
|
||||
End Sub
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user