ustva

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -4762,7 +4762,7 @@ Nächste_Textzeile_lesen:
     End Sub
 
     Private Sub SeperateRechnungFürEUSTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SeperateRechnungFürEUSTToolStripMenuItem.Click
-        If vbYes = MsgBox("Soll aus der Rechnung wirklich eine seperate EUST Rechnung erstellt werden?", vbYesNoCancel) Then
+        If vbYes = MsgBox("Soll aus der Rechnung wirklich eine separate EUST Rechnung erstellt werden?", vbYesNoCancel) Then
 
             saveMe()
             Dim RECHNUNG_TMP_RKID = RECHNUNG.RK_ID

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -4870,7 +4870,7 @@ Public Class frmMDM_USTVAntrag
                     SubCode = "4.1"
                 End If
 
-            Case "DK", "SE"
+            Case "DK"
                 If typ = "diesel" Then
                     Code = 1
                     SubCode = "1.1"
@@ -4880,6 +4880,16 @@ Public Class frmMDM_USTVAntrag
                     SubCode = "4"
                 End If
 
+            Case "SE"
+                If typ = "diesel" Then
+                    Code = 1
+                    SubCode = ""
+                End If
+                If typ = "maut" Then
+                    Code = 4
+                    SubCode = "5"
+                End If
+
             Case "DE", "CZ", "LU"
                 If typ = "diesel" Then
                     Code = 1
@@ -4890,6 +4900,16 @@ Public Class frmMDM_USTVAntrag
                     SubCode = ""
                 End If
 
+            Case "BG", "IE", "PT"
+                If typ = "diesel" Then
+                    Code = 1
+                    SubCode = "1.1.2"
+                End If
+                If typ = "maut" Then
+                    Code = 4
+                    SubCode = "4.1"
+                End If
+
             Case Else
 
                 If typ = "diesel" Then