ATEZ, USTV, etc.

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -1,10 +1,6 @@
-
-Imports System.ComponentModel
-Imports System.IO
+Imports System.IO
 Imports System.Reflection
 Imports System.Windows.Documents
-Imports com.sun.org.apache.xml.internal.utils
-Imports DAKOSY_Worker.InformationEXITDE
 Imports itextsharp.text.pdf
 Imports itextsharp.text.pdf.parser
 Imports Microsoft.Office.Interop
@@ -18,6 +14,7 @@ Public Class frmMDM_USTVAntrag
     Dim Antrag_LandKz As String = ""
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Dim posTabisSelected As Boolean = True
+    Dim atez_api = New cATEZ_NCTS_IN("ATEZ_VAT")
 
     Dim von, bis As Date
 
@@ -63,10 +60,8 @@ Public Class frmMDM_USTVAntrag
         btnEintragloeschen.Enabled = Not UStVAn_ID <= 0
         btnNeuerEintrag.Enabled = Not UStVAn_ID <= 0
         UstCntlUSTV_AntragPosition1.Enabled = Not UStVAn_ID <= 0
-
         cbxLand.Visible = UStVAn_ID <= 0
 
-
         With dgvUSTVPositionen
             .ClearSelection()
 
@@ -528,6 +523,8 @@ Public Class frmMDM_USTVAntrag
 
         setinfofields()
 
+
+
     End Sub
 
     Private Sub Button14_Click(sender As Object, e As EventArgs) Handles btnAntrageeinarbeiten.Click
@@ -1255,9 +1252,8 @@ Public Class frmMDM_USTVAntrag
                 ANTR_Leistender = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(ANTR_POS.UStVPo_LeistenderId)
             End If
 
-
             UstCntlUSTV_AntragPosition1.Enabled = True
-            UstCntlUSTV_AntragPosition1.setValues(USTV_ANTRAG.UStVAn_KuNr, ANTR_POS, Antrag_LandKz, ANTR_Leistender)
+            UstCntlUSTV_AntragPosition1.setValues(USTV_ANTRAG.UStVAn_KuNr, ANTR_POS, Antrag_LandKz, ANTR_Leistender, atez_api)
         Else
             UstCntlUSTV_AntragPosition1.reset()
             UstCntlUSTV_AntragPosition1.Enabled = False
@@ -2392,6 +2388,7 @@ Public Class frmMDM_USTVAntrag
 
     End Sub
 
+
     Private Sub calcSumme()
 
         Dim countSumme As Double = 0