bericht

SchaumKommiCollo/KommiCollo/frmAbschluss.vb

@@ -2,6 +2,8 @@
     Dim Mandant As String
     Dim Mandant_ID As Integer
     Private Sub frmAbschluss_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
+        'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.VWKOMMCOLLI_UEBERSICHT". Sie können sie bei Bedarf verschieben oder entfernen.
+        Me.VWKOMMCOLLI_UEBERSICHTTableAdapter.Fill(Me.MyDataset.VWKOMMCOLLI_UEBERSICHT)
         Try
             Me.VWAbschlussTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
             Me.TBKOMMCOLLI_MANDANTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
@@ -186,7 +188,7 @@
                 DR.Item("Auswahl") = True
             Next
         Else
-            Dim DT As DataTable = MyDataset.VWHUP_REPORT1
+            Dim DT As DataTable = MyDataset.VWKOMMCOLLI_UEBERSICHT
             For Each DR As DataRow In DT.Rows
                 DR.Item("Selected") = True
             Next
@@ -201,7 +203,7 @@
                 DR.Item("Auswahl") = False
             Next
         Else
-            Dim DT As DataTable = MyDataset.VWHUP_REPORT1
+            Dim DT As DataTable = MyDataset.VWKOMMCOLLI_UEBERSICHT
             For Each DR As DataRow In DT.Rows
                 DR.Item("Selected") = False
             Next
@@ -272,13 +274,15 @@
 
             ElseIf cmbMandant.Text = "HuP" Then
                 'Sendung löschen bei HuP
-                VWHUP_REPORT1BindingSource.EndEdit()
-                For Each row As DataRow In MyDataset.VWHUP_REPORT1.Rows
-                    If row.Item("Selected") = True Then
-                        Dim cmd = String.Format("EXECUTE PRKOMMCOLLI_SDG_LOESCHEN {0}", row.Item("GUID"))
+                VWKOMMCOLLI_UEBERSICHTBindingSource.EndEdit()
+
+                For Each row As DataGridViewRow In VWKOMMCOLLI_UEBERSICHTDataGridView.Rows
+                    If row.Cells("SELECTED").Value = True Then
+                        Dim cmd = String.Format("EXECUTE PRKOMMCOLLI_SDG_LOESCHEN {0}", row.Cells("GUID").Value)
                         ClassDatabase.Execute_non_Query(cmd, True)
                     End If
                 Next
+
                 Load_Sendungen()
 
 
@@ -288,14 +292,14 @@
     Sub Refresh_Grid()
         VWAbschlussDataGridView.Visible = False
         VWAbschlussDataGridView.Dock = DockStyle.None
-        VWHUP_REPORT1DataGridView.Visible = False
+        VWKOMMCOLLI_UEBERSICHTDataGridView.Visible = False
         btndelete.Enabled = False
         If cmbMandant.SelectedIndex <> -1 Then
             Select Case cmbMandant.SelectedIndex
                 Case 0
                     Load_Sendungen()
-                    VWHUP_REPORT1DataGridView.Dock = DockStyle.Fill
-                    VWHUP_REPORT1DataGridView.Visible = True
+                    VWKOMMCOLLI_UEBERSICHTDataGridView.Dock = DockStyle.Fill
+                    VWKOMMCOLLI_UEBERSICHTDataGridView.Visible = True
                     btndelete.Text = "Sendung(en)" & vbNewLine & "löschen"
                     btndelete.Enabled = True
                 Case 1
@@ -331,8 +335,8 @@
 
     Private Sub Load_Sendungen()
         Try
-            Me.VWHUP_REPORT1TableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
-            Me.VWHUP_REPORT1TableAdapter.Fill(Me.MyDataset.VWHUP_REPORT1, True, False)
+            VWKOMMCOLLI_UEBERSICHTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
+            VWKOMMCOLLI_UEBERSICHTTableAdapter.Fill(MyDataset.VWKOMMCOLLI_UEBERSICHT)
         Catch ex As System.Exception
             MsgBox("Fehler bei Load_Sendungen: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try