Asfinag, UID-Pruefung

VERAG_PROG_ALLGEMEIN/Classes/cAsfinagMaut.vb

@@ -11,11 +11,12 @@ Public Class cAsfinagMaut
     Property VATamount As Object = Nothing
     Property totalAmount As Object = Nothing
     Property additionalData As Object = Nothing
+    Property receiptnumber As Object = Nothing
 
 
     Public hasEntry = False
 
-        Dim SQL As New SQL
+    Dim SQL As New SQL
 
     Sub New()
 
@@ -30,8 +31,9 @@ Public Class cAsfinagMaut
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VATamount", VATamount))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("totalAmount", totalAmount))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("additionalData", additionalData))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("receiptnumber", receiptnumber))
         Return list
-        End Function
+    End Function
 
 
 
@@ -76,23 +78,24 @@ Public Class cAsfinagMaut
 
 
     Public Function getInsertCmd() As String
-            Try
-                Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
-                Dim str As String = ""
-                Dim values As String = ""
-                For Each i In list
-                    If Not i.isPrimaryParam Then
-                        str &= "[" & i.Text & "],"
-                        values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
-                    End If
-                Next
-                str = str.Substring(0, str.Length - 1) 'wg. ','
-                values = values.Substring(0, values.Length - 1) 'wg. ','
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+            Dim str As String = ""
+            Dim values As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "],"
+                    values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            values = values.Substring(0, values.Length - 1) 'wg. ','
             Return (" INSERT INTO tblAsfinagMaut  (" & str & ") VALUES(" & values & ")  ")
         Catch ex As Exception
-                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
-            End Try
-            Return ""
-        End Function
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return ""
+    End Function
 
-    End Class
+
+End Class