From 16f897239bacd1f049e180c5c366a145f8dc9fb5 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 20 Jul 2026 16:14:17 +0200 Subject: [PATCH] ustva, etc. --- SDL/USTV/frmMDM_USTVAntrag.vb | 235 ++++++++++------------------------ 1 file changed, 65 insertions(+), 170 deletions(-) diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 80c864c9..1493107d 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -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