Timas Änderungen, Therefore

SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb

@@ -197,7 +197,6 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.Label45 = New System.Windows.Forms.Label()
         Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.SplitContainer = New System.Windows.Forms.SplitContainer()
-        Me.VerbringungsnachweisSetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.cntxtCntxtSpeditionsbuch.SuspendLayout()
         Me.pnlRechts.SuspendLayout()
         CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -235,15 +234,15 @@ Partial Class usrCntlSpeditionsBuchSuche
         'cntxtCntxtSpeditionsbuch
         '
         Me.cntxtCntxtSpeditionsbuch.ImageScalingSize = New System.Drawing.Size(24, 24)
-        Me.cntxtCntxtSpeditionsbuch.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EintragLöschenToolStripMenuItem, Me.VerbringungsnachweisSetzenToolStripMenuItem})
+        Me.cntxtCntxtSpeditionsbuch.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EintragLöschenToolStripMenuItem})
         Me.cntxtCntxtSpeditionsbuch.Name = "cntxtCntxtSpeditionsbuch"
-        Me.cntxtCntxtSpeditionsbuch.Size = New System.Drawing.Size(230, 70)
+        Me.cntxtCntxtSpeditionsbuch.Size = New System.Drawing.Size(181, 48)
         Me.cntxtCntxtSpeditionsbuch.Text = "cntxtSpeditionsbuch"
         '
         'EintragLöschenToolStripMenuItem
         '
         Me.EintragLöschenToolStripMenuItem.Name = "EintragLöschenToolStripMenuItem"
-        Me.EintragLöschenToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
+        Me.EintragLöschenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.EintragLöschenToolStripMenuItem.Text = "Eintrag löschen"
         '
         'txtAvisoId
@@ -2760,12 +2759,6 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.SplitContainer.SplitterWidth = 2
         Me.SplitContainer.TabIndex = 3
         '
-        'VerbringungsnachweisSetzenToolStripMenuItem
-        '
-        Me.VerbringungsnachweisSetzenToolStripMenuItem.Name = "VerbringungsnachweisSetzenToolStripMenuItem"
-        Me.VerbringungsnachweisSetzenToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
-        Me.VerbringungsnachweisSetzenToolStripMenuItem.Text = "Verbringungsnachweis setzen"
-        '
         'usrCntlSpeditionsBuchSuche
         '
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -2977,5 +2970,4 @@ Partial Class usrCntlSpeditionsBuchSuche
     Friend WithEvents FlenderBocholtZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label48 As Label
-    Friend WithEvents VerbringungsnachweisSetzenToolStripMenuItem As ToolStripMenuItem
 End Class

SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb

@@ -713,6 +713,10 @@ Public Class usrCntlSpeditionsBuchSuche
 
     Private Sub EintragLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem.Click
         If DataGridView.SelectedRows.Count > 0 Then
+            If DataGridView.SelectedRows.Count > 1 Then
+                MsgBox("Einträge können nur einzeln gelöscht werden!")
+                Exit Sub
+            End If
             If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then
                 Dim r As DataGridViewRow = DataGridView.SelectedRows(0)
                 SQL.doSQL("DELETE FROM [Speditionsbuch] WHERE [FilialenNr]='" & r.Cells("FilialenNr").Value & "' AND [AbfertigungsNr] ='" & r.Cells("AbfertigungsNr").Value & "' AND [UnterNr]='" & r.Cells("UnterNr").Value & "' ", "FMZOLL")
@@ -1846,10 +1850,6 @@ Public Class usrCntlSpeditionsBuchSuche
 
     End Sub
 
-    Private Sub DataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)
-
-    End Sub
-
     Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
         getrHandlingAussenstellen(, cboHandlingssatz._value)
     End Sub
@@ -2374,18 +2374,4 @@ Public Class usrCntlSpeditionsBuchSuche
 
     End Function
 
-    Private Sub VerbringungsnachweisSetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerbringungsnachweisSetzenToolStripMenuItem.Click
-
-
-        'cbxCMR.Checked = SPEDITIONSBUCH.SB_CMR
-        'txtCMRDatum.Text = If(SPEDITIONSBUCH.SB_CMRDatum, "")
-        'txtCMRNr.Text = If(SPEDITIONSBUCH.SB_CMRNr, "")
-        'If pnlFiskal.Visible Then
-        '    SPEDITIONSBUCH.SB_CMR = cbxCMR.Checked
-        '    If txtCMRDatum.Text <> "" Then SPEDITIONSBUCH.SB_CMRDatum = txtCMRDatum.Text
-        '    SPEDITIONSBUCH.SB_CMRNr = txtCMRNr.Text
-
-        'End If
-
-    End Sub
 End Class