Dakosy, Chat, Feiertage, Formulare (AMBAR)
This commit is contained in:
@@ -192,7 +192,8 @@ Public Class cEmailBenachrichtigung
|
||||
Case "ATILLA" : Return "noreply@verag.ag"
|
||||
Case "UNISPED" : Return "No-Reply@unisped.at"
|
||||
Case "FRONTOFFICE" : Return "noreply@front-office.eu"
|
||||
Case "AMBAR" : Return "import@ambarlog.com"
|
||||
' Case "AMBAR" : Return "import@ambarlog.com"
|
||||
Case "AMBAR" : Return "import@ambarlog.de"
|
||||
Case Else : Return "noreply@verag.ag"
|
||||
End Select
|
||||
End Function
|
||||
|
||||
248
VERAG_PROG_ALLGEMEIN/Classes/cFeiertage.vb
Normal file
248
VERAG_PROG_ALLGEMEIN/Classes/cFeiertage.vb
Normal file
@@ -0,0 +1,248 @@
|
||||
Public Class cFeiertage
|
||||
Private _Year As Integer
|
||||
Private _Ostern As Date
|
||||
|
||||
''' <summary>
|
||||
''' Initialisiert die Feiertags-Klasse für das aktuelle Jahr
|
||||
''' </summary>
|
||||
Public Sub New()
|
||||
_Year = Now.Year
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Initialisiert die Feiertags-Klasse für das angegebene Jahr
|
||||
''' </summary>
|
||||
Public Sub New(ByVal Year As Integer)
|
||||
_Year = Year
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für den Ostersonntag zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Ostersonntag_OLD() As Date
|
||||
Get
|
||||
If _Ostern.Ticks = 0 Then
|
||||
' Datum des ersten Vollmondes nach Frühlingsanfang
|
||||
Dim a As Integer = _Year Mod 19
|
||||
Dim b As Integer = _Year Mod 4
|
||||
Dim c As Integer = _Year Mod 7
|
||||
Dim M As Integer = Val(((8 * Val(_Year / 100) + 13) / 25) - 2)
|
||||
Dim s As Integer = Val(_Year / 100) - Val(_Year / 400) - 2
|
||||
|
||||
M = (15 + s - M) Mod 30
|
||||
|
||||
Dim N As Integer = (6 + s) Mod 7
|
||||
Dim d As Integer = (M + 19 * a) Mod 30
|
||||
If d = 29 Then
|
||||
d = 28
|
||||
ElseIf d = 28 Then
|
||||
If (_Year Mod 19) > 10 Then d = 27
|
||||
End If
|
||||
|
||||
Dim e As Integer = (2 * b + 4 * c + 6 * d + N) Mod 7
|
||||
|
||||
' Ostersonntag
|
||||
_Ostern = New DateTime(_Year, 3, 21).AddDays(d + e + 1)
|
||||
End If
|
||||
Return _Ostern
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Function Ostersonntag() As Date
|
||||
Dim _month As Integer
|
||||
Dim _day As Integer
|
||||
Dim _moon As Integer
|
||||
Dim _epact As Integer
|
||||
Dim _sunday As Integer
|
||||
Dim _gold As Integer
|
||||
Dim _century As Integer
|
||||
Dim _corx As Integer
|
||||
Dim _corz As Integer
|
||||
' The Golden Number of the year in the 19 year Metonic Cycle:
|
||||
_gold = (_Year Mod 19) + 1
|
||||
' Calculate the Century:
|
||||
_century = (_Year \ 100) + 1
|
||||
' Number of years in which leap year was dropped in order
|
||||
' to keep in step with the sun:
|
||||
_corx = (3 * _century) \ 4 - 12
|
||||
' Special correction to syncronize Easter with moon's orbit:
|
||||
_corz = (8 * _century + 5) \ 25 - 5
|
||||
' Find Sunday:
|
||||
_sunday = (5 * _Year) \ 4 - _corx - 10
|
||||
' ^ evtl. long To prevent overflow at year 6554
|
||||
' Set Epact - specifies occurrence of full moon:
|
||||
_epact = (11 * _gold + 20 + _corz - _corx) Mod 30
|
||||
If _epact < 0 Then
|
||||
_epact += 30
|
||||
End If
|
||||
If (((_epact = 25) AndAlso (_gold > 11)) OrElse (_epact = 24)) Then
|
||||
_epact += 1
|
||||
End If
|
||||
' Find Full Moon:
|
||||
_moon = 44 - _epact
|
||||
If _moon < 21 Then
|
||||
_moon += 30
|
||||
End If
|
||||
' Advance to Sunday:
|
||||
_moon += 7 - ((_sunday + _moon) Mod 7)
|
||||
If (_moon > 31) Then
|
||||
_month = 4
|
||||
_day = _moon - 31
|
||||
Else
|
||||
_month = 3
|
||||
_day = _moon
|
||||
End If
|
||||
Return New DateTime(_Year, _month, _day)
|
||||
End Function
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für den Ostermontag zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Ostermontag() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(1)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für den BussUndBettag zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property BussUndBettag() As Date
|
||||
Get
|
||||
Dim i As Long
|
||||
Dim VierterAdvent As Date
|
||||
For i = 24 To 1 Step -1
|
||||
If CDate(i & ".12." & _Year).ToString("ddd") = "So" Then
|
||||
VierterAdvent = CDate(i & ".12." & _Year).ToShortDateString
|
||||
Exit For
|
||||
End If
|
||||
Next i
|
||||
Dim ErsterAdvent As Date = VierterAdvent.AddDays(-21) ' DateAdd("d", -21, VierterAdvent)
|
||||
Return ErsterAdvent.AddDays(-11) ' DateAdd("d", -11, ErsterAdvent) 'BussUndBettag
|
||||
End Get
|
||||
|
||||
End Property
|
||||
''' <summary>
|
||||
''' Gibt das Datum für den Karfreitag zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Karfreitag() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(-2)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für den Pfingstsonntag zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Pfingstsonntag() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(49)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für den Pfingsmontag zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Pfingstmontag() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(50)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für Christi-Himmelfahrt zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Himmelfahrt() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(39)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für Fronleichnam zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Fronleichnam() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(60)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für Aschermittwoch zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Aschermittwoch() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(-46)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public Function isWeekend(datum As Date) As Boolean
|
||||
Select Case datum.DayOfWeek
|
||||
Case 0, 6 : Return True
|
||||
Case Else : Return False
|
||||
End Select
|
||||
End Function
|
||||
Public Function isFeiertag(datum As Date, land As String) As Boolean
|
||||
If datum = CDate("01.01." & _Year) Then Return True
|
||||
If datum = CDate("06.01." & _Year) Then Return True
|
||||
If datum = CDate("15.08." & _Year) Then Return True
|
||||
If datum = CDate("01.11." & _Year) Then Return True
|
||||
If datum = CDate("25.12." & _Year) Then Return True
|
||||
If datum = CDate("26.12." & _Year) Then Return True
|
||||
|
||||
|
||||
If datum = Ostermontag Then Return True
|
||||
If datum = Ostersonntag() Then Return True
|
||||
If datum = Himmelfahrt Then Return True
|
||||
If datum = Pfingstmontag Then Return True
|
||||
If datum = Pfingstsonntag Then Return True
|
||||
If datum = Fronleichnam Then Return True
|
||||
|
||||
Select Case land
|
||||
Case "AT"
|
||||
If datum = CDate("26.10." & _Year) Then Return True
|
||||
If datum = CDate("08.12." & _Year) Then Return True
|
||||
If datum = CDate("01.05." & _Year) Then Return True 'Staatsfeiertag
|
||||
Case "DE" 'BAYERN
|
||||
If datum = CDate("03.10." & _Year) Then Return True ' Tag der Deutschen Einheit
|
||||
' If datum = BussUndBettag Then Return True ' Buß- und Bettag '!!!!ABEWEICHEND --> kein Feiertag in BAYERN
|
||||
' If datum = CDate("08.08." & _Year) Then Return True ' Augsburger Friedensfest
|
||||
If datum = CDate("01.05." & _Year) Then Return True ' Maifeiertag
|
||||
If datum = Karfreitag Then Return True
|
||||
End Select
|
||||
Return False
|
||||
End Function
|
||||
'Public Function isFeiertag(datum As Date, land As String) As Boolean
|
||||
' If datum = CDate("01.01." & _Year) Then Return True
|
||||
' If datum = CDate("06.01." & _Year) Then Return True
|
||||
' If datum = CDate("15.08." & _Year) Then Return True
|
||||
' If datum = CDate("01.11." & _Year) Then Return True
|
||||
' If datum = CDate("25.12." & _Year) Then Return True
|
||||
' If datum = CDate("26.12." & _Year) Then Return True
|
||||
|
||||
|
||||
' If datum = Ostermontag Then MsgBox("Ostermontag") : Return True
|
||||
' If datum = Ostersonntag() Then MsgBox("Ostersonntag") : Return True
|
||||
' If datum = Himmelfahrt Then MsgBox("Himmelfahrt") : Return True
|
||||
' If datum = Pfingstmontag Then MsgBox("Pfingstmontag") : Return True
|
||||
' If datum = Pfingstsonntag Then MsgBox("Pfingstsonntag") : Return True
|
||||
' If datum = Fronleichnam Then MsgBox("Fronleichnam") : Return True
|
||||
|
||||
' Select Case land
|
||||
' Case "AT"
|
||||
' If datum = CDate("26.10." & _Year) Then Return True
|
||||
' If datum = CDate("08.12." & _Year) Then Return True
|
||||
' If datum = CDate("01.05." & _Year) Then Return True 'Staatsfeiertag
|
||||
' Case "DE" 'BAYERN
|
||||
' If datum = CDate("03.10." & _Year) Then Return True ' Tag der Deutschen Einheit
|
||||
' If datum = BussUndBettag Then MsgBox("BussUndBettag") : Return True ' Buß- und Bettag '!!!!ABEWEICHEND
|
||||
' If datum = CDate("08.08." & _Year) Then Return True ' Augsburger Friedensfest
|
||||
' If datum = CDate("01.05." & _Year) Then Return True ' Maifeiertag
|
||||
' If datum = Karfreitag Then MsgBox("Karfreitag") : Return True
|
||||
' End Select
|
||||
' Return False
|
||||
'End Function
|
||||
|
||||
End Class
|
||||
@@ -1,5 +1,6 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class cMessenger
|
||||
|
||||
@@ -44,6 +45,37 @@ Public Class cMessenger
|
||||
If maId < 0 Then maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
Return SQL.getValueTxtBySql("SELECT isnull(COUNT(*),0) FROM tblMessenger_ChatMessages INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0", "ADMIN",,, 0)
|
||||
End Function
|
||||
Public Shared Function GET_NewMSG_COUNT_CHATID(maId, chat_Id) As Integer
|
||||
If maId < 0 Then maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
Return SQL.getValueTxtBySql("SELECT isnull(COUNT(*),0) FROM tblMessenger_ChatMessages INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE chatMgSt_MaId=" & maId & " AND chatMgSt_gelesen=0 AND chatMg_chatId='" & chat_Id & "'", "ADMIN",,, 0)
|
||||
End Function
|
||||
|
||||
Public Shared Function SET_LKWCHAT_INAKTIV(AvisoId) As Integer
|
||||
Return SQL.doSQL("UPDATE tblMessenger_Chat SET chat_aktiv=0 WHERE chat_AvisoId='" & AvisoId & "' AND chat_art='LKW_CHAT' ", "ADMIN")
|
||||
End Function
|
||||
|
||||
Public Shared Function GET_NewMSG_COUNT_ART(maId, chat_art) As Integer
|
||||
If maId < 0 Then maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
Return SQL.getValueTxtBySql("SELECT isnull(COUNT(*),0) FROM tblMessenger_ChatMessages INNER JOIN tblMessenger_Chat on chat_id=chatMg_chatId INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE chatMgSt_MaId=" & maId & " AND chatMgSt_gelesen=0 AND chat_art='" & chat_art & "'", "ADMIN",,, 0)
|
||||
End Function
|
||||
|
||||
Public Shared Function GET_NewMSG_COUNT_AVISOID(AvisoId As Integer) As Integer
|
||||
Dim chat_id = SQL.DLookup("chat_id", "tblMessenger_ChatMembers inner join tblMessenger_Chat on chat_id=chatMb_chatId", "chat_AvisoId='" & AvisoId & "' and [chatMb_maId]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'", "ADMIN", -1)
|
||||
If chat_id > 0 Then 'Ich bin Member vom Chat.
|
||||
Return GET_NewMSG_COUNT_CHATID(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID, chat_id)
|
||||
Else
|
||||
' MsgBox(SQL.DLookup("isnull(count(*),0)", "tblMessenger_ChatMessages inner join tblMessenger_Chat on chat_id=chatMg_chatId", "chat_AvisoId='" & AvisoId & "'", "ADMIN", 0))
|
||||
Return SQL.DLookup("isnull(count(*),0)", "tblMessenger_ChatMessages inner join tblMessenger_Chat on chat_id=chatMg_chatId", "chat_AvisoId='" & AvisoId & "'", "ADMIN", 0)
|
||||
End If
|
||||
End Function
|
||||
Public Shared Function GET_NewMSG_COUNT_SendungsID(SendungsID As Integer) As Integer
|
||||
Dim chat_id = SQL.DLookup("chat_id", "tblMessenger_ChatMembers inner join tblMessenger_Chat on chat_id=chatMb_chatId", "chat_SendungsId='" & SendungsID & "' and [chatMb_maId]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'", "ADMIN", -1)
|
||||
If chat_id > 0 Then 'Ich bin Member vom Chat.
|
||||
Return GET_NewMSG_COUNT_CHATID(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID, chat_id)
|
||||
Else
|
||||
Return SQL.DLookup("isnull(count(*),0)", "tblMessenger_ChatMessages inner join tblMessenger_Chat on chat_id=chatMg_chatId", "chat_SendungsId='" & SendungsID & "'", "ADMIN", 0)
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Shared Function GET_CHAT_LIST() As List(Of cMessenger_Chat)
|
||||
Dim LIST As New List(Of cMessenger_Chat)
|
||||
@@ -86,17 +118,116 @@ Public Class cMessenger
|
||||
Me.chat_erstelltAm = Now
|
||||
LOAD(topMax, dateTmp)
|
||||
End Sub
|
||||
Sub New(chat_AvisoId As Integer, chat_SendungsId As Integer, Optional topMax As String = "", Optional dateTmp As Object = Nothing)
|
||||
Sub New(chat_AvisoId As Integer, chat_SendungsId As Integer, chat_art As String, Optional 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
|
||||
Me.chat_art = "LKW_CHAT"
|
||||
LOAD_ByLKW(chat_AvisoId, chat_SendungsId, topMax, dateTmp)
|
||||
LOAD_ByLKW(chat_AvisoId, chat_SendungsId, chat_art, topMax, dateTmp)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Shared Function openLKW_Chat(Aviso As cAviso) As Boolean
|
||||
Dim CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(Aviso.AvisoID, -1, "LKW_CHAT")
|
||||
|
||||
If CHAT.chat_id <= 0 Then
|
||||
'Neuer Chat
|
||||
Dim chatName = Aviso.LKW_Nr & " (LKW-Id: " & Aviso.AvisoID & ")"
|
||||
'"LKW CHAT: " &
|
||||
|
||||
Dim MB_LIST As New List(Of Integer)
|
||||
MB_LIST.Add(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT(chatName, MB_LIST, CHAT, "LKW_CHAT", Aviso.AvisoID, -1)
|
||||
|
||||
End If
|
||||
If CHAT IsNot Nothing Then
|
||||
|
||||
If Not CHAT.CHAT_MEMBERS.Exists(Function(x) x.chatMb_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) Then
|
||||
If vbYes <> MsgBox("Möchten Sie dem LKW Chat beitreten?", vbYesNoCancel) Then
|
||||
Return False
|
||||
Else 'weiter...
|
||||
Dim MB As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMembers(CHAT.chat_id, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
|
||||
MB.chatMb_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
CHAT.CHAT_MEMBERS.Add(MB)
|
||||
If Not CHAT.SAVE_MEMBERS Then
|
||||
MsgBox("Fehler beim Hinzufügen!")
|
||||
Return False 'Fehler
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
' Me.Cursor = Cursors.WaitCursor
|
||||
'For Each openForm In Application.OpenForms()
|
||||
' If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
|
||||
' CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal
|
||||
' CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront()
|
||||
' Me.Cursor = Cursors.Default : Exit Sub
|
||||
' End If
|
||||
'Next
|
||||
|
||||
Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger()
|
||||
f.Location = Cursor.Position
|
||||
f.AvisoId = Aviso.AvisoID
|
||||
f.Show()
|
||||
|
||||
Return True
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
Shared Function openSND_Chat(Aviso As cAviso, Sendung As cSendungen) As Boolean
|
||||
Dim CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(Aviso.AvisoID, Sendung.tblSnd_SendungID, "SND_CHAT")
|
||||
|
||||
|
||||
If CHAT.chat_id <= 0 Then
|
||||
'Neuer Chat
|
||||
Dim chatName = Sendung.AbfertigungsNr & "/" & Sendung.FilialenNr & " (" & Aviso.LKW_Nr & ")"
|
||||
'"SND CHAT: " &
|
||||
|
||||
Dim MB_LIST As New List(Of Integer)
|
||||
MB_LIST.Add(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT(chatName, MB_LIST, CHAT, "SND_CHAT", Aviso.AvisoID, Sendung.tblSnd_SendungID)
|
||||
|
||||
End If
|
||||
If CHAT IsNot Nothing Then
|
||||
|
||||
If Not CHAT.CHAT_MEMBERS.Exists(Function(x) x.chatMb_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) Then
|
||||
If vbYes <> MsgBox("Möchten Sie dem SENDUNGS-Chat beitreten?", vbYesNoCancel) Then
|
||||
Return False
|
||||
Else 'weiter...
|
||||
Dim MB As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMembers(CHAT.chat_id, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
|
||||
MB.chatMb_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
CHAT.CHAT_MEMBERS.Add(MB)
|
||||
If Not CHAT.SAVE_MEMBERS Then
|
||||
MsgBox("Fehler beim Hinzufügen!")
|
||||
Return False 'Fehler
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
' Me.Cursor = Cursors.WaitCursor
|
||||
'For Each openForm In Application.OpenForms()
|
||||
' If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
|
||||
' CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal
|
||||
' CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront()
|
||||
' Me.Cursor = Cursors.Default : Exit Sub
|
||||
' End If
|
||||
'Next
|
||||
|
||||
Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger()
|
||||
f.Location = Cursor.Position
|
||||
f.AvisoId = Aviso.AvisoID
|
||||
f.SendungID = Sendung.tblSnd_SendungID
|
||||
f.Show()
|
||||
|
||||
Return True
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_id", chat_id,, True))
|
||||
@@ -166,12 +297,13 @@ Public Class cMessenger
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub LOAD_ByLKW(chat_AvisoId As Integer, chat_SendungsId As Integer, Optional topMax As String = "", Optional dateTmp As Object = Nothing)
|
||||
Public Sub LOAD_ByLKW(chat_AvisoId As Integer, chat_SendungsId As Integer, chat_art As String, Optional topMax As String = "", Optional dateTmp As Object = Nothing)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("Select * FROM tblMessenger_Chat WHERE chat_AvisoId=@chat_AvisoId " & If(chat_SendungsId > 0, " AND chat_SendungsId=chat_SendungsId ", "") & " AND chat_art='LKW_CHAT'", conn)
|
||||
Using cmd As New SqlCommand("Select * FROM tblMessenger_Chat WHERE chat_AvisoId=@chat_AvisoId " & If(chat_SendungsId > 0, " AND chat_SendungsId=chat_SendungsId ", "") & " AND chat_art='" & chat_art & "'", conn)
|
||||
cmd.Parameters.AddWithValue("@chat_AvisoId", chat_AvisoId)
|
||||
cmd.Parameters.AddWithValue("@chat_SendungsId", chat_SendungsId)
|
||||
cmd.Parameters.AddWithValue("@chat_art", chat_art)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
@@ -342,7 +474,6 @@ Public Class cMessenger
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
|
||||
Sub New(chatMb_chatId, chatMb_maId)
|
||||
Me.chatMb_chatId = chatMb_chatId
|
||||
Me.chatMb_maId = chatMb_maId
|
||||
|
||||
Reference in New Issue
Block a user