ustva, abrechungen für MÖST inkl übersetzungen

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -1,13 +1,9 @@
 Imports System.IO
 Imports System.Reflection
 Imports System.Windows.Documents
-Imports DocumentFormat.OpenXml.Drawing.Diagrams
 Imports itextsharp.text.pdf
 Imports Microsoft.Office.Interop
-Imports sun.net.www.protocol
-Imports sun.swing
 Imports VERAG_PROG_ALLGEMEIN
-Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
 Public Class frmMDM_USTVAntrag
 
@@ -2914,6 +2910,35 @@ Public Class frmMDM_USTVAntrag
         Dim isEU As Boolean = dTLANDEU.AsEnumerable().Where(Function(res) res.Field(Of String)("LandKz") = USTV_ANTRAG.UStVAn_LandKz).Select(Function(res) res.Field(Of Boolean)("MitgliedslandEU")).FirstOrDefault()
 
         Dim kunde As New cKunde(USTV_ANTRAG.UStVAn_KuNr)
+        Dim kunde_erw As New cKundenErweitert(USTV_ANTRAG.UStVAn_KuNr)
+
+        Dim BezAntrag = USTV_ANTRAG.UStVAn_AntragArt & "-Rückerstattung "
+
+        If kunde_erw IsNot Nothing Then
+
+            If USTV_ANTRAG.UStVAn_AntragArt = "MÖST" Then
+
+                Select Case kunde_erw.kde_Fakturierung_Sprache
+                    Case "EN" : BezAntrag = "Excise duty "
+                    Case "RO" : BezAntrag = "Rambursare acciza "
+                End Select
+
+
+            Else
+
+                Select Case kunde_erw.kde_Fakturierung_Sprache
+                    Case "EN" : BezAntrag = "VAT refund "
+                    Case "RO" : BezAntrag = "Rambursare TVA "
+                End Select
+
+
+
+            End If
+
+
+        End If
+
+
 
         With spedBuch
             .Abfertigungsdatum = Today()
@@ -2923,7 +2948,7 @@ Public Class frmMDM_USTVAntrag
             .AnzahlSonstiges = 1
             .Abfertigungsart = IIf(isEU, 114, 115)
             .Abfertigungsanzahl = 1
-            .Packstücke = USTV_ANTRAG.UStVAn_AntragArt & "-Rückerstattung " & Antrag_LandKz & " / " & USTV_ANTRAG.UStVAn_ReDatVon & " - " & USTV_ANTRAG.UStVAn_ReDatBis
+            .Packstücke = BezAntrag & Antrag_LandKz & " / " & USTV_ANTRAG.UStVAn_ReDatVon & " - " & USTV_ANTRAG.UStVAn_ReDatBis
             .VermittlerKundenNr = IIf(kunde.KundenNrZentrale IsNot Nothing, kunde.KundenNrZentrale, kunde.KundenNr)
 
             If .VermittlerKundenNr = 140000 Or .VermittlerKundenNr = 150000 Then