JJ_Tagesabschluss

KommiCollo/frmMain.vb

@@ -637,4 +637,27 @@ Public Class frmMain
         CURRENT_SENDUNG = aktGUID
         frmPrintOptions.ShowDialog()
     End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        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)
+
+        If result = DialogResult.Yes Then
+            bw_Tagesabschluss.RunWorkerAsync()
+        End If
+    End Sub
+
+    Private Sub bw_Tagesabschluss_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bw_Tagesabschluss.DoWork
+        'Threading.Thread.Sleep(3000)
+        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