FAktabr, UstAntrag, etc.

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -1419,13 +1419,31 @@ Public Class usrCntlFaktAbrechnung
                 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)
 
-                If SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Then 'MWST-Abrechnung!
+                If SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10 Then 'MWST-Abrechnung! +  Kompat. zu FM-Zoll
                     Dim LeistungsBez = r.Cells("LeistungsBez").Value
-                    If LeistungsBez <> "" AndAlso SPEDBUCH.Packstücke.ToString.StartsWith(LeistungsBez.ToString) Then
-                        POS.Anzahl = 1
-                        POS.Preis = SPEDBUCH.Rechnungsbetrag * -1
-                    End If
+                    If LeistungsBez <> "" Then
+                        Dim isMWST As Boolean = False
+                        If SPEDBUCH.Packstücke.ToString.Contains("Mehrwertsteuerrückerstattung") Then
+                            Dim LandNr As String = SPEDBUCH.Packstücke.ToString.Replace("Mehrwertsteuerrückerstattung ", "")
+                            LandNr = LandNr.Substring(0, 2).Trim()
+                            Dim LandBez = SQL.getValueTxtBySql("select LandKz from [Länderverzeichnis für die Außenhandelsstatistik] where LandNr = " & LandNr, "FMZOLL")
 
+                            If LandBez <> "" AndAlso SPEDBUCH.Packstücke.ToString.Replace("Mehrwertsteuerrückerstattung " & LandNr, "MWSt-Rückerstattung " & LandBez).StartsWith(LeistungsBez.ToString) Then isMWST = True
+                        Else
+
+                            If SPEDBUCH.Packstücke.ToString().StartsWith(LeistungsBez.ToString) Then isMWST = True
+
+                        End If
+                        If isMWST Then
+                            POS.Anzahl = 1
+
+                            If POS.Preis = 0 Then
+                                POS.Preis = IIf(SPEDBUCH.Rechnungsbetrag IsNot Nothing, 0, SPEDBUCH.Rechnungsbetrag) * -1
+                            End If
+
+
+                        End If
+                    End If
                 End If
 
                 If POS.Anzahl = 0 And POS.BerechnungsartNr = 8 And POS.Preis <> 0 Then