diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb
index f116cdf5..8f4ace45 100644
--- a/SDL/My Project/AssemblyInfo.vb	
+++ b/SDL/My Project/AssemblyInfo.vb	
@@ -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")>
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb b/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb
index 692bee04..ad3a0647 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb
@@ -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