AppCustom/SchaumKommi
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj abschluss 2

Browse Source
This commit is contained in:
Jonathan Jenne
2017-09-25 11:21:08 +02:00
parent 6d6126c401
commit e4b737c7db
17 changed files with 120 additions and 119 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
KommiCollo/frmMain.vb
View File

@@ -637,27 +637,4 @@ 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