edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Stornierung bei POS-Zahlungen eingebaut (Umbuchung BK/Kassa wird ebenfalls storniert).

Browse Source
This commit is contained in:
d.breimaier
2023-03-13 11:47:42 +01:00
parent 5b9cd19eaf
commit 8002d08f8f
2 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/kassenbuch/frmBelegNeu.vb
View File

@@ -302,7 +302,7 @@ Public Class frmBelegNeu
AddHandler EasyZVT_Worker.DoWork, New ComponentModel.DoWorkEventHandler(AddressOf EasyZVT_Async)
AddHandler EasyZVT_Worker.RunWorkerCompleted, New System.ComponentModel.RunWorkerCompletedEventHandler(AddressOf EasyZVT_OnCompleted)
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kassenbuch_POS_Terminalzahlungen", Me) Then
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kassenbuch_POS_Terminalzahlungen", Me) Then
btnPOS.Enabled = False
End If
@@ -1434,11 +1434,11 @@ Public Class frmBelegNeu
ZVTKey.SetValue("Lizenz", posTerminal.pos_lizenz, RegistryValueKind.String)
If posTerminal.pos_Protokollpfad <> "" Then
ZVTKey.SetValue("Protokollpfad", posTerminal.pos_Protokollpfad.Text, RegistryValueKind.String)
ZVTKey.SetValue("Protokollpfad", posTerminal.pos_Protokollpfad, RegistryValueKind.String)
End If
If posTerminal.pos_XML And posTerminal.pos_Protokollpfad <> "" Then
ZVTKey.SetValue("Ausgabepfad", posTerminal.pos_Protokollpfad.Text, RegistryValueKind.String)
ZVTKey.SetValue("Ausgabepfad", posTerminal.pos_Protokollpfad, RegistryValueKind.String)
End If
@@ -1463,6 +1463,7 @@ Public Class frmBelegNeu
Catch ex As Exception
MessageBox.Show("Das Schreiben der Parameter ist fehlgeschlagen: " & ex.Message)
Me.Cursor = Cursors.Default
Exit Sub
End Try
ZVTKey.Close()
@@ -1641,7 +1642,7 @@ Public Class frmBelegNeu
Select Case BELEG.Belegart
Case "1"
If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then
If True Then 'cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then
'WARTEN
printErfolgreich = True
End If