edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ustva, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-07-20 16:14:17 +02:00
parent 8a516ac7c1
commit 16f897239b
1 changed files with 65 additions and 170 deletions
Download Patch File Download Diff File Expand all files Collapse all files

235
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -1,6 +1,7 @@
Imports System.Globalization
Imports System.IO
Imports System.Reflection
Imports System.Web.UI.WebControls.Expressions
Imports System.Windows.Documents
Imports itextsharp.text.pdf
Imports Microsoft.Office.Interop
@@ -4781,193 +4782,87 @@ Public Class frmMDM_USTVAntrag
Private Sub getCode(ByRef AntragLand As String, ByRef typ As String, ByRef Code As Integer, ByRef SubCode As String, Optional Portal As String = "")
If Portal = "RO" Then
Select Case typ
Case "diesel"
Code = 1
SubCode = "1.1.2"
Case "maut"
Code = 4
SubCode = "4.1"
Case "zubehör"
Code = 3
SubCode = "3.1.5"
Case "parkplatz"
Code = 3
SubCode = "3.1.4"
Case "übernachtung"
Code = 6
SubCode = "6.5"
End Select
Exit Sub
End If
Code = 0
SubCode = ""
'-------------------------------------------------------
' Portale
'-------------------------------------------------------
Select Case Portal
Case "RO"
Select Case typ
Case "diesel" : Code = 1 : SubCode = "1.1.2"
Case "maut" : Code = 4 : SubCode = "4.1"
Case "zubehör" : Code = 3 : SubCode = "3.1.5"
Case "parkplatz" : Code = 3 : SubCode = "3.1.4"
Case "übernachtung" : Code = 6 : SubCode = "6.5"
End Select
If Portal = "DE" Then
Select Case typ
Case "diesel"
Code = 1
SubCode = "1.1.2"
Case "maut"
Code = 4
SubCode = "4.1"
Case "zubehör"
Code = 3
SubCode = "3.1.3"
Case "parkplatz"
Code = 3
SubCode = "3.1.4"
Case "gas"
Code = 1
SubCode = "1.1.3"
Case "übernachtung"
Code = 6
SubCode = "6.1"
End Select
Exit Sub
End If
Select Case AntragLand
Case "AT"
If typ = "diesel" Then
Code = 1
SubCode = "1.2.7"
If {"DE", "CZ", "LU"}.Contains(AntragLand) Then
SubCode = ""
End If
If typ = "maut" Then
Code = 4
SubCode = "4.1"
End If
If typ = "parkplatz" Then
Exit Sub
Case "DE"
Select Case typ
Case "diesel" : Code = 1 : SubCode = "1.1.2"
Case "maut" : Code = 4 : SubCode = "4.1"
Case "zubehör" : Code = 3 : SubCode = "3.1.3"
Case "parkplatz" : Code = 3 : SubCode = "3.1.4"
Case "gas" : Code = 1 : SubCode = "1.1.3"
Case "übernachtung" : Code = 6 : SubCode = "6.1"
End Select
Exit Sub
End Select
'-------------------------------------------------------
' Standardwerte
'-------------------------------------------------------
Select Case typ
Case "diesel"
Code = 1
Select Case AntragLand
Case "AT" : SubCode = "1.2.7"
Case "BE" : SubCode = "1.13"
Case "ES" : SubCode = "1.14"
Case "SI", "DK" : SubCode = "1.1"
Case "PL", "FR", "IT", "HU", "BG", "IE", "PT" : SubCode = "1.1.2"
Case "DE", "CZ", "LU" : SubCode = ""
End Select
Case "maut"
Code = 4
Select Case AntragLand
Case "PL" : SubCode = "4.2.2"
Case "SE" : SubCode = "5"
Case "AT", "SI", "HU", "BG", "IE", "PT" : SubCode = "4.1"
Case "DE", "CZ", "LU" : SubCode = ""
End Select
Case "parkplatz"
If AntragLand = "AT" Then
Code = 3
SubCode = "3.1"
End If
If typ = "zubehör" Then
Case "zubehör"
If AntragLand = "AT" Then
Code = 3
SubCode = "1.3"
End If
Case "BE"
If typ = "diesel" Then
Code = 1
SubCode = "1.13"
End If
If typ = "maut" Then
Code = 4
SubCode = ""
End If
If typ = "rest" Then
Case "rest"
If AntragLand = "BE" Then
Code = 3
SubCode = "3.13"
End If
Case "ES"
If typ = "diesel" Then
Code = 1
SubCode = "1.14"
End If
If typ = "maut" Then
Code = 4
SubCode = ""
End If
Case "SI"
If typ = "diesel" Then
Code = 1
SubCode = "1.1"
End If
If typ = "maut" Then
Code = 4
SubCode = "4.1"
End If
Case "PL"
If typ = "diesel" Then
Code = 1
SubCode = "1.1.2"
End If
If typ = "maut" Then
Code = 4
SubCode = "4.2.2"
End If
Case "FR", "IT"
If typ = "diesel" Then
Code = 1
SubCode = "1.1.2"
End If
If typ = "maut" Then
Code = 4
SubCode = ""
End If
Case "HU"
If typ = "diesel" Then
Code = 1
SubCode = "1.1.2"
End If
If typ = "maut" Then
Code = 4
SubCode = "4.1"
End If
Case "DK"
If typ = "diesel" Then
Code = 1
SubCode = "1.1"
End If
If typ = "maut" Then
Code = 4
SubCode = ""
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
SubCode = ""
End If
If typ = "maut" Then
Code = 4
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
Code = 1
SubCode = ""
End If
If typ = "maut" Then
Code = 4
SubCode = ""
End If
End Select
End Sub