diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb
index a6502690..d31ddfad 100644
--- a/SDL/USTV/frmMDM_USTVAntrag.vb
+++ b/SDL/USTV/frmMDM_USTVAntrag.vb
@@ -470,7 +470,7 @@ Public Class frmMDM_USTVAntrag
             AddHandler plose.Click, AddressOf mnuItemAuftrauege_Clicked
         End If
 
-        If True Then 'wenn INFO von PLOSE WÄHRUNGSCODE IN INV_DATA, dann freischalten
+        If USTV_ANTRAG.UStVAn_ReDatVon.year >= 2025 Then 'wenn INFO von PLOSE WÄHRUNGSCODE IN INV_DATA, dann freischalten
             If Not ContextMenuStrip2.Items.ContainsKey("ploseneu") Then
                 Dim plose = New ToolStripMenuItem() With {.Text = "Plose NEUE LOGIK", .Name = "ploseneu", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
                 ContextMenuStrip2.Items.Add(plose)
@@ -551,7 +551,7 @@ Public Class frmMDM_USTVAntrag
 
     Shared Function alreadyExists(USTVAn_KuNr As Integer, UStVAn_LandNr As String, USTV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen) As Boolean
         Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
-        Dim cnt = SQL.getValueTxtBySql(" SELECT count(*)  FROM [tblUStVAntrag] inner join [tblUStVPositionen] on tblUStVAntrag.UStVAn_ID= [tblUStVPositionen].UStVAn_ID
+        Dim cnt = SQL.getValueTxtBySql(" Select count(*)  FROM [tblUStVAntrag] inner join [tblUStVPositionen] On tblUStVAntrag.UStVAn_ID= [tblUStVPositionen].UStVAn_ID
                                WHERE USTVAn_KuNr='" & USTVAn_KuNr & "' AND  UStVPo_SchnittstellenNr='" & USTV_POS.UStVPo_SchnittstellenNr & "' AND UStVPo_ReNr = '" & USTV_POS.UStVPo_ReNr & "' AND UStVPo_ReDat='" & USTV_POS.UStVPo_ReDat & "' AND UStVAn_LandNr='" & UStVAn_LandNr & "'", "FMZOLL")
         Return (cnt > 0)
     End Function
diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb
index 5ead030d..576c1256 100644
--- a/SDL/USTV/usrCntlUSTV.vb
+++ b/SDL/USTV/usrCntlUSTV.vb
@@ -366,12 +366,13 @@ Public Class usrCntlUSTV
             ContextMenuStrip2.Items.Add(plose)
             AddHandler plose.Click, AddressOf mnuItemAuftrauege_Clicked
         End If
-
-        If True Then 'wenn INFO von PLOSE WÄHRUNGSCODE IN INV_DATA, dann freischalten
-            If Not ContextMenuStrip2.Items.ContainsKey("ploseneu") Then
-                Dim plose = New ToolStripMenuItem() With {.Text = "Plose-NEUE LOGIK", .Name = "ploseneu", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
-                ContextMenuStrip2.Items.Add(plose)
-                AddHandler plose.Click, AddressOf mnuItemAuftrauege_Clicked
+        If IsDate(dgvUSTV.CurrentRow.Cells("UStVAn_ReDatVon").Value) Then
+            If DirectCast(dgvUSTV.CurrentRow.Cells("UStVAn_ReDatVon").Value, Date).Year >= 2025 Then 'wenn INFO von PLOSE WÄHRUNGSCODE IN INV_DATA, dann freischalten
+                If Not ContextMenuStrip2.Items.ContainsKey("ploseneu") Then
+                    Dim plose = New ToolStripMenuItem() With {.Text = "Plose-NEUE LOGIK", .Name = "ploseneu", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
+                    ContextMenuStrip2.Items.Add(plose)
+                    AddHandler plose.Click, AddressOf mnuItemAuftrauege_Clicked
+                End If
             End If
         End If