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

offert fix

Browse Source
This commit is contained in:
d.breimaier
2025-08-19 09:01:06 +02:00
parent 9f586817e3
commit 1b2ab457a4
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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.4.3.7")>
<Assembly: AssemblyFileVersion("1.4.3.7")>
<Assembly: AssemblyVersion("1.4.3.8")>
<Assembly: AssemblyFileVersion("1.4.3.8")>

10
VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb
View File

@@ -245,7 +245,7 @@ Public Class cOfferte
Case "RO" : leistBez = IIf(Not IsDBNull(r("LeistungsBez_RO")), r("LeistungsBez_RO"), "")
Case "TR" : leistBez = IIf(Not IsDBNull(r("LeistungsBez_TR")), r("LeistungsBez_TR"), "")
Case Else
P.LeistungsBez = r("LeistungsBez")
leistBez = r("LeistungsBez")
End Select
If leistBez.Length > 30 Then
@@ -306,7 +306,7 @@ Public Class cOfferte
Case "RO" : leistBez = r("LeistungsBez_RO")
Case "TR" : leistBez = r("LeistungsBez_TR")
Case Else
P.LeistungsBez = r("LeistungsBez")
leistBez = r("LeistungsBez")
End Select
If leistBez.Length > 30 Then
@@ -433,7 +433,7 @@ Public Class cOffertPosition
Property MDM_VZ As Object = Nothing
Property MDM_RMC As Object = Nothing
Property MDM_Fremd As Object = Nothing
Property MDM_Staffelpreis As Object = Nothing
Property MDM_Preisstaffel As Object = Nothing
Dim SQL As New SQL
@@ -505,14 +505,14 @@ Public Class cOffertPosition
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MDM_VZ", MDM_VZ))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MDM_RMC", MDM_RMC))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MDM_Fremd", MDM_Fremd))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MDM_Staffelpreis", MDM_Staffelpreis))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MDM_Preisstaffel", MDM_Preisstaffel))
Return list
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", False, list)
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", True, list)
End Function
Public Function UPDATE(LEISTUNGSBEZ_ORG As String) As Boolean