Mahnlauf Fakt.Dat., SDL Abholung (Medpass, Parkpl.), SDL Brief (Medpass, Parkpl.), Chatgruppen --> Buhchaltung

SDL/Classes/cRKSV.vb

@@ -1276,8 +1276,6 @@ Public Class cRKSV
             '   print.LoadDocument(rpt)
 
 
-            rpt.Run(False)
-            rpt.Document.Printer.PrinterSettings.Copies = 1
             If printername <> "" Then
                 rpt.Document.Printer.PrinterName = printername
             Else
@@ -1289,6 +1287,9 @@ Public Class cRKSV
                 End If
             End If
 
+            rpt.Run(False)
+            rpt.Document.Printer.PrinterSettings.Copies = 1
+
             If Not rpt.Document.Print(False, False) Then
                 MsgBox("Problem beim Drucken.")
             End If

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.2.4.5")>
+<Assembly: AssemblyVersion("1.2.4.6")>
-<Assembly: AssemblyFileVersion("1.2.4.5")>
+<Assembly: AssemblyFileVersion("1.2.4.6")>

SDL/Reports/MDM/BriefSDl/rptSDLBrief.vb

@@ -39,7 +39,8 @@ Public Class rptSDLBrief
         Dim order As String = " ORDER BY SDLNr, Bestelldatum, BestellNr,Ausstellungsdatum,KartenNr,OBUID"
 
 
-
+        MsgBox(sqlStr)
+        MsgBox(sdlNr)
         Select Case sdlNr
             Case 200 : SubReport.Report = New subrptBriefSDL_AT(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
             Case 203 : SubReport.Report = New subrptBriefSDL_CZ(sqlStr & " AND SDLNr=" & sdlNr & " " & order)

SDL/SDL.vbproj

@@ -84,10 +84,10 @@
     <SignManifests>true</SignManifests>
   </PropertyGroup>
   <PropertyGroup>
-    <SignAssembly>true</SignAssembly>
+    <SignAssembly>false</SignAssembly>
   </PropertyGroup>
   <PropertyGroup>
-    <AssemblyOriginatorKeyFile>Test.pfx</AssemblyOriginatorKeyFile>
+    <AssemblyOriginatorKeyFile>SDL_TemporaryKey.pfx</AssemblyOriginatorKeyFile>
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="Accessibility" />

SDL/buchhaltung/frmBU_Mahnlauf.vb

@@ -360,7 +360,7 @@ Public Class frmBU_Mahnlauf
                                               rpt.txtLeistung.Text = cFakturierung.checkNull(rpt.Fields.Item("OP_Typ").Value)
                                               rpt.Label15.Text = cFakturierung.checkNull(rpt.Fields.Item("Rechnungsdatum").Value)
 
-                                              If (CDate(rpt.Fields.Item("Faelligkeit").Value) >= CDate(Now.ToShortDateString) And cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) > 0) Or cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) <= 0 Then
+                                              If (CDate(rpt.Fields.Item("Faelligkeit").Value) > CDate(Now.ToShortDateString) And cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) > 0) Or cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) <= 0 Then
                                                   rpt.Label16.Text = ""
                                               Else
                                                   rpt.Label16.Text = cFakturierung.checkNull(rpt.Fields.Item("Faelligkeit").Value)

SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.vb

@@ -242,10 +242,12 @@ Public Class frmSDLAbholungEintrag
                                  "       WHEN '214'      THEN 'ROADMASTER' " &
                                  "       WHEN '215'      THEN 'IT' " &
                                  "       WHEN '216'      THEN 'CZ' " &
+                                 "       WHEN '217'      THEN 'MED PASS' " &
                                                                   "       WHEN '203'      THEN 'CZ' " &
                                  "       WHEN '209'      THEN 'PL' " &
                                  "       WHEN '500'      THEN 'ABGASPLAKETTE' " &
                                  "       WHEN '501'      THEN 'VERAG-CARD' " &
+                                 "       WHEN '502'      THEN 'VERAG-CARD' " &
                                  "       Else '-' " &
                              "   END as VARCHAR(30)) AS KARTEBOX, " &
                              "  cast(CASE [SDLNr] " &
@@ -261,17 +263,19 @@ Public Class frmSDLAbholungEintrag
                                  "       WHEN '214'     THEN cast(OBUID as VARCHAR(200)) " &
                                  "       WHEN '215'      THEN cast([TELEPASS-Nr] as VARCHAR(200)) " &
                                  "       WHEN '216'      THEN cast(KartenNr as VARCHAR(200)) " &
+                                 "       WHEN '217'     THEN cast(OBUID as VARCHAR(200)) " &
                                  "       WHEN '203'      THEN cast(KartenNr as VARCHAR(200)) " &
                                  "       WHEN '209'      THEN cast(KartenNr/*[MSE-Kd-Nr]*/ as VARCHAR(200)) " &
                                  "       WHEN '500'      THEN '-' " &
                                  "       WHEN '501'      THEN cast(KartenNr as VARCHAR(200)) " &
+                                 "       WHEN '502'      THEN cast(KartenNr as VARCHAR(200)) " &
                                  "       Else '-' " &
                              "   END as VARCHAR(200)) AS KARTEBOX_NR, " &
                                  "       [PIN] " &
                              " FROM [SDL] " &
                              " WHERE KundenNr = " & KdFirma.KdNr_value
         If sdlnr > 0 Then : sqlStr &= " AND SDLNr=" & sdlnr
-        Else : sqlStr &= " AND SDLNr IN (100,101,202,207,208,210,211,212,213,214,215,216,500,501)"
+        Else : sqlStr &= " AND SDLNr IN (100,101,202,207,208,210,211,212,213,214,215,216,217,500,501,502)"
         End If
         sqlStr &= " AND Lieferdatum between '" & datVon.Value.ToShortDateString & "' and '" & datBis.Value.ToShortDateString & "' "
 

SDL/mdm/usrCntlKartenDaten.vb

@@ -516,7 +516,7 @@ Public Class usrCntlKartenDaten
             Case 214 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, /*KartenNr,*/ OBUID, PIN, PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr  WHERE SDLNr=214"
             Case 215 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [TELEPASS-Nr], PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr   WHERE SDLNr=215"
             Case 216 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr   WHERE SDLNr=216"
-            Case 217 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr   WHERE SDLNr=217"
+            Case 217 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, OBUID, PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr   WHERE SDLNr=217"
             Case 209 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert,  SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=209"
             Case 210 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, OBUID, [SERIE-Nr],Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=210"
             Case 208 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, GültigBis,Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert,  SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=208"
@@ -526,7 +526,7 @@ Public Class usrCntlKartenDaten
             Case 206 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], [PAN-Nr], [SERIE-Nr], GültigBis,Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=206"
             Case 500 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte,SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=500"
             Case 501 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr,Fahrer,Kaution, Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte,  SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=501"
-            Case 502 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr,Fahrer,Kaution, Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte,  SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=502"
+            Case 502 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr,Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte,  SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=502"
             Case Else
                 SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr,SDLBez, KfzKennzeichen, History, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN Speditionsdienstleistungen ON Speditionsdienstleistungen.SDLNr=SDL.SDLNr"
                 SQL_STR &= " AND Speditionsdienstleistungen.SDLTypNr IN (1,2)  "

VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb

@@ -206,7 +206,7 @@ Public Class cMessenger
 
             If CHAT.chat_id <= 0 Then
                 'Neuer Chat
-                Dim chatName = Sendung.AbfertigungsNr & "/" & Sendung.FilialenNr & " (" & Aviso.LKW_Nr & ")"
+                Dim chatName = Sendung.FilialenNr & "/" & Sendung.AbfertigungsNr & " (" & Aviso.LKW_Nr & ")"
                 '"SND CHAT: " &
 
                 Dim MB_LIST As New List(Of Integer)

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.Designer.vb

@@ -38,8 +38,13 @@ Partial Class frmMessenger_NeuerChat
         Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.dgvChatgruppe = New System.Windows.Forms.DataGridView()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.grpID = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.grpName = New System.Windows.Forms.DataGridViewTextBoxColumn()
         CType(Me.dgvMitarbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvChatgruppe, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'dgvMitarbeiter
@@ -55,7 +60,7 @@ Partial Class frmMessenger_NeuerChat
         Me.dgvMitarbeiter.Name = "dgvMitarbeiter"
         Me.dgvMitarbeiter.RowHeadersVisible = False
         Me.dgvMitarbeiter.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvMitarbeiter.Size = New System.Drawing.Size(304, 393)
+        Me.dgvMitarbeiter.Size = New System.Drawing.Size(304, 330)
         Me.dgvMitarbeiter.TabIndex = 1
         '
         'dgvChatMembers
@@ -69,7 +74,7 @@ Partial Class frmMessenger_NeuerChat
         Me.dgvChatMembers.ReadOnly = True
         Me.dgvChatMembers.RowHeadersVisible = False
         Me.dgvChatMembers.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvChatMembers.Size = New System.Drawing.Size(327, 323)
+        Me.dgvChatMembers.Size = New System.Drawing.Size(327, 314)
         Me.dgvChatMembers.TabIndex = 2
         '
         'clmnMaId
@@ -206,12 +211,54 @@ Partial Class frmMessenger_NeuerChat
         Me.MyTextBox1.Size = New System.Drawing.Size(228, 20)
         Me.MyTextBox1.TabIndex = 0
         '
+        'dgvChatgruppe
+        '
+        Me.dgvChatgruppe.AllowUserToAddRows = False
+        Me.dgvChatgruppe.AllowUserToDeleteRows = False
+        Me.dgvChatgruppe.AllowUserToResizeColumns = False
+        Me.dgvChatgruppe.AllowUserToResizeRows = False
+        Me.dgvChatgruppe.BackgroundColor = System.Drawing.Color.White
+        Me.dgvChatgruppe.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvChatgruppe.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.grpID, Me.grpName})
+        Me.dgvChatgruppe.Location = New System.Drawing.Point(13, 392)
+        Me.dgvChatgruppe.MultiSelect = False
+        Me.dgvChatgruppe.Name = "dgvChatgruppe"
+        Me.dgvChatgruppe.RowHeadersVisible = False
+        Me.dgvChatgruppe.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvChatgruppe.Size = New System.Drawing.Size(304, 47)
+        Me.dgvChatgruppe.TabIndex = 9
+        Me.dgvChatgruppe.Visible = False
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(12, 379)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(65, 13)
+        Me.Label3.TabIndex = 10
+        Me.Label3.Text = "Chatgruppe:"
+        Me.Label3.Visible = False
+        '
+        'grpID
+        '
+        Me.grpID.HeaderText = "grpID"
+        Me.grpID.Name = "grpID"
+        Me.grpID.Visible = False
+        '
+        'grpName
+        '
+        Me.grpName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.grpName.HeaderText = "Name"
+        Me.grpName.Name = "grpName"
+        '
         'frmMessenger_NeuerChat
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
         Me.ClientSize = New System.Drawing.Size(662, 451)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.dgvChatgruppe)
         Me.Controls.Add(Me.MyComboBox1)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.MyTextBox2)
@@ -227,6 +274,7 @@ Partial Class frmMessenger_NeuerChat
         Me.Text = "Neuer Chat"
         CType(Me.dgvMitarbeiter, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvChatgruppe, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -247,4 +295,8 @@ Partial Class frmMessenger_NeuerChat
     Friend WithEvents DataGridViewTextBoxColumn1 As Windows.Forms.DataGridViewTextBoxColumn
     Friend WithEvents DataGridViewTextBoxColumn2 As Windows.Forms.DataGridViewTextBoxColumn
     Friend WithEvents DataGridViewTextBoxColumn3 As Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents dgvChatgruppe As Windows.Forms.DataGridView
+    Friend WithEvents Label3 As Windows.Forms.Label
+    Friend WithEvents grpID As Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents grpName As Windows.Forms.DataGridViewTextBoxColumn
 End Class

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.resx

@@ -126,6 +126,12 @@
   <metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
+  <metadata name="grpID.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="grpName.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</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>

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb

@@ -53,6 +53,17 @@ Public Class frmMessenger_NeuerChat
         MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
         MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
         MyComboBox1.changeItem("")
+
+        dgvChatgruppe.Rows.Clear()
+        dgvChatgruppe.Rows.Add({"BUCHHALTUNG", "BUCHHALTUNG"})
+        dgvChatgruppe.ClearSelection()
+
+        Select Case CHAT.chat_art
+            Case "SND_CHAT", "LKW_CHAT"
+                Label3.Visible = True
+                dgvChatgruppe.Visible = True
+        End Select
+
         loaded = True
         initDGV()
         If CHAT IsNot Nothing Then
@@ -103,6 +114,22 @@ Public Class frmMessenger_NeuerChat
         End If
     End Sub
 
+    Sub addSelMAGruppe()
+        If dgvChatgruppe.SelectedRows.Count > 0 Then
+            Select Case dgvChatgruppe.SelectedRows(0).Cells(0).Value
+                Case "BUCHHALTUNG"
+                    dgvChatMembers.Rows.Add(405, "Anna Stockenhuber", "VERAG")
+                    dgvChatMembers.Rows.Add(599, "Isabella Miesenbeck", "VERAG")
+                    dgvChatMembers.Rows.Add(170, "Kerstin Bauböck", "VERAG")
+            End Select
+
+            initAddRemoveDGV()
+            MyTextBox1.Text = ""
+            MyTextBox1.Focus()
+            dgvChatgruppe.ClearSelection()
+        End If
+    End Sub
+
     Sub initAddRemoveDGV()
         If dgvChatMembers.Rows.Count = 1 Then
             MyTextBox2.Text = dgvChatMembers.Rows(0).Cells("clmnName").Value 'dgvMitarbeiter.SelectedRows(0).Cells("MAname").Value
@@ -174,6 +201,11 @@ Public Class frmMessenger_NeuerChat
     End Sub
 
 
+    Private Sub dgvChatgruppe_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChatgruppe.CellDoubleClick
+        addSelMAGruppe()
+    End Sub
+
+
     Private Sub dgvChatMembers_RowsRemoved(sender As Object, e As DataGridViewRowsRemovedEventArgs) Handles dgvChatMembers.RowsRemoved
         initAddRemoveDGV()
     End Sub

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -67,7 +67,7 @@
     <PlatformTarget>x64</PlatformTarget>
   </PropertyGroup>
   <PropertyGroup>
-    <SignAssembly>true</SignAssembly>
+    <SignAssembly>false</SignAssembly>
   </PropertyGroup>
   <PropertyGroup>
     <AssemblyOriginatorKeyFile>ProgAllg.pfx</AssemblyOriginatorKeyFile>