Offerten mit Preisstaffel

This commit is contained in:
2025-08-19 11:27:02 +02:00
parent 1b2ab457a4
commit b113ce7d4e
5 changed files with 6 additions and 10 deletions

View File

@@ -1189,8 +1189,8 @@ Public Class usrCntlFaktAbrechnung
Dim orderby As String = ""
If addFieldsBoolean Then
addFields = ", MDM_Land as Land, MDM_RMC as RMC, MDM_Fremd as Fremd, MDM_VZ as VZ, MDM_Staffelpreis as Staffelpreis"
orderby = ", MDM_Staffelpreis desc"
addFields = ", MDM_Land as Land, MDM_RMC as RMC, MDM_Fremd as Fremd, MDM_VZ as VZ, MDM_Preisstaffel as Staffelpreis"
orderby = ", MDM_Preisstaffel desc"
End If
With dgvOfferteDetailsUebersicht

View File

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

View File

@@ -1005,7 +1005,7 @@ Public Class usrCntlOfferte
Private Function addFieldsOffert(ByRef OffertenNr As Integer, ByRef fields As String)
If OffertenNr = 14 Or OffertenNr = 15 Or OffertenNr = 31 Then
fields = ", MDM_Land as Land, MDM_VZ as VZ, MDM_RMC as RMC, MDM_Fremd as Fremd, MDM_Staffelpreis as Staffelpreis "
fields = ", MDM_Land as Land, MDM_VZ as VZ, MDM_RMC as RMC, MDM_Fremd as Fremd, MDM_Preisstaffel as Staffelpreis "
Return True
End If
Return False