BelegeNeu, Verzollungspreise, EABeleg, etc.

SDL/kassenbuch/frmBelegNeu.vb

@@ -1,8 +1,10 @@
 Imports System.Drawing.Printing
 Imports System.Globalization
+Imports java.awt.geom
 Imports javax.print.attribute.standard
 Imports Microsoft.Win32
 Imports SDL.RKSVServer
+Imports VERAG_PROG_ALLGEMEIN
 
 
 
@@ -1403,31 +1405,27 @@ Public Class frmBelegNeu
         Dim ECZahlungsNr As String = ZVTKey.GetValue("BelegNr").ToString
         Dim txt_Drucktext As String = Replace(ZVTKey.GetValue("Drucktext"), vbLf, vbCrLf)
         Dim txt_Drucktext2 As String = Replace(ZVTKey.GetValue("Drucktext2"), vbLf, vbCrLf)
+        Dim txt_Haendlerbeleg As String = Replace(ZVTKey.GetValue("Haendlerbeleg"), vbLf, vbCrLf)
 
         If ECZahlungsNr = "" Then
             ECZahlungsNr = -1
         End If
 
         Dim daid As Integer = -1
-        If (txt_Drucktext <> "" Or txt_Drucktext2 <> "") AndAlso BELEG IsNot Nothing Then
+        If (txt_Haendlerbeleg <> "") AndAlso BELEG IsNot Nothing Then 'Nur Händlerbeleg!!!
             If returnCode = 1000 Or returnCode = 0 Then
-                daid = createZahlungsBeleg(txt_Drucktext & " " & txt_Drucktext2, ECZahlungsNr, "Haendlerbeleg", BELEG)
+                daid = createZahlungsBeleg(txt_Haendlerbeleg, ECZahlungsNr, "Haendlerbeleg", BELEG)
             End If
         End If
 
 
-        'If txt_Drucktext2 <> "" AndAlso BELEG IsNot Nothing Then
-        '    createZahlungsBeleg(txt_Drucktext, ECZahlungsNr, "Händlerbeleg", BELEG)
-        'End If
-
-
         ZVTKey.Close()
         MsgBox(response)
         If returnCode = 0 Then 'Zahlung wurde erfolgreich durchgeführt
             setRKSV(True, ECZahlungsNr, returnCode, daid)
         ElseIf returnCode = 1000 Then 'Workaround, wenn nicht in Registry geschrieben wurden konnte.
             If vbYes = MsgBox("In der Registry wurde der Returncode 1000 abgegeben! " & vbNewLine & "Wurde die Zahlung dennoch vom Zahlungsterminal erfolgreich durchgeführt, dann mit Ja bestätigen", MsgBoxStyle.YesNoCancel) Then
-                setRKSV(True, ECZahlungsNr, returnCode, daid)
+                setRKSV(True, "", returnCode, daid)
             Else
                 Me.Cursor = Cursors.Default
             End If
@@ -1567,8 +1565,19 @@ Public Class frmBelegNeu
                 '  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 
+                    Case "1" : If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then
+                            If cbxBelegOffnen.Checked AndAlso BELEG.EC_daid > 0 Then
+                                openZahlungsbeleg(BELEG.EC_daid)
+                            End If
+                                Me.Close()
+                        End If
+                    Case "2" : If cRKSV.printKundenBelegLG(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, "LG") Then
+                            If cbxBelegOffnen.Checked AndAlso BELEG.EC_daid > 0 Then
+                                openZahlungsbeleg(BELEG.EC_daid)
+                            End If
+
+                            Me.Close() 'Beleg drucken 
+                        End If
                 End Select
             Else
                 TESTBUCHUNG = False
@@ -1836,6 +1845,18 @@ Public Class frmBelegNeu
 
     End Function
 
+    Private Sub openZahlungsbeleg(daid As Integer)
+
+        If daid > 0 Then
+
+            Dim ZahlungsBeleg As New cDATENSERVER(daid)
+            Dim pathPDF = ZahlungsBeleg.GET_TOP1_PATH
+            If pathPDF <> "" Then Process.Start(pathPDF)
+
+        End If
+
+    End Sub
+
 
 
     Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked