ustva, cbam, autofakt, etc.

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -1177,9 +1177,21 @@ Public Class frmMDM_USTVAntrag
                         USTV_POS.UStVPo_Schnittstelle = True
                         USTV_POS.UStVPo_Leistungsbezeichnung = "Diesel"
 
-                        Dim leistender As New cUStVLeistender("IDS EUROPE B.V." & " " & Antrag_LandKz, Antrag_LandKz)
+                        'sonderfälle vom leistenden bei IDS, leider nicht in der Importtabelle, daher hardcoded:
+
+                        Dim leistenderName As String = ""
+
+                        Select Case Antrag_LandKz
+                            Case "RO"
+
+                            Case Else
+                                leistenderName = "IDS EUROPE B.V."
+                        End Select
+
+
+                        Dim leistender As New cUStVLeistender(leistenderName & " " & Antrag_LandKz, Antrag_LandKz)
                         If leistender.UStV_LeistenderId < 1 Then
-                            leistender = New cUStVLeistender("IDS EUROPE B.V.")
+                            leistender = New cUStVLeistender(leistenderName)
                         End If
 
                         USTV_POS.UStVPo_Leistender = leistender.UStV_Leistender.ToString