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

atr

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-05-20 15:56:56 +02:00
parent c924780c27
commit a30b989e24
3 changed files with 48 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb
View File

@@ -1,4 +1,5 @@
Imports javax.smartcardio
Imports GrapeCity.DataVisualization.TypeScript
Imports javax.smartcardio
Public Class frmOriginalArchiv_ATR
@@ -24,7 +25,7 @@ Public Class frmOriginalArchiv_ATR
cboDatum.Items.Clear()
cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausstellungs-Datum", "ADat"))
cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Erhalten-Datum", "EDat"))
cboDatum.changeItem("ADat")
cboDatum.changeItem("EDat")
btnMonat.Text = MONAT.ToString("MMMM")
@@ -70,7 +71,7 @@ Public Class frmOriginalArchiv_ATR
'End Select
btnMonat.PerformClick()
btnVonMonat.PerformClick()
btnSuche.PerformClick()
@@ -176,19 +177,21 @@ Public Class frmOriginalArchiv_ATR
End If
End If
If txtSuche._value <> "" Then
Dim srchstr = txtSuche._value
If srchstr <> "" Then
sqlstr &= " AND ( "
sqlstr &= " atr_documentNr LIKE '" & txtSuche._value & "%' OR "
sqlstr &= " atr_absender LIKE '" & txtSuche._value & "%' OR "
sqlstr &= " atr_empfaenger LIKE '" & txtSuche._value & "%' OR "
sqlstr &= " atr_DHL_ReferenzNr LIKE '" & txtSuche._value & "%' OR "
sqlstr &= " atr_LKW LIKE '" & txtSuche._value & "%' OR "
sqlstr &= " atr_location LIKE '" & txtSuche._value & "%' OR "
sqlstr &= " atr_info LIKE '" & txtSuche._value & "%' OR "
sqlstr &= " atr_DHL_ReferenzNr LIKE '" & txtSuche._value & "%' "
sqlstr &= " atr_documentNr LIKE '" & srchstr & "%' OR "
sqlstr &= " atr_absender LIKE '" & srchstr & "%' OR "
sqlstr &= " atr_empfaenger LIKE '" & srchstr & "%' OR "
sqlstr &= " atr_DHL_ReferenzNr LIKE '" & srchstr & "%' OR "
sqlstr &= " atr_LKW LIKE '" & srchstr & "%' OR "
sqlstr &= " atr_location LIKE '" & srchstr & "%' OR "
sqlstr &= " atr_info LIKE '" & srchstr & "%' OR "
sqlstr &= " atr_DHL_ReferenzNr LIKE '" & srchstr & "%' "
sqlstr &= " ) "
End If
sqlstr = sqlstr.Replace("*%", "%")
sqlstr = sqlstr.Replace("%%", "%")
If txtAbfertigungsnummer.Text <> "" Then
' If txtAbfertigungsnummerBis.Text <> "" Then
@@ -349,6 +352,7 @@ Public Class frmOriginalArchiv_ATR
Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click
MONAT = MONAT.AddMonths(-1)
initBtns("Monat")
initBtns("Monat")
End Sub
Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click