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

MS_04.01

Browse Source
This commit is contained in:
SchreiberM
2017-01-04 17:09:26 +01:00
parent 4ab7e368b1 29b3857635
commit 26812ffeb7
128 changed files with 17813 additions and 20419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD-Record-Organiser/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, "Load_Template_Entity")
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
If DT.Rows.Count > 0 Then
ListBox_Entity.DataSource = DT
ListBox_Entity.DisplayMember = DT.Columns(1).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, True)
Dim result = ClassDatabase.Execute_Scalar(sql)
If IsNothing(result) Then
Return False
ElseIf result = 1 Then
@@ -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, True) Then
If ClassDatabase.Execute_non_Query(sql) Then
FIXED_VALUETextBox.Text = ctrlstring
lblSavePattern.Visible = True
Else