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

Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-05-14 22:05:29 +02:00
parent 57d030605a 2f3400bc6d
commit 0d3e625005
9 changed files with 212 additions and 112 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -1732,7 +1732,7 @@ Public Class usrCntlFaktAbrechnung
If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = "Zollbelege"
If If(RECHNUNG.Anlage_2, String.Empty) = String.Empty Then RECHNUNG.Anlage_2 = "Lief.-Rechn."
If If(RECHNUNG.Anlage_3, String.Empty) = String.Empty Then RECHNUNG.Anlage_3 = "Präferenzz./Original"
If If(RECHNUNG.Anlage_4, String.Empty) = String.Empty Then RECHNUNG.Anlage_4 = "Dublikat folgt nachträglich"
If If(RECHNUNG.Anlage_4, String.Empty) = String.Empty Then RECHNUNG.Anlage_4 = ""
If If(RECHNUNG.Anlage_5, String.Empty) = String.Empty Then RECHNUNG.Anlage_5 = ""
End Select
End If

119
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungMautAT.Designer.vb generated
View File

@@ -51,11 +51,13 @@ Partial Class usrCntlSDLLeistungMautAT
Me.Label4 = New System.Windows.Forms.Label()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlDetails = New SDL.usrCntlAllg()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.UsrCntlDetails = New SDL.usrCntlAllg()
Me.txtCO2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
@@ -64,14 +66,19 @@ Partial Class usrCntlSDLLeistungMautAT
'
'txtKategorie
'
Me.txtKategorie._DateTimeOnly = False
Me.txtKategorie._numbersOnly = True
Me.txtKategorie._numbersOnlyKommastellen = ""
Me.txtKategorie._numbersOnlyTrennzeichen = True
Me.txtKategorie._Prozent = False
Me.txtKategorie._ShortDateNew = False
Me.txtKategorie._ShortDateOnly = False
Me.txtKategorie._TimeOnly = False
Me.txtKategorie._value = Nothing
Me.txtKategorie._TimeOnly_Seconds = False
Me.txtKategorie._value = ""
Me.txtKategorie._Waehrung = False
Me.txtKategorie.Location = New System.Drawing.Point(270, 68)
Me.txtKategorie._WaehrungZeichen = True
Me.txtKategorie.Location = New System.Drawing.Point(106, 115)
Me.txtKategorie.MaxLength = 1
Me.txtKategorie.MaxLineLength = -1
Me.txtKategorie.MaxLines_Warning = ""
@@ -82,13 +89,18 @@ Partial Class usrCntlSDLLeistungMautAT
'
'txtBestellNr
'
Me.txtBestellNr._DateTimeOnly = False
Me.txtBestellNr._numbersOnly = False
Me.txtBestellNr._numbersOnlyKommastellen = ""
Me.txtBestellNr._numbersOnlyTrennzeichen = True
Me.txtBestellNr._Prozent = False
Me.txtBestellNr._ShortDateNew = False
Me.txtBestellNr._ShortDateOnly = False
Me.txtBestellNr._TimeOnly = False
Me.txtBestellNr._TimeOnly_Seconds = False
Me.txtBestellNr._value = Nothing
Me.txtBestellNr._Waehrung = False
Me.txtBestellNr._WaehrungZeichen = True
Me.txtBestellNr.Location = New System.Drawing.Point(106, 36)
Me.txtBestellNr.MaxLength = 15
Me.txtBestellNr.MaxLineLength = -1
@@ -101,7 +113,7 @@ Partial Class usrCntlSDLLeistungMautAT
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(209, 71)
Me.Label13.Location = New System.Drawing.Point(6, 119)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(55, 13)
Me.Label13.TabIndex = 18
@@ -118,13 +130,18 @@ Partial Class usrCntlSDLLeistungMautAT
'
'txtOBUID
'
Me.txtOBUID._DateTimeOnly = False
Me.txtOBUID._numbersOnly = False
Me.txtOBUID._numbersOnlyKommastellen = ""
Me.txtOBUID._numbersOnlyTrennzeichen = True
Me.txtOBUID._Prozent = False
Me.txtOBUID._ShortDateNew = False
Me.txtOBUID._ShortDateOnly = False
Me.txtOBUID._TimeOnly = False
Me.txtOBUID._TimeOnly_Seconds = False
Me.txtOBUID._value = Nothing
Me.txtOBUID._Waehrung = False
Me.txtOBUID._WaehrungZeichen = True
Me.txtOBUID.Location = New System.Drawing.Point(106, 139)
Me.txtOBUID.MaxLength = 18
Me.txtOBUID.MaxLineLength = -1
@@ -136,13 +153,18 @@ Partial Class usrCntlSDLLeistungMautAT
'
'txtKartenNr
'
Me.txtKartenNr._DateTimeOnly = False
Me.txtKartenNr._numbersOnly = False
Me.txtKartenNr._numbersOnlyKommastellen = ""
Me.txtKartenNr._numbersOnlyTrennzeichen = True
Me.txtKartenNr._Prozent = False
Me.txtKartenNr._ShortDateNew = False
Me.txtKartenNr._ShortDateOnly = False
Me.txtKartenNr._TimeOnly = False
Me.txtKartenNr._TimeOnly_Seconds = False
Me.txtKartenNr._value = Nothing
Me.txtKartenNr._Waehrung = False
Me.txtKartenNr._WaehrungZeichen = True
Me.txtKartenNr.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtKartenNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtKartenNr.Location = New System.Drawing.Point(574, 4)
@@ -205,13 +227,18 @@ Partial Class usrCntlSDLLeistungMautAT
'
'txtStatus
'
Me.txtStatus._DateTimeOnly = False
Me.txtStatus._numbersOnly = False
Me.txtStatus._numbersOnlyKommastellen = ""
Me.txtStatus._numbersOnlyTrennzeichen = True
Me.txtStatus._Prozent = False
Me.txtStatus._ShortDateNew = False
Me.txtStatus._ShortDateOnly = False
Me.txtStatus._TimeOnly = False
Me.txtStatus._TimeOnly_Seconds = False
Me.txtStatus._value = Nothing
Me.txtStatus._Waehrung = False
Me.txtStatus._WaehrungZeichen = True
Me.txtStatus.Location = New System.Drawing.Point(259, 90)
Me.txtStatus.MaxLength = 2
Me.txtStatus.MaxLineLength = -1
@@ -246,13 +273,18 @@ Partial Class usrCntlSDLLeistungMautAT
'
'txtVermerk
'
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._numbersOnlyTrennzeichen = True
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._TimeOnly_Seconds = False
Me.txtVermerk._value = Nothing
Me.txtVermerk._Waehrung = False
Me.txtVermerk._WaehrungZeichen = True
Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
Me.txtVermerk.MaxLength = 100
Me.txtVermerk.MaxLineLength = -1
@@ -260,7 +292,7 @@ Partial Class usrCntlSDLLeistungMautAT
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Multiline = True
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
Me.txtVermerk.Size = New System.Drawing.Size(183, 51)
Me.txtVermerk.TabIndex = 7
'
'Label6
@@ -326,13 +358,18 @@ Partial Class usrCntlSDLLeistungMautAT
'
'txtGueltigkeit2
'
Me.txtGueltigkeit2._DateTimeOnly = False
Me.txtGueltigkeit2._numbersOnly = False
Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
Me.txtGueltigkeit2._numbersOnlyTrennzeichen = True
Me.txtGueltigkeit2._Prozent = False
Me.txtGueltigkeit2._ShortDateNew = True
Me.txtGueltigkeit2._ShortDateOnly = False
Me.txtGueltigkeit2._TimeOnly = False
Me.txtGueltigkeit2._TimeOnly_Seconds = False
Me.txtGueltigkeit2._value = ""
Me.txtGueltigkeit2._Waehrung = False
Me.txtGueltigkeit2._WaehrungZeichen = True
Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
@@ -356,13 +393,18 @@ Partial Class usrCntlSDLLeistungMautAT
'
'txtUmstellungsdatum
'
Me.txtUmstellungsdatum._DateTimeOnly = False
Me.txtUmstellungsdatum._numbersOnly = False
Me.txtUmstellungsdatum._numbersOnlyKommastellen = ""
Me.txtUmstellungsdatum._numbersOnlyTrennzeichen = True
Me.txtUmstellungsdatum._Prozent = False
Me.txtUmstellungsdatum._ShortDateNew = True
Me.txtUmstellungsdatum._ShortDateOnly = False
Me.txtUmstellungsdatum._TimeOnly = False
Me.txtUmstellungsdatum._TimeOnly_Seconds = False
Me.txtUmstellungsdatum._value = ""
Me.txtUmstellungsdatum._Waehrung = False
Me.txtUmstellungsdatum._WaehrungZeichen = True
Me.txtUmstellungsdatum.ForeColor = System.Drawing.Color.Red
Me.txtUmstellungsdatum.Location = New System.Drawing.Point(106, 68)
Me.txtUmstellungsdatum.MaxLength = 10
@@ -375,13 +417,18 @@ Partial Class usrCntlSDLLeistungMautAT
'
'txtVertragabschlussdatum
'
Me.txtVertragabschlussdatum._DateTimeOnly = False
Me.txtVertragabschlussdatum._numbersOnly = False
Me.txtVertragabschlussdatum._numbersOnlyKommastellen = ""
Me.txtVertragabschlussdatum._numbersOnlyTrennzeichen = True
Me.txtVertragabschlussdatum._Prozent = False
Me.txtVertragabschlussdatum._ShortDateNew = True
Me.txtVertragabschlussdatum._ShortDateOnly = False
Me.txtVertragabschlussdatum._TimeOnly = False
Me.txtVertragabschlussdatum._TimeOnly_Seconds = False
Me.txtVertragabschlussdatum._value = ""
Me.txtVertragabschlussdatum._Waehrung = False
Me.txtVertragabschlussdatum._WaehrungZeichen = True
Me.txtVertragabschlussdatum.ForeColor = System.Drawing.Color.Red
Me.txtVertragabschlussdatum.Location = New System.Drawing.Point(106, 90)
Me.txtVertragabschlussdatum.MaxLength = 10
@@ -394,13 +441,18 @@ Partial Class usrCntlSDLLeistungMautAT
'
'txtSchadstoffklasse
'
Me.txtSchadstoffklasse._DateTimeOnly = False
Me.txtSchadstoffklasse._numbersOnly = False
Me.txtSchadstoffklasse._numbersOnlyKommastellen = ""
Me.txtSchadstoffklasse._numbersOnlyTrennzeichen = True
Me.txtSchadstoffklasse._Prozent = False
Me.txtSchadstoffklasse._ShortDateNew = False
Me.txtSchadstoffklasse._ShortDateOnly = False
Me.txtSchadstoffklasse._TimeOnly = False
Me.txtSchadstoffklasse._TimeOnly_Seconds = False
Me.txtSchadstoffklasse._value = Nothing
Me.txtSchadstoffklasse._Waehrung = False
Me.txtSchadstoffklasse._WaehrungZeichen = True
Me.txtSchadstoffklasse.Location = New System.Drawing.Point(270, 112)
Me.txtSchadstoffklasse.MaxLength = 2
Me.txtSchadstoffklasse.MaxLineLength = -1
@@ -441,15 +493,6 @@ Partial Class usrCntlSDLLeistungMautAT
Me.TabPage1.Text = "Details"
Me.TabPage1.UseVisualStyleBackColor = True
'
'UsrCntlDetails
'
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlDetails.Name = "UsrCntlDetails"
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
Me.UsrCntlDetails.TabIndex = 18
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanSonstiges)
@@ -468,6 +511,8 @@ Partial Class usrCntlSDLLeistungMautAT
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges._OPEN_ORIGINAL = False
Me.scanSonstiges._TYPE = "PDF"
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -504,11 +549,54 @@ Partial Class usrCntlSDLLeistungMautAT
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'UsrCntlDetails
'
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlDetails.Name = "UsrCntlDetails"
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
Me.UsrCntlDetails.TabIndex = 18
'
'txtCO2
'
Me.txtCO2._DateTimeOnly = False
Me.txtCO2._numbersOnly = False
Me.txtCO2._numbersOnlyKommastellen = ""
Me.txtCO2._numbersOnlyTrennzeichen = True
Me.txtCO2._Prozent = False
Me.txtCO2._ShortDateNew = False
Me.txtCO2._ShortDateOnly = False
Me.txtCO2._TimeOnly = False
Me.txtCO2._TimeOnly_Seconds = False
Me.txtCO2._value = Nothing
Me.txtCO2._Waehrung = False
Me.txtCO2._WaehrungZeichen = True
Me.txtCO2.Location = New System.Drawing.Point(270, 67)
Me.txtCO2.MaxLength = 2
Me.txtCO2.MaxLineLength = -1
Me.txtCO2.MaxLines_Warning = ""
Me.txtCO2.MaxLines_Warning_Label = Nothing
Me.txtCO2.Name = "txtCO2"
Me.txtCO2.Size = New System.Drawing.Size(19, 20)
Me.txtCO2.TabIndex = 94
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(186, 70)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(76, 13)
Me.Label5.TabIndex = 95
Me.Label5.Text = "CO2 Kategorie"
'
'usrCntlSDLLeistungMautAT
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.txtCO2)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.cbxArchiviert)
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.txtSchadstoffklasse)
@@ -579,5 +667,6 @@ Partial Class usrCntlSDLLeistungMautAT
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents txtCO2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label5 As Label
End Class

2
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungMautAT.vb
View File

@@ -90,7 +90,7 @@ Public Class usrCntlSDLLeistungMautAT
UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
txtCO2.Text = SDL.CO2Kategorie
txtSchadstoffklasse.Text = SDL.Schadstoffklasse
txtBestellNr.Text = SDL.BestellNr
txtOBUID.Text = SDL.OBUID

9
SDL/mdm/usrCntlKartenDaten.vb
View File

@@ -510,7 +510,7 @@ Public Class usrCntlKartenDaten
Case 100 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, (SELECT TOP 1 [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE [KdNrVERAG]=KundenNr AND KdNrAlt =0 ORDER BY Zeitstempel DESC) as [IDS-KdNr], KartenNr, GültigBis, PIN, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=100"
Case 101 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenSchlüsselNr, GültigBis, PIN, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=101"
Case 212 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, UTAKundenNr, KartenNr,[CARD-Nr], GültigBis, PIN, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=212"
Case 200 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, [BestellNr],[Umstellungsdatum],KartenNr,OBUID, Vertragsabschlussdatum,Kategorie,Status,Schadstoffklasse, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=200"
Case 200 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, [BestellNr],[Umstellungsdatum],KartenNr,OBUID, Vertragsabschlussdatum,Kategorie,Status,Schadstoffklasse,CO2Kategorie ,Nationalitaet as Nation ,Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=200"
Case 201 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, Vermerk ,Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, LKWAbgemeldet, Partner,BenutzerNr,FlottenPIN,MasterPIN, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=201"
Case 202 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [TELEPASS-Kd-Nr], VIACARD,[TELEPASS-Nr], Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert,TelepassErsatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=202"
Case 203 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=203"
@@ -546,6 +546,13 @@ Public Class usrCntlKartenDaten
End With
End If
If SDLNrTmp = 200 Then
With dgvSDL
.Columns("Kategorie").Visible = False
End With
End If
initAllg()
dgvSDL.Width = 100
dgvSDL.Height = 100

6
VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb
View File

@@ -736,7 +736,6 @@ Public Class cMessenger
Public Class cMessenger_ChatMessages
Property chatMg_id As Integer ' INT Not NULL PRIMARY KEY IDENTITY,
Property chatMg_chatId As Integer ' INT Not NULL,
Property chatMg_maId As Integer ' INT Not NULL,
Property chatMg_datetime As Date = Now
@@ -771,7 +770,6 @@ Public Class cMessenger
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_datetime", chatMg_datetime))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_maName", chatMg_maName))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_maFirma", chatMg_maFirma))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_type", chatMg_type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_text", chatMg_text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_anhang_docId", chatMg_anhang_docId))
@@ -920,7 +918,7 @@ Public Class cMessenger
Try
Me.CHAT_MESSAGES_STATUS_LIST.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
Using cmd As New SqlCommand("SELECT * FROM tblMessenger_ChatMessageStatus WHERE chatMgSt_chatMsgId=@chatMg_id ", conn)
Using cmd As New SqlCommand("SELECT chatMgSt_MaId FROM tblMessenger_ChatMessageStatus WHERE chatMgSt_chatMsgId=@chatMg_id ", conn)
cmd.Parameters.AddWithValue("@chatMg_id", Me.chatMg_id)
Dim dr = cmd.ExecuteReader()
While dr.Read
@@ -1021,7 +1019,7 @@ Public Class cMessenger
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblMessenger_ChatMessageStatus WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId ) " &
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT chatMgSt_chatMsgId FROM tblMessenger_ChatMessageStatus WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId ) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &

6
VERAG_PROG_ALLGEMEIN/Classes/cSDL.vb
View File

@@ -61,11 +61,11 @@ Public Class cSDL
Property Archiviert As Boolean = False
Property LKWAbgemeldet As Boolean = False
Property LKWAbgemeldetAM As Object = Nothing
Property Fahrer As Object = Nothing
Property Kaution As Object = Nothing
Property BelegNr As Object = Nothing
Property Nationalitaet As Object = Nothing
Property CO2Kategorie As Object = Nothing
Public hasentry
Dim SQL As New SQL
@@ -154,6 +154,8 @@ Public Class cSDL
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fahrer", Fahrer))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kaution", Kaution))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegNr", BelegNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nationalitaet", Nationalitaet))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CO2Kategorie", CO2Kategorie))
Return list
End Function

176
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb generated
View File

@@ -24,17 +24,17 @@ Partial Class frmMessenger
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle51 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle52 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle53 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle54 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle55 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger))
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
@@ -189,40 +189,40 @@ Partial Class frmMessenger
Me.dgvChats.AllowUserToResizeColumns = False
Me.dgvChats.AllowUserToResizeRows = False
Me.dgvChats.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvChats.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle45.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle45.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle45.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle45.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle45.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle45.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle45.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvChats.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle45
Me.dgvChats.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvChats.ColumnHeadersVisible = False
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvChats.DefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle46.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle46.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvChats.DefaultCellStyle = DataGridViewCellStyle46
Me.dgvChats.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvChats.Location = New System.Drawing.Point(0, 0)
Me.dgvChats.Name = "dgvChats"
Me.dgvChats.ReadOnly = True
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvChats.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle47.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle47.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle47.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvChats.RowHeadersDefaultCellStyle = DataGridViewCellStyle47
Me.dgvChats.RowHeadersVisible = False
Me.dgvChats.RowHeadersWidth = 62
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvChats.RowsDefaultCellStyle = DataGridViewCellStyle4
DataGridViewCellStyle48.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvChats.RowsDefaultCellStyle = DataGridViewCellStyle48
Me.dgvChats.RowTemplate.Height = 30
Me.dgvChats.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvChats.Size = New System.Drawing.Size(275, 739)
@@ -280,40 +280,40 @@ Partial Class frmMessenger
Me.DGVSonstige.AllowUserToResizeColumns = False
Me.DGVSonstige.AllowUserToResizeRows = False
Me.DGVSonstige.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DGVSonstige.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle49.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle49.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DGVSonstige.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle49
Me.DGVSonstige.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DGVSonstige.ColumnHeadersVisible = False
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DGVSonstige.DefaultCellStyle = DataGridViewCellStyle6
DataGridViewCellStyle50.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle50.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle50.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle50.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle50.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DGVSonstige.DefaultCellStyle = DataGridViewCellStyle50
Me.DGVSonstige.Dock = System.Windows.Forms.DockStyle.Fill
Me.DGVSonstige.Location = New System.Drawing.Point(0, 63)
Me.DGVSonstige.Name = "DGVSonstige"
Me.DGVSonstige.ReadOnly = True
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DGVSonstige.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
DataGridViewCellStyle51.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle51.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle51.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle51.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle51.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle51.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DGVSonstige.RowHeadersDefaultCellStyle = DataGridViewCellStyle51
Me.DGVSonstige.RowHeadersVisible = False
Me.DGVSonstige.RowHeadersWidth = 62
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DGVSonstige.RowsDefaultCellStyle = DataGridViewCellStyle8
DataGridViewCellStyle52.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DGVSonstige.RowsDefaultCellStyle = DataGridViewCellStyle52
Me.DGVSonstige.RowTemplate.Height = 30
Me.DGVSonstige.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.DGVSonstige.Size = New System.Drawing.Size(150, 0)
@@ -748,36 +748,36 @@ Partial Class frmMessenger
Me.dgvChatMembers.AllowUserToResizeColumns = False
Me.dgvChatMembers.AllowUserToResizeRows = False
Me.dgvChatMembers.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvChatMembers.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
DataGridViewCellStyle53.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle53.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle53.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle53.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle53.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle53.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle53.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvChatMembers.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle53
Me.dgvChatMembers.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvChatMembers.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMaId, Me.clmnName, Me.clmnFirma, Me.clmnStatus})
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvChatMembers.DefaultCellStyle = DataGridViewCellStyle10
DataGridViewCellStyle54.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle54.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle54.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle54.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle54.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle54.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle54.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvChatMembers.DefaultCellStyle = DataGridViewCellStyle54
Me.dgvChatMembers.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvChatMembers.Location = New System.Drawing.Point(0, 23)
Me.dgvChatMembers.Name = "dgvChatMembers"
Me.dgvChatMembers.ReadOnly = True
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvChatMembers.RowHeadersDefaultCellStyle = DataGridViewCellStyle11
DataGridViewCellStyle55.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle55.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle55.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle55.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle55.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle55.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvChatMembers.RowHeadersDefaultCellStyle = DataGridViewCellStyle55
Me.dgvChatMembers.RowHeadersVisible = False
Me.dgvChatMembers.RowHeadersWidth = 62
Me.dgvChatMembers.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
@@ -947,7 +947,7 @@ Partial Class frmMessenger
'TimerNEW_MESSAGE
'
Me.TimerNEW_MESSAGE.Enabled = True
Me.TimerNEW_MESSAGE.Interval = 1000
Me.TimerNEW_MESSAGE.Interval = 2500
'
'Timer_REFRESH
'

3
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.resx
View File

@@ -138,6 +138,9 @@
<metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>242, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>91</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

1
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -737,6 +737,7 @@
</EmbeddedResource>
<EmbeddedResource Include="Messenger\frmMessenger.resx">
<DependentUpon>frmMessenger.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Messenger\frmMessenger_SonstigeNEW.resx">
<DependentUpon>frmMessenger_SonstigeNEW.vb</DependentUpon>