MDM Ustva, etc.

VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb

@@ -60,7 +60,6 @@ Public Class cUSTVAntrag
     Property UStVAn_RGRetour As Object = Nothing
     Property UStVAn_VZoffen As Object = Nothing
     Property UStVAn_Sicherheit As Object = Nothing
-
     Property POSITIONEN As New List(Of cUStVPositionen) '= Nothing
 
     Dim SQL As New SQL
@@ -131,6 +130,7 @@ Public Class cUSTVAntrag
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_VZoffen", UStVAn_VZoffen)) '
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Sicherheit", UStVAn_Sicherheit))
 
+
         Return list
     End Function
 
@@ -348,7 +348,8 @@ Public Class cUStVPositionen
     Property UStVPo_VZ As Boolean = False
     Property UStVPo_VZ_RKID As Object = Nothing '
     Property UStVPo_interneNr As Integer
-
+    Property UStVPo_Nettobetrag As Object = Nothing
+    Property UStVPo_NettobetragEUR As Object = Nothing
 
     Dim SQL As New SQL
 
@@ -466,6 +467,8 @@ Public Class cUStVPositionen
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_VZ", UStVPo_VZ))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_VZ_RKID", UStVPo_VZ_RKID))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_interneNr", UStVPo_interneNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_Nettobetrag", UStVPo_Nettobetrag)) '
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_NettobetragEUR", UStVPo_NettobetragEUR))
         Return list
     End Function