POS
This commit is contained in:
@@ -742,20 +742,15 @@ Public Class frmBelegNeu
|
||||
|
||||
|
||||
' Dim RKSV_Service_Location = "\\192.168.0.106:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/"
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click ', btnPOS.Click
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click ' btnPOS.Click
|
||||
|
||||
Dim IsPosPayment As Boolean = False
|
||||
|
||||
If sender.Name = "btnPOS" Then
|
||||
IsPosPayment = True
|
||||
End If
|
||||
Try
|
||||
printErfolgreich = False
|
||||
If BELEG.gebucht Or BELEG.gebuchtStorno Then
|
||||
' KASSE.LOAD(cboKassen._value)
|
||||
If BELEG.rksv_id > 0 Then KASSE.LOAD(BELEG.rksv_id)
|
||||
Select Case BELEG.Belegart
|
||||
Case "1" : If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked, IsPosPayment) Then Me.Close()
|
||||
Case "1" : If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then Me.Close()
|
||||
Case "2" : If cRKSV.printKundenBelegLG(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, "LG") Then Me.Close() 'Beleg drucken
|
||||
End Select
|
||||
Else
|
||||
@@ -879,16 +874,9 @@ Public Class frmBelegNeu
|
||||
Me.DialogResult = Windows.Forms.DialogResult.OK
|
||||
'printBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString) 'Beleg drucken
|
||||
|
||||
If IsPosPayment And Betrag > 0 Then
|
||||
POSpayment(sender, e)
|
||||
While setBreak
|
||||
System.Threading.Thread.Sleep(5000)
|
||||
End While
|
||||
End If
|
||||
|
||||
Select Case BELEG.Belegart
|
||||
Case "1"
|
||||
If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked, IsPosPayment) Then
|
||||
If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then
|
||||
'WARTEN
|
||||
printErfolgreich = True
|
||||
End If
|
||||
@@ -1563,7 +1551,9 @@ Public Class frmBelegNeu
|
||||
|
||||
Private Sub POSpayment(sender As Object, e As EventArgs) Handles btnPOS.Click
|
||||
|
||||
If cboKassen.SelectedItem.Text = "" Then Exit Sub
|
||||
If cboKassen.SelectedItem.Text = "" Or Betrag <= 0 Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
dt = SQL.loadDgvBySql("SELECT * FROM tblRKSV_POS WHERE [pos_aktiv] = 1 AND [pos_kasse]='" & cboKassen.SelectedItem.Value & "'", "FMZOLL")
|
||||
@@ -1571,7 +1561,6 @@ Public Class frmBelegNeu
|
||||
Select Case dt.Rows.Count
|
||||
Case 0
|
||||
MsgBox("Für diese Kasse ist kein aktives POS-Terminal hinterlegt!")
|
||||
Exit Sub
|
||||
Case 1
|
||||
SetRegEntries()
|
||||
|
||||
@@ -1588,8 +1577,6 @@ Public Class frmBelegNeu
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub SetRegEntries(Optional posid As Integer = -1)
|
||||
@@ -1659,9 +1646,155 @@ Public Class frmBelegNeu
|
||||
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
|
||||
If item IsNot Nothing Then
|
||||
SetRegEntries(item.Name)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub printRoutine()
|
||||
|
||||
|
||||
Try
|
||||
printErfolgreich = False
|
||||
If BELEG.gebucht Or BELEG.gebuchtStorno Then
|
||||
' KASSE.LOAD(cboKassen._value)
|
||||
If BELEG.rksv_id > 0 Then KASSE.LOAD(BELEG.rksv_id)
|
||||
Select Case BELEG.Belegart
|
||||
Case "1" : If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then Me.Close()
|
||||
Case "2" : If cRKSV.printKundenBelegLG(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, "LG") Then Me.Close() 'Beleg drucken
|
||||
End Select
|
||||
Else
|
||||
Dim TESTBUCHUNG = False
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM()
|
||||
If cRKSV.isforbiddenDate Then
|
||||
MsgBox("Die Kasse wir am Monatsende abgeschlossen. Es dürfen keine weiteren Belege erstellt werden. Bitte veruchen Sie den Vorgang nach Mitternacht erneut.")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
KASSE.LOAD(6) 'Laden der Kasse anhand der Auswahlbox
|
||||
Else
|
||||
KASSE.LOAD(cboKassen._value) 'Laden der Kasse anhand der Auswahlbox
|
||||
End If
|
||||
BELEG.rksv_id = KASSE.rksv_id ' bei Fehler wird sonst die ID nicht richtig übernommen
|
||||
|
||||
If kdkunde.Text.Trim.Length > 50 Then
|
||||
kdkunde.Text = kdkunde.Text.Trim.Substring(0, 50)
|
||||
End If
|
||||
|
||||
datatoBeleg() 'Daten werden in "BELEG" geldaen
|
||||
If Not validValues() Then Me.Cursor = Cursors.Default : Exit Sub
|
||||
|
||||
If Not allowPrint Then
|
||||
If Not vbYes = MsgBox("Beim Druckvorgang werden die Beleg-Daten ins Kassenbuch eingetragen. Danach sind keine Änderungen mehr möglich." & vbNewLine & vbNewLine & "Soll der Vorgang gestartet werden?", vbYesNoCancel) Then Me.Cursor = Cursors.Default : Exit Sub
|
||||
End If
|
||||
|
||||
Dim summeNETTO As Double = 0
|
||||
For Each p In BELEG.POS : summeNETTO += p.Betrag : Next
|
||||
|
||||
Dim summeBRUTTO = summeNETTO
|
||||
Dim steuersatz As Double = SQL.getValueTxtBySql("SELECT isnull(tblSteuersätze.Steuersatz,0) FROM tblSteuersätze WHERE tblSteuersätze.Nr='" & BELEG.Steuerschlüssel & "' ", "FMZOLL")
|
||||
If IsNumeric(steuersatz) Then summeBRUTTO += (summeNETTO * steuersatz)
|
||||
' If EA = "A" Then
|
||||
' summeNETTO *= -1
|
||||
' steuersatz *= -1
|
||||
' summeBRUTTO *= -1
|
||||
' End If
|
||||
|
||||
Dim oldBelegZaehler = KASSE.rksv_BelegIdZaehler 'Flls Fehler bei Signatur
|
||||
|
||||
Dim RKSV_Beleg_Id = KASSE.INCREASE_BELEG_UMSATZ(If(TESTBUCHUNG, 0, If(EA = "E", summeBRUTTO, summeBRUTTO * -1))) 'Bei Ausgabebeleg wird der Umsatz vermindert
|
||||
If RKSV_Beleg_Id < 0 Then
|
||||
Me.Cursor = Cursors.Default : warnClose = False : Me.Close() : Exit Sub
|
||||
End If
|
||||
' MsgBox(BELEG.POS.Count)
|
||||
Dim JournalNr = 0
|
||||
If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, KASSE.rksv_aktiv, JournalNr, KASSE.rksv_firma) Then
|
||||
KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, summeBRUTTO * -1)
|
||||
MsgBox("Programmfehler bei Eintrag ins Kassenbuch.")
|
||||
Me.Cursor = Cursors.Default : warnClose = False : Me.Close() : Exit Sub
|
||||
End If
|
||||
|
||||
' QR_Image = Nothing
|
||||
Dim QR_CodeString As String = ""
|
||||
Dim LastJWS As String = ""
|
||||
|
||||
If KASSE.rksv_aktiv Then ' WENN für die Kasse die RKSV ÖSTERREICH gilt
|
||||
Dim answer = ""
|
||||
If Not cRKSV.insertRKSV(KASSE, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, BELEG.BelegDat, BELEG.Steuerschlüssel, RKSV_Beleg_Id, If(EA = "E", summeBRUTTO, summeBRUTTO * -1), QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
|
||||
If Not TESTBUCHUNG Then
|
||||
KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, If(EA = "E", summeBRUTTO * -1, summeBRUTTO))
|
||||
cRKSV.DELETE(BELEG, KASSE.rksv_firma)
|
||||
End If
|
||||
MsgBox("Programmfehler bei der digitalen Signatur." & vbNewLine & vbNewLine & answer, MsgBoxStyle.Critical)
|
||||
Me.Cursor = Cursors.Default : warnClose = False : Me.Close() : Exit Sub
|
||||
End If
|
||||
KASSE.SET_LAST_QR_JWS(LastJWS, QR_CodeString)
|
||||
End If
|
||||
|
||||
'If Not cRKSV_DE.insertRKSV_DE(PERSONAL, BELEG, KASSE, RKSV_Beleg_Id, 0, QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
|
||||
' If Not TESTBUCHUNG Then
|
||||
' KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, summe * -1)
|
||||
' cRKSV.DELETE(BELEG)
|
||||
' End If
|
||||
' MsgBox("Programmfehler bei der digitalen Signatur." & vbNewLine & vbNewLine & answer, MsgBoxStyle.Critical)
|
||||
' ' Me.Cursor = Cursors.Default
|
||||
' 'BELEG = cRKSV.STORNO(BELEG, "Programmfehler")
|
||||
' ' MsgBox("Programmfehler bei der digitalen Signatur.")
|
||||
|
||||
' Return False
|
||||
'End If
|
||||
'KASSE.SET_LAST_QR_JWS(LastJWS, QR_CodeString)
|
||||
|
||||
' Dim TEST_KASSE = (BELEG.Niederlassung = "WAI")
|
||||
If KASSE.rksvDE_aktiv Then ' WENN für die Kasse die RKSV DEUTSCHLAND gilt
|
||||
Dim answer = ""
|
||||
|
||||
If Not cRKSV_DE.insertRKSV_DE(PERSONAL, BELEG, KASSE, RKSV_Beleg_Id, If(EA = "E", summeBRUTTO, summeBRUTTO * -1), QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
|
||||
If Not TESTBUCHUNG Then
|
||||
KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, If(EA = "E", summeBRUTTO * -1, summeBRUTTO))
|
||||
cRKSV.DELETE(BELEG, KASSE.rksv_firma)
|
||||
End If
|
||||
MsgBox("Programmfehler bei der digitalen Signatur." & vbNewLine & vbNewLine & answer, MsgBoxStyle.Critical)
|
||||
Me.Cursor = Cursors.Default : warnClose = False : Me.Close() : Exit Sub
|
||||
End If
|
||||
KASSE.SET_LAST_QR_JWS(LastJWS, QR_CodeString)
|
||||
|
||||
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
||||
If KASSE.rksv_KassaGuid = "KASSE_01" Then 'Testkasse
|
||||
BELEG.rksv_jws = Nothing
|
||||
BELEG.rksv_qr = Nothing
|
||||
End If
|
||||
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
||||
End If
|
||||
|
||||
'RKSV-Daten beim Beleg ergänzen:
|
||||
BELEG.rksv_jws = LastJWS
|
||||
BELEG.rksv_qr = QR_CodeString
|
||||
BELEG.rksv_BelegId = RKSV_Beleg_Id
|
||||
BELEG.rksv_id = KASSE.rksv_id
|
||||
BELEG.rksv_umsatz = summeBRUTTO
|
||||
BELEG.rksv_aktiv = KASSE.rksv_aktiv
|
||||
BELEG.gebucht = True
|
||||
BELEG.SAVE()
|
||||
|
||||
|
||||
Me.DialogResult = Windows.Forms.DialogResult.OK
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Me.DialogResult = Windows.Forms.DialogResult.None
|
||||
Me.Cursor = Cursors.Default
|
||||
printErfolgreich = False
|
||||
MsgBox("Allgemeiner Programmfehler - Belegerfassung wird geschlossen!" & ex.Message & ex.StackTrace)
|
||||
warnClose = False
|
||||
Me.Close()
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user