jj abschluss 2

KommiCollo/frmAbschluss.vb

@@ -205,20 +205,30 @@
         Me.Validate()
         VWAbschlussBindingSource.EndEdit()
         ' Fragen ob das Profil wirklich gelöscht werden soll
-        Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass sie für die ausgewählten Pakete einen Abschluss durchführen wollen?", MsgBoxStyle.YesNo, "Abschluss bestätigen")
+        Dim result As DialogResult = MessageBox.Show("Dies wird die Sendungsdaten exportieren und verschicken." & vbNewLine & vbNewLine & "DIES KANN NICHT RÜCKGÄNGIG GEMACHT WERDEN!" & vbNewLine & vbNewLine & "Sind Sie sicher dass Sie den Tageschluss durchführen wollen?", "Tagesabschluss", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)
+
         ' wenn das Profil gelöscht werden soll
         If result = MsgBoxResult.Yes Then
-            Dim Speicherort As String
-            Mandant_ID = 0
 
-            Mandant_ID = TBKOMMCOLLI_MANDANTTableAdapter.cmdGetGUIDbyKurzname(Mandant)
-            Speicherort = TBKOMMCOLLI_MANDANTTableAdapter.cmdgetSpeicherort(Mandant_ID)
-            If Speicherort IsNot Nothing Then
-                AbschlussPaket(Mandant_ID, Speicherort)
-            Else
-                MsgBox("Achtung: Ein Mandant konnte nicht bestimmt werden!", MsgBoxStyle.Exclamation)
+            If cmbMandant.Text = "GLS" Then
+
+                Dim Speicherort As String
+                Mandant_ID = 0
+
+                Mandant_ID = TBKOMMCOLLI_MANDANTTableAdapter.cmdGetGUIDbyKurzname(Mandant)
+                Speicherort = TBKOMMCOLLI_MANDANTTableAdapter.cmdgetSpeicherort(Mandant_ID)
+                If Speicherort IsNot Nothing Then
+                    AbschlussPaket(Mandant_ID, Speicherort)
+                Else
+                    MsgBox("Achtung: Ein Mandant konnte nicht bestimmt werden!", MsgBoxStyle.Exclamation)
+                End If
+                Load_Pakete(Mandant)
+
+            ElseIf cmbMandant.Text = "HuP" Then
+
+                bw_Tagesabschluss.RunWorkerAsync()
+
             End If
-            Load_Pakete(Mandant)
         End If
     End Sub
 
@@ -229,15 +239,24 @@
         Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass sie die ausgewählten Pakete löschen wollen?", MsgBoxStyle.YesNo, "Löschen bestätigen")
         ' wenn das Profil gelöscht werden soll
         If result = MsgBoxResult.Yes Then
-           For Each dbRow As DataRow In MyDataset.VWKOMMCOLLI_ABSCHLUSS_PAKET.Rows
-                If CBool(dbRow.Item("Auswahl")) = True Then
-                    'Positionen löschen
-                    TBKOMMCOLLI_PAKET_POSTableAdapter.cmdDeletePos(dbRow.Item("GUID"))
-                    'Kopf löschen
-                    TBKOMMCOLLI_PAKET_KOPFTableAdapter.CmdDeleteGUID(dbRow.Item("GUID"))
-                End If
-            Next
-            Load_Pakete(Mandant)
+
+            If cmbMandant.Text = "GLS" Then
+
+                For Each dbRow As DataRow In MyDataset.VWKOMMCOLLI_ABSCHLUSS_PAKET.Rows
+                    If CBool(dbRow.Item("Auswahl")) = True Then
+                        'Positionen löschen
+                        TBKOMMCOLLI_PAKET_POSTableAdapter.cmdDeletePos(dbRow.Item("GUID"))
+                        'Kopf löschen
+                        TBKOMMCOLLI_PAKET_KOPFTableAdapter.CmdDeleteGUID(dbRow.Item("GUID"))
+                    End If
+                Next
+                Load_Pakete(Mandant)
+
+            ElseIf cmbMandant.Text = "HuP" Then
+
+                'TODO: Sendung löschen bei HuP
+
+            End If
         End If
     End Sub
 
@@ -245,7 +264,24 @@
         If cmbMandant.SelectedIndex <> -1 Then
             Load_Pakete(cmbMandant.Text)
             btnAbschluss.Text = "Mandanten '" & cmbMandant.Text & "' abschliessen"
+
+            btnAbschluss.Enabled = True
+            btndelete.Enabled = True
+        End If
+
+    End Sub
+
+    Private Sub bw_Tagesabschluss_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bw_Tagesabschluss.DoWork
+        Dim Result As Boolean = True
+        Result = ClassDatabase.Execute_non_Query("EXEC PRKOMMCOLLI_BORDERO_EXPORTIEREN", False)
+        e.Result = Result
+    End Sub
+
+    Private Sub bw_Tagesabschluss_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bw_Tagesabschluss.RunWorkerCompleted
+        If e.Result = True Then
+            MsgBox("Abschluss erfolgreich ausgeführt.", MsgBoxStyle.Information, "Tagesabschluss")
+        Else
+            MsgBox("Fehler bei Abschluss, bitte Log prüfen.")
         End If
-       
     End Sub
 End Class