fakt, maske, etc.

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -1,6 +1,7 @@
 Imports System.IO
 Imports System.Reflection
 Imports System.Windows.Documents
+Imports DocumentFormat.OpenXml.Drawing.Diagrams
 Imports itextsharp.text.pdf
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
@@ -2875,9 +2876,13 @@ Public Class frmMDM_USTVAntrag
 
                     End If
 
+                Else
+                    initErstsattungsPosition(.RowCount)
+
                 End If
 
 
+
             End If
 
         End With
@@ -3323,8 +3328,15 @@ Public Class frmMDM_USTVAntrag
             If item.Name <> "" Then
 
                 If IsNumeric(item.Name) Then
+                    Dim hasVZ As Boolean = False
+                    For Each pos In USTV_ANTRAG.POSITIONEN
+                        If pos.UStVPo_VZ AndAlso Not IsDBNull(pos.UStVPo_VZ_RKID) AndAlso pos.UStVPo_VZ_RKID = item.Name Then 'VZ die noch nicht abgerechnet wurde!
+                            hasVZ = True
+                            Exit For
+                        End If
+                    Next
 
-                    Dim f As New SDL.frmAbrechnungsMaskeEinzeln(item.Name)
+                    Dim f As New SDL.frmAbrechnungsMaskeEinzeln(item.Name, hasVZ)
                     f.Show(Me)
 
                 Else