Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -615,7 +615,7 @@ Public Class frmMDM_USTVAntrag
                         USTV_POS.UStVPo_Leistungsbezeichnung = "Maut"
                         USTV_POS.UStVPo_Leistender = ANTRAG.plose_Lieferant
                         If ANTRAG.plose_Lieferant = "PLOSE Sistem Service" Then
-                            USTV_POS.UStVPo_Leistender = USTV_POS.UStVPo_Leistender 'USTV_POS.UStVPo_Leistender.ToString.Replace("", "PLOSE Sistem Service")
+                            USTV_POS.UStVPo_Leistender = "PLOSE SISTEM SERVICE SPA"
                         End If
 
                         USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -112,7 +112,7 @@ Public Class ustCntlUSTV_AntragPosition
         Else
             save = False
         End If
-        If txtUmrechnungskurs.Text <> "" And txtUmrechnungskurs._value <> "" Then
+        If Not (txtUmrechnungskurs.Text = "" And txtUmrechnungskurs._value = "") Then
             If txtUmrechnungskurs.Text <> "" Then
                 UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs.Text.Replace(",", ".")
             ElseIf txtUmrechnungskurs._value <> "" Then
@@ -126,9 +126,6 @@ Public Class ustCntlUSTV_AntragPosition
 
         UStV_POS.UStVPo_SchnittstellenNr = IIf(cboSchnittstellennr.SelectedItem IsNot Nothing, cboSchnittstellennr._value, -1)
 
-
-
-
     End Sub
 
     Private Sub ustCntlUSTV_AntragPosition_KeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
@@ -299,6 +296,7 @@ Public Class ustCntlUSTV_AntragPosition
                 UStV_Leist.UstV_Leistender_PLZ = If(txtPLZ.Text, "")
                 UStV_Leist.UstV_Leistender_Stadt = If(txtOrt.Text, "")
                 UStV_Leist.UstV_Leistender_Land = If(txtLand.Text, "")
+
                 UStV_Leist.UstV_Leistender_UstNr = If(txtUIDNr.Text, "")
 
                 If UStV_Leist.SAVE() Then
@@ -342,14 +340,14 @@ Public Class ustCntlUSTV_AntragPosition
             End If
 
             If UStV_Leist.SAVE() Then
-
+                If Not UStV_Leist.UstV_Leistender_Adresse And adresseChanged Then UStV_Leist.UstV_Leistender_Adresse = True
                 btnLeistenderSave.Visible = False
-                UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
-                'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
-                values_changed()
+                    UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
+                    'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
+                    values_changed()
 
+                End If
             End If
-        End If
 
 
     End Sub