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

Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-12-30 13:10:36 +01:00
parent 0ce0904cee 19199bb9ed
commit d0c42dcd5f
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb
View File

@@ -160,7 +160,7 @@ Public Class KdSearchBox
End Try
End Sub
Private Sub seeAllKunden(sender As Object, e As MouseEventArgs) Handles usrcntl.DGV_AlleKunden
Private Sub seeAllKunden(sender As Object, e As EventArgs) Handles usrcntl.DGV_AlleKunden
If Not searchActive Then Exit Sub
@@ -219,9 +219,7 @@ Public Class KdSearchBox
'THREADING AKTIV
Me.ThreadInitAKTIV(GlobalAnzahlKunden)
' Dim ThreadInitAKTIV = New System.Threading.Thread(AddressOf Me.ThreadInitAKTIV)
' ThreadInitAKTIV.IsBackground = True
' ThreadInitAKTIV.Start()
End With
End If
@@ -712,7 +710,7 @@ Public Class KdSearchBox
'End If
If Not _displayWoelflKd Then SQLstrEnd &= " AND AdressenNr NOT LIKE '15%'"
setDS(True, usrcntl.dgvKundenAktiv, SQL.loadDgvBySql(SQLstr & SQLstrEnd & " order by Ordnungsbegriff ", "FMZOLL"), topAnz, IIf(srch.Count > 4, SQL.getValueTxtBySql(SQLstrCount & SQLstrEnd, "FMZOLL"), ""))
setDS(True, usrcntl.dgvKundenAktiv, SQL.loadDgvBySql(SQLstr & SQLstrEnd & " order by Ordnungsbegriff ", "FMZOLL"), topAnz, IIf(srch.Count > 2, SQL.getValueTxtBySql(SQLstrCount & SQLstrEnd, "FMZOLL"), ""))
End With
@@ -832,7 +830,7 @@ Public Class KdSearchBox
If aktiveKunden Then
If topKunden < CInt(anzahlKunden) And CInt(anzahlKunden) < 65 Then
If IsNumeric(anzahlKunden) AndAlso topKunden < CInt(anzahlKunden) AndAlso CInt(anzahlKunden) < 100 Then
usrcntl.btnAlleKunden.Visible = True
Else
usrcntl.btnAlleKunden.Visible = False

4
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlKdSearch.vb
View File

@@ -50,7 +50,9 @@ Public Class usrcntlKdSearch
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAlleKunden.Click
Private Sub btnAlleKunden_Click(sender As Object, e As EventArgs) Handles btnAlleKunden.Click
RaiseEvent DGV_AlleKunden(sender, e)
End Sub
End Class