fix ustva

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -48,12 +48,23 @@ Public Class ustCntlUSTV_AntragPosition
         txtUIDNr.Text = ""
         Me.Antrag_LandKz = Antrag_LandKz
 
+
+
         _gridAktiv = True
 
         InitLeistenderSearchBox()
 
     End Sub
 
+    Sub initUsrCntlPDF()
+
+        scanSonstiges.INIT(_kundenNr, "MDM", "MDM_DATEN", "USTVA_" & UStV_POS.UStVAn_ID & "_" & UStV_POS.UStVPo_interneNr)
+        'scanSonstiges.INIT_daId(da_id)
+        scanSonstiges.Enabled = True
+        btnAPIUbload.Enabled = False
+
+    End Sub
+
     Sub setValues(kdnr As Integer, UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender, atez_api As cATEZ_NCTS_IN)
 
         initSchnittstellenNr()
@@ -131,10 +142,11 @@ Public Class ustCntlUSTV_AntragPosition
             scanSonstiges.Enabled = UStV_POS.UStVPo_daId_loeschbar 'Not UStV_POS.UStVPo_SchnittstellenNr > 0
             btnAPIUbload.Enabled = True 'hochladbar aber nicht einfügen lassen! UStV_POS.UStVPo_daId_loeschbar
         Else
-            scanSonstiges.INIT(kdnr, "MDM", "MDM_DATEN", "USTVA_" & UStV_POS.UStVAn_ID & "_" & UStV_POS.UStVPo_interneNr)
-            'scanSonstiges.INIT_daId(da_id)
-            scanSonstiges.Enabled = True
-            btnAPIUbload.Enabled = False
+            initUsrCntlPDF()
+            'scanSonstiges.INIT(kdnr, "MDM", "MDM_DATEN", "USTVA_" & UStV_POS.UStVAn_ID & "_" & UStV_POS.UStVPo_interneNr)
+            ''scanSonstiges.INIT_daId(da_id)
+            'scanSonstiges.Enabled = True
+            'btnAPIUbload.Enabled = False
         End If
 
         If txtNettobetrag.Text = "" AndAlso txtNettobetragEUR.Text <> "" Then