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

MDM offerte

Browse Source
This commit is contained in:
d.breimaier
2025-08-18 08:40:25 +02:00
parent 50e3e1d0a1
commit 95721a280b
5 changed files with 78 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb
View File

@@ -271,8 +271,8 @@ Public Class cOfferte
'P.PreisänderungProzent = XXXXXXXXX
'P.PreisAlt = XXXXXXXXX
P.Land = setLand(P.OffertenNr, P.LeistungsNr, r("LeistungsBez"))
P.VZ = setVZ(P.OffertenNr, P.LeistungsNr, r("LeistungsBez"))
P.MDM_Land = setLand(P.OffertenNr, P.LeistungsNr, r("LeistungsBez"))
P.MDM_VZ = setVZ(P.OffertenNr, P.LeistungsNr, r("LeistungsBez"))
If Not P.INSERT() Then
Return False
@@ -332,8 +332,8 @@ Public Class cOfferte
'P.PreisänderungProzent = XXXXXXXXX
'P.PreisAlt = XXXXXXXXX
P.Land = setLand(P.OffertenNr, P.LeistungsNr, P.LeistungsBez)
P.VZ = setVZ(P.OffertenNr, P.LeistungsNr, P.LeistungsBez)
P.MDM_Land = setLand(P.OffertenNr, P.LeistungsNr, P.LeistungsBez)
P.MDM_VZ = setVZ(P.OffertenNr, P.LeistungsNr, P.LeistungsBez)
If Not P.INSERT() Then
Return False
@@ -429,10 +429,12 @@ Public Class cOffertPosition
Property PreisAlt As Object = Nothing
Property BerechnungsartPosInkludiert As Object = Nothing
Property SSMA_TimeStamp As Object = Nothing
Property Land As Object = Nothing
Property VZ As Object = Nothing
Property RMC As Object = Nothing
Property Fremd As Object = Nothing
Property MDM_Land As Object = Nothing
Property MDM_VZ As Object = Nothing
Property MDM_RMC As Object = Nothing
Property MDM_Fremd As Object = Nothing
Property MDM_Staffelpreis As Object = Nothing
Dim SQL As New SQL
@@ -499,10 +501,11 @@ Public Class cOffertPosition
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PreisänderungProzent", PreisänderungProzent))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PreisAlt", PreisAlt))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BerechnungsartPosInkludiert", BerechnungsartPosInkludiert))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Land", Land))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VZ", VZ))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RMC", RMC))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fremd", Fremd))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MDM_Land", MDM_Land))
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))
Return list
End Function