ustva, fremdrechnungen, etc.

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb

@@ -877,7 +877,8 @@ Public Class cATEZ_NCTS_IN
 
                             Dim R As DataRow = dt.NewRow
                             R("currency") = checkNullStr(invoice.StringOf("currency"))
-                            R("total_VAT_amount") = checkNulDbl(CDbl(invoice.StringOf("total_VAT_amount").Replace(".", ",")))
+                            Dim totalAmonut As String = invoice.StringOf("total_VAT_amount").Replace(".", ",")
+                            R("total_VAT_amount") = CDbl(checkNulDbl(totalAmonut))
                             R("invoice_id") = checkNullStr(invoice.StringOf("invoice_id"))
                             R("invoice_date") = checkNullStr(invoice.StringOf("invoice_date"))
                             R("seller_VAT_id") = checkNullStr(invoice.StringOf("seller_VAT_id"))
@@ -919,10 +920,10 @@ Public Class cATEZ_NCTS_IN
             If IsNumeric(o) Then
                 Return Math.Round(CDbl(o), 2)
             Else
-                Return -1
+                Return 0
             End If
         Else
-            Return -1
+            Return 0
         End If
     End Function