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

MS_19.10

Browse Source
This commit is contained in:
SchreiberM
2015-10-19 14:53:16 +02:00
parent c74e5434b9
commit b228bae28a
8 changed files with 111 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

90
app/DD-Record-Organiser/frmLevel_Designer.vb
View File

@@ -10,7 +10,7 @@
'Public Shared CtrlBuilder As ClassControlBuilder
#End Region
Dim formloaded As Boolean = False
Public Shared Function Instance() As frmLevel_Designer
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
_Instance = New frmLevel_Designer
@@ -36,15 +36,59 @@
If DT.Rows.Count = 1 Then
If Not IsDBNull(DT.Rows(0).Item(0)) Then
txtWindreamsuche.Text = ClassHelper.CheckDBNull(DT.Rows(0).Item(0), "String")
cmbSearchPattern1.SelectedIndex = cmbSearchPattern1.FindStringExact(ClassHelper.CheckDBNull(DT.Rows(0).Item(1), "String"))
cmbSearchPattern2.SelectedIndex = cmbSearchPattern2.FindStringExact(ClassHelper.CheckDBNull(DT.Rows(0).Item(2), "String"))
cmbSearchPattern3.SelectedIndex = cmbSearchPattern3.FindStringExact(ClassHelper.CheckDBNull(DT.Rows(0).Item(3), "String"))
cmbSearchPattern4.SelectedIndex = cmbSearchPattern4.FindStringExact(ClassHelper.CheckDBNull(DT.Rows(0).Item(4), "String"))
cmbSearchPattern5.SelectedIndex = cmbSearchPattern5.FindStringExact(ClassHelper.CheckDBNull(DT.Rows(0).Item(5), "String"))
'Form-ID (Entity)
'Record -ID
Dim result
result = ClassHelper.CheckDBNull(DT.Rows(0).Item(1), "String")
If result <> "" Then
If result.ToString.ToUpper.Contains("RECORD") Then
cmbSearchPattern1.SelectedIndex = 1
Else
cmbSearchPattern1.SelectedIndex = 0
End If
End If
result = ClassHelper.CheckDBNull(DT.Rows(0).Item(2), "String")
If result <> "" Then
If result.ToString.ToUpper.Contains("RECORD") Then
cmbSearchPattern2.SelectedIndex = 1
Else
cmbSearchPattern2.SelectedIndex = 0
End If
End If
result = ClassHelper.CheckDBNull(DT.Rows(0).Item(3), "String")
If result <> "" Then
If result.ToString.ToUpper.Contains("RECORD") Then
cmbSearchPattern3.SelectedIndex = 1
Else
cmbSearchPattern3.SelectedIndex = 0
End If
End If
result = ClassHelper.CheckDBNull(DT.Rows(0).Item(4), "String")
If result <> "" Then
If result.ToString.ToUpper.Contains("RECORD") Then
cmbSearchPattern4.SelectedIndex = 1
Else
cmbSearchPattern4.SelectedIndex = 0
End If
End If
result = ClassHelper.CheckDBNull(DT.Rows(0).Item(5), "String")
If result <> "" Then
If result.ToString.ToUpper.Contains("RECORD") Then
cmbSearchPattern5.SelectedIndex = 1
Else
cmbSearchPattern5.SelectedIndex = 0
End If
End If
'cmbSearchPattern1.SelectedIndex = cmbSearchPattern1.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(1), "String"))
'cmbSearchPattern2.SelectedIndex = cmbSearchPattern2.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(2), "String"))
'cmbSearchPattern3.SelectedIndex = cmbSearchPattern3.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(3), "String"))
'cmbSearchPattern4.SelectedIndex = cmbSearchPattern4.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(4), "String"))
'cmbSearchPattern5.SelectedIndex = cmbSearchPattern5.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(5), "String"))
End If
End If
Me.grpbxDocumentView.Visible = True
Else
chkbxdocview.Visible = True
chkbxdocview.Checked = False
Me.grpbxDocumentView.Visible = False
End If
@@ -602,27 +646,27 @@
Try
Dim SP1, SP2, SP3, SP4, SP5
If cmbSearchPattern1.SelectedIndex <> -1 Then
SP1 = cmbSearchPattern1.Text
SP1 = "@" & cmbSearchPattern1.Text
Else
SP1 = ""
End If
If cmbSearchPattern2.SelectedIndex <> -1 Then
SP2 = cmbSearchPattern2.Text
SP2 = "@" & cmbSearchPattern2.Text
Else
SP2 = ""
End If
If cmbSearchPattern3.SelectedIndex <> -1 Then
SP3 = cmbSearchPattern3.Text
SP3 = "@" & cmbSearchPattern3.Text
Else
SP3 = ""
End If
If cmbSearchPattern4.SelectedIndex <> -1 Then
SP4 = cmbSearchPattern4.Text
SP4 = "@" & cmbSearchPattern4.Text
Else
SP4 = ""
End If
If cmbSearchPattern5.SelectedIndex <> -1 Then
SP5 = cmbSearchPattern5.Text
SP5 = "@" & cmbSearchPattern5.Text
Else
SP5 = ""
End If
@@ -640,17 +684,23 @@
End Sub
Private Sub chkbxdocview_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxdocview.CheckedChanged
Dim sql
If chkbxdocview.Checked = True Then
sql = "UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = 1, CHANGED_WHO = '" & Environment.UserName & "' WHERE FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
Else
sql = "UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = 0, CHANGED_WHO = '" & Environment.UserName & "' WHERE FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
If formloaded = True Then
Dim sql
If chkbxdocview.Checked = True Then
sql = "UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = 1, CHANGED_WHO = '" & Environment.UserName & "' WHERE FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
Else
sql = "UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = 0, CHANGED_WHO = '" & Environment.UserName & "' WHERE FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
End If
If ClassDatabase.Execute_non_Query(sql) = False Then
MsgBox("Fehler bei Update Document-View - Check log", MsgBoxStyle.Critical)
End If
Check_Document_Config(CURRENT_FORM_ID)
End If
If ClassDatabase.Execute_non_Query(sql) = False Then
MsgBox("Fehler bei Update Document-View - Check log", MsgBoxStyle.Critical)
End If
Check_Document_Config(CURRENT_FORM_ID)
End Sub
Private Sub frmLevel_Designer_Shown(sender As Object, e As EventArgs) Handles Me.Shown
formloaded = True
End Sub
End Class