div. Änderungen, etc.

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -1,5 +1,4 @@
 Imports System.Web.UI.WebControls.Expressions
-Imports DocumentFormat.OpenXml.Drawing.Diagrams
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrCntlFaktAbrechnung
@@ -1526,7 +1525,14 @@ Public Class usrCntlFaktAbrechnung
                 '    POS.IndexZkteing = r.Cells("IndexZkteing").Value
                 POS.BerechnungsartNr = r.Cells("BerechnungsartNr").Value
                 POS.Preis = If(r.Cells("Preis").Value Is DBNull.Value, 0, CDbl(r.Cells("Preis").Value.ToString.Replace(".", "")))
-                POS.Anzahl = If(r.Cells("Anzahl").Value Is DBNull.Value, 0, r.Cells("Anzahl").Value)
+                POS.Anzahl = If(r.Cells("Anzahl").Value Is DBNull.Value, 0, CInt(r.Cells("Anzahl").Value))
+
+                If r.Cells("Anzahl").Value Is DBNull.Value OrElse r.Cells("Anzahl").Value Is Nothing Then
+                    POS.Anzahl = 0
+                ElseIf Integer.TryParse(r.Cells("Anzahl").Value.ToString(), POS.Anzahl) Then
+                Else
+                    POS.Anzahl = 0
+                End If
 
                 '-----------------------MWST-Abrechnung! +  Kompat. zu FM-Zoll
                 'If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso RECHNUNG.DruckDatumZeit Is Nothing Then