MS Divers Globix,EDMI Service etc
This commit is contained in:
@@ -22,6 +22,9 @@ Public Class frmFlowSearch
|
||||
Private SEARCH_FACT_DATE As String = "MONTH(OBJ.ADDED_WHEN) <> 13"
|
||||
Private SEARCH_FACT_DATE_ATTRIBUTE = "ADDED_WHEN"
|
||||
Private Language_Term_Object As String
|
||||
Private LIMITATION_DATE As Boolean = False
|
||||
Private TOGGLE_Change As Boolean = False
|
||||
Private CATEGORIES_SELECTED As String = ""
|
||||
Public Sub New(pBaseSearchSql As String)
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
@@ -37,25 +40,31 @@ Public Class frmFlowSearch
|
||||
End Sub
|
||||
Private Sub frmFlowSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Try
|
||||
RibbonControl1.Minimized = True
|
||||
TileControlMatch.Groups.Clear()
|
||||
Dim oDT As DataTable = ASorDB.GetDatatable("IDB", $"SELECT * FROM VWIDB_BE_ATTRIBUTE", "VWIDB_BE_ATTRIBUTE", "", "ATTR_TITLE")
|
||||
If My.Application.User.Language = "de-DE" Then
|
||||
RepositoryItemComboBox1.Items.Add(IDB_ADDED_WHEN_String_German)
|
||||
Else
|
||||
RepositoryItemComboBox1.Items.Add(IDB_ADDED_WHEN_String_Englisch)
|
||||
End If
|
||||
|
||||
Dim oDTCategory As DataTable = ASorDB.GetDatatable("IDB", $"SELECT 'NONE' as CATEGORY", "VWAPPSERV_CATEGORIES", "", "CATEGORY")
|
||||
If Not IsNothing(oDTCategory) Then
|
||||
CheckedListBoxCategories.DataSource = oDTCategory
|
||||
CheckedListBoxCategories.DisplayMember = "CATEGORY"
|
||||
End If
|
||||
If My.Application.User.Language = "de-DE" Then
|
||||
cmbAttributeDate.Items.Add(IDB_ADDED_WHEN_String_German)
|
||||
Else
|
||||
cmbAttributeDate.Items.Add(IDB_ADDED_WHEN_String_Englisch)
|
||||
End If
|
||||
Dim oDT As DataTable = ASorDB.GetDatatable("IDB", $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE TYPE_ID = 5 AND LANG_ID = {My.Application.User.LanguageID}", "VWIDB_BE_ATTRIBUTE", $"TYPE_ID = 5 AND LANG_ID = {My.Application.User.LanguageID}")
|
||||
For Each oRow As DataRow In oDT.Rows
|
||||
If oRow.Item("TYPE_ID") = 5 Then
|
||||
RepositoryItemComboBox1.Items.Add(oRow.Item("ATTR_TITLE"))
|
||||
End If
|
||||
cmbAttributeDate.Items.Add(oRow.Item("ATTR_TITLE"))
|
||||
Next
|
||||
'Dim editor As BarEditItem = BarEditItemDate
|
||||
' editor = TryCast(BarEditItemDate, ComboBoxEdit)
|
||||
If My.Application.User.Language = "de-DE" Then
|
||||
BarEditItemDate.EditValue = "Erstellt Wann"
|
||||
cmbAttributeDate.SelectedIndex = 0
|
||||
' BarEditItemDate.EditValue = "Erstellt Wann"
|
||||
Else
|
||||
BarEditItemDate.EditValue = "Added when"
|
||||
cmbAttributeDate.SelectedIndex = 1
|
||||
' BarEditItemDate.EditValue = "Added when"
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
@@ -64,25 +73,7 @@ Public Class frmFlowSearch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Private Sub RepositoryItemComboBox1_EditValueChanged(sender As Object, e As EventArgs) Handles RepositoryItemComboBox1.EditValueChanged
|
||||
Try
|
||||
Dim oEditor As ComboBoxEdit
|
||||
Dim oEditValue As String
|
||||
oEditor = TryCast(RibbonControl1.Manager.ActiveEditor, ComboBoxEdit)
|
||||
oEditValue = oEditor.EditValue
|
||||
|
||||
If oEditValue = IDB_ADDED_WHEN_String_German Or oEditValue = IDB_ADDED_WHEN_String_Englisch Then
|
||||
SEARCH_FACT_DATE_ATTRIBUTE = "ADDED_WHEN"
|
||||
Else
|
||||
SEARCH_FACT_DATE_ATTRIBUTE = oEditValue
|
||||
SEARCH_FACT_DATE = $"MONTH(GRPDATE.[{SEARCH_FACT_DATE_ATTRIBUTE}]) <> 13"
|
||||
End If
|
||||
SearchContent()
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearchTerm.TextChanged
|
||||
Try
|
||||
|
||||
@@ -108,6 +99,8 @@ Public Class frmFlowSearch
|
||||
If txtSearchTerm.Text = String.Empty Then
|
||||
Exit Sub
|
||||
End If
|
||||
GET_SELECTED_CATEGORIES()
|
||||
|
||||
Dim oSearchValue = Trim(txtSearchTerm.Text)
|
||||
oLastAttribute = ""
|
||||
Dim oSQL = BASE_SEARCHCommand.Replace("@SEARCH_STRING", oSearchValue)
|
||||
@@ -183,6 +176,8 @@ Public Class frmFlowSearch
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
lblFoundResult.Text = $"Unexpected Error in SearchContent {ex.Message}"
|
||||
lblFoundResult.Visible = True
|
||||
End Try
|
||||
|
||||
|
||||
@@ -335,16 +330,33 @@ Public Class frmFlowSearch
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub txtSearch_Enter(sender As Object, e As EventArgs) Handles txtSearchTerm.GotFocus
|
||||
Private Sub txtSearch_GotFocus(sender As Object, e As EventArgs) Handles txtSearchTerm.GotFocus
|
||||
Label1.Visible = True
|
||||
Dim oTEXTBOX As TextBox = CType(sender, TextBox)
|
||||
oTEXTBOX.BackColor = Color.FromArgb(255, 214, 47)
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub txtSearchTerm_Leave(sender As Object, e As EventArgs) Handles txtSearchTerm.Leave
|
||||
Dim oTEXTBOX As TextBox = CType(sender, TextBox)
|
||||
oTEXTBOX.BackColor = Color.White
|
||||
End Sub
|
||||
Sub GET_SELECTED_CATEGORIES()
|
||||
CATEGORIES_SELECTED = ""
|
||||
Dim i As Integer = 0
|
||||
For Each item As Object In CheckedListBoxCategories.CheckedItems
|
||||
Dim row As DataRowView = TryCast(item, DataRowView)
|
||||
Dim oItem = $"'{row("CATEGORY")}'"
|
||||
If i = 0 Then
|
||||
CATEGORIES_SELECTED = oItem
|
||||
End If
|
||||
If Not CATEGORIES_SELECTED.StartsWith(oItem) Then
|
||||
CATEGORIES_SELECTED &= String.Format(",{0}", oItem)
|
||||
End If
|
||||
|
||||
i += 1
|
||||
Next item
|
||||
End Sub
|
||||
|
||||
Private Sub TileControlMatch_ItemClick(sender As Object, e As TileItemEventArgs) Handles TileControlMatch.ItemClick
|
||||
Try
|
||||
@@ -356,7 +368,7 @@ Public Class frmFlowSearch
|
||||
Dim oSplit = oItem.Tag.ToString.Split("|")
|
||||
Try
|
||||
oHandle = SplashScreenManager.ShowOverlayForm(Me)
|
||||
Dim oDT As DataTable = ASorDB.GetDatatable("IDB", $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = {oSplit(1)}", "VWIDB_BE_ATTRIBUTE", $"ATTR_ID = {oSplit(1)}")
|
||||
Dim oDT As DataTable = ASorDB.GetDatatable("IDB", $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = {oSplit(1)} AND LANG_ID = {My.Application.User.LanguageID}", "VWIDB_BE_ATTRIBUTE", $"ATTR_ID = {oSplit(1)} AND LANG_ID = {My.Application.User.LanguageID}")
|
||||
Dim oType = oDT.Rows(0).Item("TYPE_NAME")
|
||||
Dim oEXECSQL = $"EXEC PRFLOW_SEARCH_GET_RESULT_PER_TILE {oSplit(0)},{My.Application.User.UserId},'{oType}',{oSplit(1)},'{My.Application.User.Language}'"
|
||||
Dim oDTOBJECT_RESULT As DataTable = My.DatabaseIDB.GetDatatable(oEXECSQL)
|
||||
@@ -391,88 +403,8 @@ Public Class frmFlowSearch
|
||||
Logger.Error(ex)
|
||||
End Try
|
||||
End Function
|
||||
Private Sub BarToggleSwitchItem_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarToggleSwitchItemCURRENTYEAR.CheckedChanged, BarToggleSwitchItemLASTYEAR.CheckedChanged, BarToggleSwitchItemCURRENTMONTH.CheckedChanged,
|
||||
BarToggleSwitchItemLASTMONTH.CheckedChanged, BarToggleSwitchItemTODAY.CheckedChanged, BarToggleSwitchItemYESTERDAY.CheckedChanged
|
||||
Dim btsi As BarToggleSwitchItem = TryCast(sender, BarToggleSwitchItem)
|
||||
If btsi.Checked = True Then
|
||||
BarToggleSwitchItemDateALL.Checked = False
|
||||
Dim oWHENDATE As String
|
||||
Select Case btsi.Name
|
||||
Case "BarToggleSwitchItemCURRENTYEAR"
|
||||
oWHENDATE = GET_DATE_LIMITATION("YEAR(@ATTRIBUTE) = YEAR(GETDATE())")
|
||||
Case "BarToggleSwitchItemLASTYEAR"
|
||||
oWHENDATE = GET_DATE_LIMITATION("YEAR(@ATTRIBUTE) = (YEAR(GETDATE()) -1)")
|
||||
Case "BarToggleSwitchItemCURRENTMONTH"
|
||||
oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = MONTH(GETDATE())")
|
||||
Case "BarToggleSwitchItemLASTMONTH"
|
||||
Dim currentDate As DateTime = DateTime.Now
|
||||
If currentDate.Month = 1 Then
|
||||
oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = 12 " & vbNewLine & "AND YEAR(@ATTRIBUTE) = (YEAR(GETDATE()) -1)")
|
||||
Else
|
||||
oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = (MONTH(GETDATE()) -1)")
|
||||
End If
|
||||
|
||||
Case "BarToggleSwitchItemTODAY"
|
||||
oWHENDATE = GET_DATE_LIMITATION("convert(DATE,@ATTRIBUTE) = convert(DATE,GETDATE())")
|
||||
Case "BarToggleSwitchItemYESTERDAY"
|
||||
oWHENDATE = GET_DATE_LIMITATION("convert(DATE,@ATTRIBUTE) = convert(DATE,GETDATE()-1)")
|
||||
End Select
|
||||
SEARCH_FACT_DATE = oWHENDATE
|
||||
Select Case btsi.Name
|
||||
Case "BarToggleSwitchItemCURRENTYEAR"
|
||||
BarToggleSwitchItemLASTYEAR.Checked = False
|
||||
BarToggleSwitchItemCURRENTMONTH.Checked = False
|
||||
BarToggleSwitchItemLASTMONTH.Checked = False
|
||||
BarToggleSwitchItemTODAY.Checked = False
|
||||
BarToggleSwitchItemYESTERDAY.Checked = False
|
||||
Case "BarToggleSwitchItemLASTYEAR"
|
||||
BarToggleSwitchItemCURRENTYEAR.Checked = False
|
||||
BarToggleSwitchItemCURRENTMONTH.Checked = False
|
||||
BarToggleSwitchItemLASTMONTH.Checked = False
|
||||
BarToggleSwitchItemTODAY.Checked = False
|
||||
BarToggleSwitchItemYESTERDAY.Checked = False
|
||||
Case "BarToggleSwitchItemCURRENTMONTH"
|
||||
BarToggleSwitchItemCURRENTYEAR.Checked = False
|
||||
BarToggleSwitchItemLASTYEAR.Checked = False
|
||||
BarToggleSwitchItemLASTMONTH.Checked = False
|
||||
BarToggleSwitchItemTODAY.Checked = False
|
||||
BarToggleSwitchItemYESTERDAY.Checked = False
|
||||
Case "BarToggleSwitchItemLASTMONTH"
|
||||
BarToggleSwitchItemCURRENTYEAR.Checked = False
|
||||
BarToggleSwitchItemLASTYEAR.Checked = False
|
||||
BarToggleSwitchItemCURRENTMONTH.Checked = False
|
||||
BarToggleSwitchItemTODAY.Checked = False
|
||||
BarToggleSwitchItemYESTERDAY.Checked = False
|
||||
Case "BarToggleSwitchItemTODAY"
|
||||
BarToggleSwitchItemCURRENTYEAR.Checked = False
|
||||
BarToggleSwitchItemLASTYEAR.Checked = False
|
||||
BarToggleSwitchItemCURRENTMONTH.Checked = False
|
||||
BarToggleSwitchItemYESTERDAY.Checked = False
|
||||
Case "BarToggleSwitchItemYESTERDAY"
|
||||
BarToggleSwitchItemCURRENTYEAR.Checked = False
|
||||
BarToggleSwitchItemLASTYEAR.Checked = False
|
||||
BarToggleSwitchItemCURRENTMONTH.Checked = False
|
||||
BarToggleSwitchItemTODAY.Checked = False
|
||||
End Select
|
||||
Start_FlowSearch()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub BarToggleSwitchItemDateALL_CheckedChanged(sender As Object, e As ItemClickEventArgs) Handles BarToggleSwitchItemDateALL.CheckedChanged
|
||||
Dim btn As BarToggleSwitchItem = TryCast(sender, BarToggleSwitchItem)
|
||||
If btn.Checked = True Then
|
||||
BarToggleSwitchItemCURRENTYEAR.Checked = False
|
||||
BarToggleSwitchItemLASTYEAR.Checked = False
|
||||
BarToggleSwitchItemCURRENTMONTH.Checked = False
|
||||
BarToggleSwitchItemLASTMONTH.Checked = False
|
||||
BarToggleSwitchItemCURRENTMONTH.Checked = False
|
||||
BarToggleSwitchItemTODAY.Checked = False
|
||||
'SEARCH_FACT_DATE = "MONTH(OBJ.ADDED_WHEN) <> 13"
|
||||
End If
|
||||
Start_FlowSearch()
|
||||
|
||||
End Sub
|
||||
Sub Start_FlowSearch(Optional AllOver As Boolean = False)
|
||||
If txtSearchTerm.Text <> String.Empty Or AllOver = True Then
|
||||
SearchContent()
|
||||
@@ -484,7 +416,7 @@ Public Class frmFlowSearch
|
||||
End Sub
|
||||
|
||||
Private Sub CheckButton1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckButton1.CheckedChanged
|
||||
If BarToggleSwitchItemDateALL.Checked = True Then
|
||||
If LIMITATION_DATE = True Then
|
||||
Dim result As MsgBoxResult
|
||||
If My.Application.User.Language = "de-DE" Then
|
||||
result = MessageBox.Show("Wollen Sie wirklich eine Suche über alle Objekte starten?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
@@ -508,5 +440,99 @@ Public Class frmFlowSearch
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cmbAttributeDate_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbAttributeDate.SelectedIndexChanged
|
||||
If cmbAttributeDate.SelectedIndex <> -1 Then
|
||||
Try
|
||||
|
||||
Dim oEditValue As String = cmbAttributeDate.SelectedItem.ToString
|
||||
|
||||
If oEditValue = IDB_ADDED_WHEN_String_German Or oEditValue = IDB_ADDED_WHEN_String_Englisch Then
|
||||
SEARCH_FACT_DATE_ATTRIBUTE = "ADDED_WHEN"
|
||||
Else
|
||||
SEARCH_FACT_DATE_ATTRIBUTE = oEditValue
|
||||
SEARCH_FACT_DATE = $"MONTH(GRPDATE.[{SEARCH_FACT_DATE_ATTRIBUTE}]) <> 13"
|
||||
End If
|
||||
SearchContent()
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub DockManager1_StartDocking(sender As Object, e As Docking.DockPanelCancelEventArgs) Handles DockManager1.StartDocking
|
||||
e.Cancel = True
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub ToggleSwitchDate_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchToday.Toggled, ToggleSwitchYesterday.Toggled, ToggleSwitchCurrentYear.Toggled, ToggleSwitchLastYear.Toggled,
|
||||
ToggleSwitchLastMonth.Toggled, ToggleSwitchCurrentMonth.Toggled
|
||||
If TOGGLE_Change = True Then
|
||||
Exit Sub
|
||||
End If
|
||||
Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch)
|
||||
|
||||
If oToggle.IsOn Then
|
||||
TOGGLE_Change = True
|
||||
LIMITATION_DATE = True
|
||||
Dim oWHENDATE As String
|
||||
Select Case oToggle.Name
|
||||
Case "ToggleSwitchCurrentYear"
|
||||
ToggleSwitchLastYear.IsOn = False
|
||||
ToggleSwitchCurrentMonth.IsOn = False
|
||||
ToggleSwitchLastMonth.IsOn = False
|
||||
ToggleSwitchToday.IsOn = False
|
||||
ToggleSwitchYesterday.IsOn = False
|
||||
oWHENDATE = GET_DATE_LIMITATION("YEAR(@ATTRIBUTE) = YEAR(GETDATE())")
|
||||
Case "ToggleSwitchLastYear"
|
||||
ToggleSwitchCurrentYear.IsOn = False
|
||||
ToggleSwitchCurrentMonth.IsOn = False
|
||||
ToggleSwitchLastMonth.IsOn = False
|
||||
ToggleSwitchToday.IsOn = False
|
||||
ToggleSwitchYesterday.IsOn = False
|
||||
oWHENDATE = GET_DATE_LIMITATION("YEAR(@ATTRIBUTE) = (YEAR(GETDATE()) -1)")
|
||||
Case "ToggleSwitchCurrentMonth"
|
||||
ToggleSwitchCurrentYear.IsOn = False
|
||||
ToggleSwitchLastYear.IsOn = False
|
||||
ToggleSwitchToday.IsOn = False
|
||||
ToggleSwitchYesterday.IsOn = False
|
||||
ToggleSwitchLastMonth.IsOn = False
|
||||
oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = MONTH(GETDATE())")
|
||||
Case "ToggleSwitchLastMonth"
|
||||
ToggleSwitchCurrentYear.IsOn = False
|
||||
ToggleSwitchLastYear.IsOn = False
|
||||
ToggleSwitchCurrentMonth.IsOn = False
|
||||
ToggleSwitchToday.IsOn = False
|
||||
ToggleSwitchYesterday.IsOn = False
|
||||
Dim currentDate As DateTime = DateTime.Now
|
||||
If currentDate.Month = 1 Then
|
||||
oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = 12 " & vbNewLine & "AND YEAR(@ATTRIBUTE) = (YEAR(GETDATE()) -1)")
|
||||
Else
|
||||
oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = (MONTH(GETDATE()) -1)")
|
||||
End If
|
||||
Case "ToggleSwitchToday"
|
||||
ToggleSwitchCurrentYear.IsOn = False
|
||||
ToggleSwitchLastYear.IsOn = False
|
||||
ToggleSwitchCurrentMonth.IsOn = False
|
||||
ToggleSwitchYesterday.IsOn = False
|
||||
oWHENDATE = GET_DATE_LIMITATION("convert(DATE,@ATTRIBUTE) = convert(DATE,GETDATE())")
|
||||
Case "ToggleSwitchYesterday"
|
||||
ToggleSwitchCurrentYear.IsOn = False
|
||||
ToggleSwitchLastYear.IsOn = False
|
||||
ToggleSwitchCurrentMonth.IsOn = False
|
||||
ToggleSwitchToday.IsOn = False
|
||||
oWHENDATE = GET_DATE_LIMITATION("convert(DATE,@ATTRIBUTE) = convert(DATE,GETDATE()-1)")
|
||||
End Select
|
||||
SEARCH_FACT_DATE = oWHENDATE
|
||||
TOGGLE_Change = False
|
||||
Else
|
||||
If ToggleSwitchToday.IsOn = False And ToggleSwitchYesterday.IsOn = False And ToggleSwitchCurrentYear.IsOn = False And ToggleSwitchLastYear.IsOn = False And ToggleSwitchLastMonth.IsOn = False And ToggleSwitchCurrentMonth.IsOn = False Then
|
||||
LIMITATION_DATE = False
|
||||
|
||||
End If
|
||||
End If
|
||||
Start_FlowSearch()
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user