diff --git a/SDL/Classes/cEABeleg.vb b/SDL/Classes/cEABeleg.vb index eadfd43c..0a463382 100644 --- a/SDL/Classes/cEABeleg.vb +++ b/SDL/Classes/cEABeleg.vb @@ -279,7 +279,7 @@ Public Class EABeleg Property Benutzer_LG As Object = Nothing Property durchfuehrender_Benutzer As Object = Nothing Property ECZahlungsNr As Object = Nothing - Property ECZahlungsPerAPI As Boolean = True + Property ECZahlungsPerAPI As Boolean = False Property ECTerminalreturnCode As Object = Nothing Property EC_daid As Integer = 0 diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb index a6d83b1d..365d1634 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb @@ -47,7 +47,7 @@ Partial Class usrcntlVerzollungspreise Me.ZPreis = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.cbxZollpflichtigeAbfertigung = New System.Windows.Forms.CheckBox() Me.Label1 = New System.Windows.Forms.Label() - Me.MyComboBoxSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxAusDB = New System.Windows.Forms.CheckBox() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() @@ -299,16 +299,16 @@ Partial Class usrcntlVerzollungspreise Me.Label1.TabIndex = 38 Me.Label1.Text = "Sprache:" ' - 'MyComboBoxSprache + 'cboSprache ' - Me.MyComboBoxSprache._allowedValuesFreiText = Nothing - Me.MyComboBoxSprache._allowFreiText = False - Me.MyComboBoxSprache._value = "" - Me.MyComboBoxSprache.FormattingEnabled = True - Me.MyComboBoxSprache.Location = New System.Drawing.Point(72, 89) - Me.MyComboBoxSprache.Name = "MyComboBoxSprache" - Me.MyComboBoxSprache.Size = New System.Drawing.Size(144, 21) - Me.MyComboBoxSprache.TabIndex = 39 + Me.cboSprache._allowedValuesFreiText = Nothing + Me.cboSprache._allowFreiText = False + Me.cboSprache._value = "" + Me.cboSprache.FormattingEnabled = True + Me.cboSprache.Location = New System.Drawing.Point(72, 89) + Me.cboSprache.Name = "cboSprache" + Me.cboSprache.Size = New System.Drawing.Size(144, 21) + Me.cboSprache.TabIndex = 39 ' 'cbxAusDB ' @@ -330,7 +330,7 @@ Partial Class usrcntlVerzollungspreise Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Controls.Add(Me.cbxAusDB) - Me.Controls.Add(Me.MyComboBoxSprache) + Me.Controls.Add(Me.cboSprache) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.cbxZollpflichtigeAbfertigung) Me.Controls.Add(Me.dgvZusatzleistung) @@ -382,6 +382,6 @@ Partial Class usrcntlVerzollungspreise Friend WithEvents ZPreis As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents cbxZollpflichtigeAbfertigung As CheckBox Friend WithEvents Label1 As Label - Friend WithEvents MyComboBoxSprache As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cbxAusDB As CheckBox End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb index 09007a01..fa764bbd 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb @@ -258,7 +258,7 @@ Dim dtHaupt As DataTable = (New SQL).loadDgvBySql(sqlstrHauptleistungen, "FMZOLL") Dim dtZusatz As DataTable = (New SQL).loadDgvBySql(sqlstrZusatzleistungen, "FMZOLL") - loadDGV(dtHaupt, dtZusatz, MyComboBoxSprache._value) + loadDGV(dtHaupt, dtZusatz, cboSprache._value) Else @@ -266,7 +266,7 @@ DataGridView.Rows.Clear() dgvZusatzleistung.Rows.Clear() - Select Case MyComboBoxSprache._value + Select Case cboSprache._value Case "EN" Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" @@ -2387,7 +2387,7 @@ btnStandardPreiseLaden.PerformClick() End Sub - Private Sub MyComboBoxSprache_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBoxSprache.SelectedIndexChanged + Private Sub MyComboBoxSprache_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboSprache.SelectedIndexChanged initPreisliste() End Sub End Class diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index a23febad..86e7171c 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -8,7 +8,6 @@ Imports System.Reflection Imports System.Text.RegularExpressions Imports System.Windows.Documents Imports VERAG_PROG_ALLGEMEIN -Imports System.Security.Authentication.ExtendedProtection Public Class frmFormulare Dim isSingleForm = False @@ -692,15 +691,16 @@ Public Class frmFormulare AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown AddHandler c.LOADED, Sub() If param IsNot Nothing Then - c.MyComboBoxSprache.changeItem(0) + c.cboSprache.changeItem(param(0)) c.btnStandardPreiseLaden.PerformClick() End If End Sub MyFlowLayoutPanel1.Controls.Add(c) - Dim sprachen() As String = {"DE", "EN"} - c.MyComboBoxSprache.Items.Clear() - c.MyComboBoxSprache.Items.AddRange(sprachen) + + c.cboSprache.Items.Clear() + c.cboSprache.Items.Add(New MyListItem("Deutsch", "DE")) + c.cboSprache.Items.Add(New MyListItem("Englisch", "EN")) End If Case FormularManagerArten.Boniteatsauskunft Dim c As New usrcntlCreditreformBoniAuskunft @@ -5158,9 +5158,9 @@ Public Class FormularManagerNEU dict("ZAHLUNGSZIEL") = usrCntl.txtZahlunsziel.Text dict("POSKREDIT") = PosKredit - Dim rpt As New rptPreislisten(usrCntl.MyComboBoxSprache._value, Nothing, -1, dict) - Dim subRpt As New subrptPreislisten(usrCntl.MyComboBoxSprache._value, Nothing, -1) - Dim subRpt_Zoll As New subrptPreislisten_Zoll(usrCntl.MyComboBoxSprache._value, Nothing, -1) + Dim rpt As New rptPreislisten(usrCntl.cboSprache._value, Nothing, -1, dict) + Dim subRpt As New subrptPreislisten(usrCntl.cboSprache._value, Nothing, -1) + Dim subRpt_Zoll As New subrptPreislisten_Zoll(usrCntl.cboSprache._value, Nothing, -1) rpt.SubReport.Report = subRpt Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA @@ -5273,7 +5273,7 @@ Public Class FormularManagerNEU End If - If usrCntl.MyComboBoxSprache._value = "DE" Then 'weil DE nicht übersetzt wird!!! + If usrCntl.cboSprache._value = "DE" Or usrCntl.cboSprache._value = "" Then 'weil DE nicht übersetzt wird!!! For Each pair In dict rpt.txtZahlungsziel.Text = rpt.txtZahlungsziel.Text.ToString.Replace("%" & pair.Key & "%", pair.Value) rpt.txtZahlungsziel2.Text = rpt.txtZahlungsziel2.Text.ToString.Replace("%" & pair.Key & "%", pair.Value) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index f2222a1b..90685699 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb index 805f0669..d1d7d8f6 100644 --- a/SDL/kassenbuch/frmBelegNeu.vb +++ b/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