diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 05b97e8c..0254ad05 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/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 " diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb index 606b7512..f1a0b393 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb +++ b/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