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

BelegeNeu, Verzollungspreise, EABeleg, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-02-17 16:56:10 +01:00
parent 13bbf904f7
commit bc14ef5e69
6 changed files with 58 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Classes/cEABeleg.vb
View File

@@ -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

24
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb generated
View File

@@ -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

6
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb
View File

@@ -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

18
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -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)

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.5.2.9")>
<Assembly: AssemblyFileVersion("1.5.2.9")>
<Assembly: AssemblyVersion("1.5.3.0")>
<Assembly: AssemblyFileVersion("1.5.3.0")>

41
SDL/kassenbuch/frmBelegNeu.vb
View File

@@ -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