AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

DAtabase integriert

Browse Source
This commit is contained in:
SchreiberM
2023-05-22 16:55:44 +02:00
parent 2db575d944
commit c2deb54f11
114 changed files with 8526 additions and 14722 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
app/DD-Record-Organizer/frmTemplates.vb
View File

@@ -36,7 +36,7 @@
Try
Dim sql As String = "SELECT T.GUID, T2.FORM_TITLE, T.ENTITY_ID FROM TBPMO_TEMPLATE_ENTITY T, TBPMO_FORM T1, TBPMO_FORM_VIEW T2 " & _
"WHERE T.ENTITY_ID = T1.GUID And T1.GUID = T2.FORM_ID And T2.SCREEN_ID = 1 And T.TEMPLATE_ID = " & ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
If DT.Rows.Count > 0 Then
ListBox_Entity.DataSource = DT
ListBox_Entity.DisplayMember = DT.Columns(1).ColumnName
@@ -56,7 +56,7 @@
Sub Load_Template_Patterns(ID As Integer)
Try
Me.TBPMO_TEMPLATE_PATTERNTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_TEMPLATE_PATTERN, ID)
Dim DT1 As DataTable = ClassDatabase.Return_Datatable("SELECT [CONTROL_ID] ,CONTROL_COL_NAME AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID in (2,3,4) AND FORM_ID = " & _ENTITY_ID)
Dim DT1 As DataTable = MYDB_ECM.GetDatatable("SELECT [CONTROL_ID] ,CONTROL_COL_NAME AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID in (2,3,4) AND FORM_ID = " & _ENTITY_ID)
cmbControls.DataSource = DT1
cmbControls.DisplayMember = DT1.Columns(1).ColumnName
cmbControls.ValueMember = DT1.Columns(0).ColumnName
@@ -165,7 +165,7 @@
Private Function Pattern_exists(name As String)
Try
Dim sql = "select count(*) from TBPMO_TEMPLATE_PATTERN where UPPER(NAME_PATTERN) = UPPER('" & name & "') AND TEMPLATE_ENT_ID = " & _TEMPLATE_ENTITY_ID
Dim result = ClassDatabase.Execute_Scalar(sql)
Dim result = MYDB_ECM.GetScalarValue(SQL)
If IsNothing(result) Then
Return False
ElseIf result = 1 Then
@@ -208,7 +208,7 @@
Private Sub ListBox_Entity_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox_Entity.SelectedIndexChanged
_TEMPLATE_ENTITY_ID = ListBox_Entity.SelectedValue
_ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT ENTITY_ID FROM TBPMO_TEMPLATE_ENTITY WHERE GUID = " & _TEMPLATE_ENTITY_ID)
_ENTITY_ID = MYDB_ECM.GetScalarValue("SELECT ENTITY_ID FROM TBPMO_TEMPLATE_ENTITY WHERE GUID = " & _TEMPLATE_ENTITY_ID)
Load_Template_Patterns(_TEMPLATE_ENTITY_ID)
End Sub
Private Sub ToolStripButton10_Click(sender As Object, e As EventArgs) Handles ToolStripButton10.Click
@@ -221,7 +221,7 @@
If cmbControls.SelectedIndex <> -1 Then
If cmbControls.Text <> "System.Data.DataRowView" Then
Dim Sql = "select TOP 30 [" & cmbControls.Text & "] FROM VWPMO_ENTITY_TABLE" & _ENTITY_ID & " WHERE [" & cmbControls.Text & "] IS NOT NULL AND [" & cmbControls.Text & "] <> '' GROUP BY [" & cmbControls.Text & "]"
Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
If DT.Rows.Count > 0 Then
ListBoxVorschau.DataSource = DT
ListBoxVorschau.DataSource = DT
@@ -229,7 +229,7 @@
End If
If FIXED_VALUETextBox.Text <> "" Then
Dim name = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE GUID = " & FIXED_VALUETextBox.Text
name = ClassDatabase.Execute_Scalar(name, True)
name = MYDB_ECM.GetScalarValue(name)
If cmbControls.Text <> name Then
btnRefreshControlPattern.Visible = True
Else
@@ -256,7 +256,7 @@
If cmbControls.SelectedIndex <> -1 Then
Dim ctrlstring = cmbControls.SelectedValue.ToString
Dim sql = String.Format("UPDATE TBPMO_TEMPLATE_PATTERN SET FIXED_VALUE = '{0}',CHANGED_WHO = '{1}' WHERE GUID = {2}", ctrlstring, USER_USERNAME, GUIDTextBox2.Text)
If ClassDatabase.Execute_non_Query(sql) Then
If MYDB_ECM.ExecuteNonQuery(Sql) Then
FIXED_VALUETextBox.Text = ctrlstring
lblSavePattern.Visible = True
Else
@@ -274,7 +274,7 @@
Sub Get_CONTROL_COMBOBOX()
If IsNumeric(FIXED_VALUETextBox.Text) Then
Dim name = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE GUID = " & FIXED_VALUETextBox.Text
name = ClassDatabase.Execute_Scalar(name, True)
name = MYDB_ECM.GetScalarValue(name)
cmbControls.SelectedIndex = cmbControls.FindStringExact(name)
Else
btnRefreshControlPattern.Visible = True