edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Readable Filter bei Speditionsbuch-Bericht (sollte nun auch von nicht-IT Mitarbeitern gelesen werden können).

Browse Source
This commit is contained in:
d.breimaier
2023-05-05 10:55:36 +02:00
parent adf83c7bb4
commit 9ed0834f71
1 changed files with 33 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -869,7 +869,8 @@ Public Class usrCntlSpeditionsBuchSuche
If displayFilter Then If displayFilter Then
rpt.lblFilterTxt.Visible = displayFilter rpt.lblFilterTxt.Visible = displayFilter
rpt.txtFilter.Visible = displayFilter rpt.txtFilter.Visible = displayFilter
rpt.txtFilter.Text = SQL.getStringReplaceScalarVar(getSpedBuchWhere, getSpedbuchList) rpt.txtFilter.Text = generateReadableFilter(SQL.getStringReplaceScalarVar(getSpedBuchWhere, getSpedbuchList))
Else Else
If txtUeberschr.Text <> "" Then If txtUeberschr.Text <> "" Then
rpt.txtFilter.Text = txtUeberschr.Text rpt.txtFilter.Text = txtUeberschr.Text
@@ -995,7 +996,7 @@ Public Class usrCntlSpeditionsBuchSuche
If displayFilter Then If displayFilter Then
rpt.lblFilterTxt.Visible = displayFilter rpt.lblFilterTxt.Visible = displayFilter
rpt.txtFilter.Visible = displayFilter rpt.txtFilter.Visible = displayFilter
rpt.txtFilter.Text = SQL.getStringReplaceScalarVar(getSpedBuchWhere, getSpedbuchList) rpt.txtFilter.Text = generateReadableFilter(SQL.getStringReplaceScalarVar(getSpedBuchWhere, getSpedbuchList))
Else Else
If txtUeberschr.Text <> "" Then If txtUeberschr.Text <> "" Then
rpt.txtFilter.Text = txtUeberschr.Text rpt.txtFilter.Text = txtUeberschr.Text
@@ -1103,7 +1104,8 @@ Public Class usrCntlSpeditionsBuchSuche
If displayFilter Then If displayFilter Then
rpt.lblFilterTxt.Visible = displayFilter rpt.lblFilterTxt.Visible = displayFilter
rpt.txtFilter.Visible = displayFilter rpt.txtFilter.Visible = displayFilter
rpt.txtFilter.Text = SQL.getStringReplaceScalarVar(getSpedBuchWhere, getSpedbuchList) rpt.txtFilter.Text = generateReadableFilter(SQL.getStringReplaceScalarVar(getSpedBuchWhere, getSpedbuchList))
Else Else
If txtUeberschr.Text <> "" Then If txtUeberschr.Text <> "" Then
rpt.txtFilter.Text = txtUeberschr.Text rpt.txtFilter.Text = txtUeberschr.Text
@@ -2022,7 +2024,7 @@ Public Class usrCntlSpeditionsBuchSuche
If displayFilter Then If displayFilter Then
rpt.lblFilterTxt.Visible = displayFilter rpt.lblFilterTxt.Visible = displayFilter
rpt.txtFilter.Visible = displayFilter rpt.txtFilter.Visible = displayFilter
rpt.txtFilter.Text = SQL.getStringReplaceScalarVar(SpedBuchWhere, SpedBuchList) rpt.txtFilter.Text = generateReadableFilter(SQL.getStringReplaceScalarVar(SpedBuchWhere, SpedBuchList))
Else Else
If txtUeberschr.Text <> "" Then If txtUeberschr.Text <> "" Then
rpt.txtFilter.Text = txtUeberschr.Text rpt.txtFilter.Text = txtUeberschr.Text
@@ -2331,4 +2333,31 @@ Public Class usrCntlSpeditionsBuchSuche
End Try End Try
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Sub End Sub
Private Function generateReadableFilter(text As String) As String
text = text.ToLower()
text = text.Replace("=1", " ist wahr ")
text = text.Replace("=0", " ist falsch ")
text = text.Replace("=", " ist ")
text = text.Replace("[", "")
text = text.Replace("]", "")
text = text.Replace("(", "")
text = text.Replace(")", "")
text = text.Replace(":", "")
text = text.Replace("select", " Felder: ")
text = text.Replace("from", " Tabelle: ")
text = text.Replace("like", " wie ")
text = text.Replace("and", " und ")
text = text.Replace("inner join", " Untertabelle: ")
text = text.Replace("left join", " Untertabelle: ")
text = text.Replace("right join", " Untertabelle: ")
text = text.Replace("between", " zwischen ")
text = text.Replace("00", "")
text = text.Replace("speditionsbuch.", "")
text = text.Replace("%", "*")
Return text
End Function
End Class End Class