MDM. Zugferd, LeistungenFIBUKonten, USTVA, MSE

VERAG_PROG_ALLGEMEIN/Classes/cLeistungenBUKonten.vb

@@ -9,7 +9,6 @@ Public Class cLeistungenBUKonten
     Property LeistungsNr As Integer
     Property Firma_ID As Integer
     Property Gl_account As Object = Nothing
-
     Property SachkontoInlandSteuerpflichtig As Object = Nothing
     Property SachkontoInlandSteuerfrei As Object = Nothing
     Property SachkontoEUSteuerpflichtig As Object = Nothing

VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb

@@ -1137,8 +1137,9 @@ Public Class cMSEAPI
                 If transaction.StringOf("transaction_country") = "HU" Then
                     Dim curBruttobetragEUR = R("msts_fee_amount") + R("transaction_gross_amount")
                     Dim steuersatz = SQL.DLookup("1+[Steuersatz]", "[Länderverzeichnis für die Außenhandelsstatistik]", "[LandNr]=64", "FMZOLL")
-                    Dim curNettobetragEUR = CInt(curBruttobetragEUR / steuersatz * 100 + 0.5) / 100
-                    USteuer_EUR = Math.Round(curBruttobetragEUR - curNettobetragEUR, 2)
+
+                    Dim curNettobetragEUR = Math.Floor((curBruttobetragEUR / steuersatz * 100) + 0.5) / 100
+                    USteuer_EUR = curBruttobetragEUR - curNettobetragEUR
                 End If
             End If
 
@@ -1376,7 +1377,7 @@ Public Class cMSEAPI
                     cmd.Parameters.AddWithValue("@von", von)
                     cmd.Parameters.AddWithValue("@bis", bis)
                     cmd.Parameters.AddWithValue("@AdressenNr", KundenNr)
-                    If Archiv IsNot Nothing Then cmd.Parameters.AddWithValue("@Archiv", If(Archiv, "=", "<>"))
+                    If Archiv IsNot Nothing Then cmd.Parameters.AddWithValue("@Archiv", If(Archiv, 1, 0))
 
                     Dim dr = cmd.ExecuteReader()
                     dt.Load(dr)