tc

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -606,7 +606,6 @@ Public Class usrCntlFaktAbrechnung
                 Else
                     whereFirma = " AND FIRMENGRUPPE IN ('VERAG','ATILLA','FRONTOFFICE') " : pnlDocs.Visible = True
                 End If
-
             Case "IMEX" : whereFirma = " AND FIRMENGRUPPE IN ('IMEX') " : pnlDocs.Visible = True
             'Case "VERAG" : whereFirma = " AND Firma_ID<>20 " : pnlDocs.Visible = True
             'Case "IMEX" : whereFirma = " AND Firma_ID=20 "

VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb

@@ -475,12 +475,22 @@ Public Class cTelotecAPI
     End Function
 
     Function SafeParseDecimal(value As String) As Decimal
+
+        If String.IsNullOrWhiteSpace(value) Then
+            Return 0D
+        End If
+
         Dim result As Decimal
-        If Decimal.TryParse(value, result) Then
+
+        If Decimal.TryParse(value,
+                        NumberStyles.Any,
+                        CultureInfo.InvariantCulture,
+                        result) Then
             Return result
         Else
             Return 0D
         End If
+
     End Function
 
     Function SafeParseInt(value As String) As Integer