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

Kategorie Besonderheiten: Einschr.Firma

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-11-14 10:50:11 +01:00
parent 3e642d5283
commit cc2755579f
2 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/kunden/frmKundenBesonderheiten_Add.vb
View File

@@ -57,7 +57,7 @@
End Sub
Private Sub frmKundenBesonderheiten_Add_Load(sender As Object, e As EventArgs) Handles Me.Load
cboKategorie.fillWithSQL("SELECT [kdbkat_kategorie],[kdbkat_bezeichnung] FROM [tblKundenBesonderheiten_Kategorien]", False, "FMZOLL", True)
cboKategorie.fillWithSQL("SELECT [kdbkat_kategorie],[kdbkat_bezeichnung] FROM [tblKundenBesonderheiten_Kategorien] WHERE (kdbkat_Firma IS NULL OR kdbkat_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ) ", False, "FMZOLL", True)
If KD_BESONSERHEITEN.hasEntry Then
rtbText.Text = KD_BESONSERHEITEN.kdb_text

5
VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb
View File

@@ -82,7 +82,7 @@ Public Class cMessenger
Dim dt = SQL.loadDgvBySql("SELECT [chat_id] FROM [tblMessenger_Chat] WHERE (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMB_chatId=chat_id AND chatMB_maId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ")>0", "ADMIN")
For Each r In dt.Rows
Dim CHAT As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(r("chat_id"))
Dim CHAT As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(r("chat_id"), 200)
LIST.Add(CHAT)
Next
Return LIST
@@ -112,7 +112,7 @@ Public Class cMessenger
End Sub
Sub New(chat_id As Integer, Optional topMax As String = "", Optional dateTmp As Object = Nothing)
Sub New(chat_id As Integer, topMax As String, Optional dateTmp As Object = Nothing)
Me.chat_id = chat_id
Me.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Me.chat_erstelltAm = Now
@@ -125,7 +125,6 @@ Public Class cMessenger
Me.chat_art = "LKW_CHAT"
LOAD_ByLKW(chat_AvisoId, chat_SendungsId, chat_art, topMax, dateTmp)
End Sub