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 Benutzer_LG As Object = Nothing
Property durchfuehrender_Benutzer As Object = Nothing Property durchfuehrender_Benutzer As Object = Nothing
Property ECZahlungsNr As Object = Nothing Property ECZahlungsNr As Object = Nothing
Property ECZahlungsPerAPI As Boolean = True Property ECZahlungsPerAPI As Boolean = False
Property ECTerminalreturnCode As Object = Nothing Property ECTerminalreturnCode As Object = Nothing
Property EC_daid As Integer = 0 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.ZPreis = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.cbxZollpflichtigeAbfertigung = New System.Windows.Forms.CheckBox() Me.cbxZollpflichtigeAbfertigung = New System.Windows.Forms.CheckBox()
Me.Label1 = New System.Windows.Forms.Label() 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() Me.cbxAusDB = New System.Windows.Forms.CheckBox()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -299,16 +299,16 @@ Partial Class usrcntlVerzollungspreise
Me.Label1.TabIndex = 38 Me.Label1.TabIndex = 38
Me.Label1.Text = "Sprache:" Me.Label1.Text = "Sprache:"
' '
'MyComboBoxSprache 'cboSprache
' '
Me.MyComboBoxSprache._allowedValuesFreiText = Nothing Me.cboSprache._allowedValuesFreiText = Nothing
Me.MyComboBoxSprache._allowFreiText = False Me.cboSprache._allowFreiText = False
Me.MyComboBoxSprache._value = "" Me.cboSprache._value = ""
Me.MyComboBoxSprache.FormattingEnabled = True Me.cboSprache.FormattingEnabled = True
Me.MyComboBoxSprache.Location = New System.Drawing.Point(72, 89) Me.cboSprache.Location = New System.Drawing.Point(72, 89)
Me.MyComboBoxSprache.Name = "MyComboBoxSprache" Me.cboSprache.Name = "cboSprache"
Me.MyComboBoxSprache.Size = New System.Drawing.Size(144, 21) Me.cboSprache.Size = New System.Drawing.Size(144, 21)
Me.MyComboBoxSprache.TabIndex = 39 Me.cboSprache.TabIndex = 39
' '
'cbxAusDB 'cbxAusDB
' '
@@ -330,7 +330,7 @@ Partial Class usrcntlVerzollungspreise
Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.cbxAusDB) Me.Controls.Add(Me.cbxAusDB)
Me.Controls.Add(Me.MyComboBoxSprache) Me.Controls.Add(Me.cboSprache)
Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.cbxZollpflichtigeAbfertigung) Me.Controls.Add(Me.cbxZollpflichtigeAbfertigung)
Me.Controls.Add(Me.dgvZusatzleistung) Me.Controls.Add(Me.dgvZusatzleistung)
@@ -382,6 +382,6 @@ Partial Class usrcntlVerzollungspreise
Friend WithEvents ZPreis As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents ZPreis As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents cbxZollpflichtigeAbfertigung As CheckBox Friend WithEvents cbxZollpflichtigeAbfertigung As CheckBox
Friend WithEvents Label1 As Label 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 Friend WithEvents cbxAusDB As CheckBox
End Class 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 dtHaupt As DataTable = (New SQL).loadDgvBySql(sqlstrHauptleistungen, "FMZOLL")
Dim dtZusatz As DataTable = (New SQL).loadDgvBySql(sqlstrZusatzleistungen, "FMZOLL") Dim dtZusatz As DataTable = (New SQL).loadDgvBySql(sqlstrZusatzleistungen, "FMZOLL")
loadDGV(dtHaupt, dtZusatz, MyComboBoxSprache._value) loadDGV(dtHaupt, dtZusatz, cboSprache._value)
Else Else
@@ -266,7 +266,7 @@
DataGridView.Rows.Clear() DataGridView.Rows.Clear()
dgvZusatzleistung.Rows.Clear() dgvZusatzleistung.Rows.Clear()
Select Case MyComboBoxSprache._value Select Case cboSprache._value
Case "EN" Case "EN"
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" Case "IMEX"
@@ -2387,7 +2387,7 @@
btnStandardPreiseLaden.PerformClick() btnStandardPreiseLaden.PerformClick()
End Sub 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() initPreisliste()
End Sub End Sub
End Class End Class

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

@@ -8,7 +8,6 @@ Imports System.Reflection
Imports System.Text.RegularExpressions Imports System.Text.RegularExpressions
Imports System.Windows.Documents Imports System.Windows.Documents
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Imports System.Security.Authentication.ExtendedProtection
Public Class frmFormulare Public Class frmFormulare
Dim isSingleForm = False Dim isSingleForm = False
@@ -692,15 +691,16 @@ Public Class frmFormulare
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
AddHandler c.LOADED, Sub() AddHandler c.LOADED, Sub()
If param IsNot Nothing Then If param IsNot Nothing Then
c.MyComboBoxSprache.changeItem(0) c.cboSprache.changeItem(param(0))
c.btnStandardPreiseLaden.PerformClick() c.btnStandardPreiseLaden.PerformClick()
End If End If
End Sub End Sub
MyFlowLayoutPanel1.Controls.Add(c) MyFlowLayoutPanel1.Controls.Add(c)
Dim sprachen() As String = {"DE", "EN"}
c.MyComboBoxSprache.Items.Clear() c.cboSprache.Items.Clear()
c.MyComboBoxSprache.Items.AddRange(sprachen) c.cboSprache.Items.Add(New MyListItem("Deutsch", "DE"))
c.cboSprache.Items.Add(New MyListItem("Englisch", "EN"))
End If End If
Case FormularManagerArten.Boniteatsauskunft Case FormularManagerArten.Boniteatsauskunft
Dim c As New usrcntlCreditreformBoniAuskunft Dim c As New usrcntlCreditreformBoniAuskunft
@@ -5158,9 +5158,9 @@ Public Class FormularManagerNEU
dict("ZAHLUNGSZIEL") = usrCntl.txtZahlunsziel.Text dict("ZAHLUNGSZIEL") = usrCntl.txtZahlunsziel.Text
dict("POSKREDIT") = PosKredit dict("POSKREDIT") = PosKredit
Dim rpt As New rptPreislisten(usrCntl.MyComboBoxSprache._value, Nothing, -1, dict) Dim rpt As New rptPreislisten(usrCntl.cboSprache._value, Nothing, -1, dict)
Dim subRpt As New subrptPreislisten(usrCntl.MyComboBoxSprache._value, Nothing, -1) Dim subRpt As New subrptPreislisten(usrCntl.cboSprache._value, Nothing, -1)
Dim subRpt_Zoll As New subrptPreislisten_Zoll(usrCntl.MyComboBoxSprache._value, Nothing, -1) Dim subRpt_Zoll As New subrptPreislisten_Zoll(usrCntl.cboSprache._value, Nothing, -1)
rpt.SubReport.Report = subRpt rpt.SubReport.Report = subRpt
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -5273,7 +5273,7 @@ Public Class FormularManagerNEU
End If 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 For Each pair In dict
rpt.txtZahlungsziel.Text = rpt.txtZahlungsziel.Text.ToString.Replace("%" & pair.Key & "%", pair.Value) rpt.txtZahlungsziel.Text = rpt.txtZahlungsziel.Text.ToString.Replace("%" & pair.Key & "%", pair.Value)
rpt.txtZahlungsziel2.Text = rpt.txtZahlungsziel2.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: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.5.2.9")> <Assembly: AssemblyVersion("1.5.3.0")>
<Assembly: AssemblyFileVersion("1.5.2.9")> <Assembly: AssemblyFileVersion("1.5.3.0")>

41
SDL/kassenbuch/frmBelegNeu.vb
View File

@@ -1,8 +1,10 @@
Imports System.Drawing.Printing Imports System.Drawing.Printing
Imports System.Globalization Imports System.Globalization
Imports java.awt.geom
Imports javax.print.attribute.standard Imports javax.print.attribute.standard
Imports Microsoft.Win32 Imports Microsoft.Win32
Imports SDL.RKSVServer Imports SDL.RKSVServer
Imports VERAG_PROG_ALLGEMEIN
@@ -1403,31 +1405,27 @@ Public Class frmBelegNeu
Dim ECZahlungsNr As String = ZVTKey.GetValue("BelegNr").ToString Dim ECZahlungsNr As String = ZVTKey.GetValue("BelegNr").ToString
Dim txt_Drucktext As String = Replace(ZVTKey.GetValue("Drucktext"), vbLf, vbCrLf) Dim txt_Drucktext As String = Replace(ZVTKey.GetValue("Drucktext"), vbLf, vbCrLf)
Dim txt_Drucktext2 As String = Replace(ZVTKey.GetValue("Drucktext2"), 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 If ECZahlungsNr = "" Then
ECZahlungsNr = -1 ECZahlungsNr = -1
End If End If
Dim daid As Integer = -1 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 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
End If End If
'If txt_Drucktext2 <> "" AndAlso BELEG IsNot Nothing Then
' createZahlungsBeleg(txt_Drucktext, ECZahlungsNr, "Händlerbeleg", BELEG)
'End If
ZVTKey.Close() ZVTKey.Close()
MsgBox(response) MsgBox(response)
If returnCode = 0 Then 'Zahlung wurde erfolgreich durchgeführt If returnCode = 0 Then 'Zahlung wurde erfolgreich durchgeführt
setRKSV(True, ECZahlungsNr, returnCode, daid) setRKSV(True, ECZahlungsNr, returnCode, daid)
ElseIf returnCode = 1000 Then 'Workaround, wenn nicht in Registry geschrieben wurden konnte. 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 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 Else
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End If End If
@@ -1567,8 +1565,19 @@ Public Class frmBelegNeu
' KASSE.LOAD(cboKassen._value) ' KASSE.LOAD(cboKassen._value)
If BELEG.rksv_id > 0 Then KASSE.LOAD(BELEG.rksv_id) If BELEG.rksv_id > 0 Then KASSE.LOAD(BELEG.rksv_id)
Select Case BELEG.Belegart Select Case BELEG.Belegart
Case "1" : If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then Me.Close() Case "1" : If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then
Case "2" : If cRKSV.printKundenBelegLG(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, "LG") Then Me.Close() 'Beleg drucken 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 End Select
Else Else
TESTBUCHUNG = False TESTBUCHUNG = False
@@ -1836,6 +1845,18 @@ Public Class frmBelegNeu
End Function 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 Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked