AuditFlow, OpenSnd_SendToAviso

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb

@@ -94,6 +94,14 @@ Public Class usrcntlPDFScanList
     '       initPdf()
     '    End If
     '  End Sub
+    Public Function get_DA_ID() As Integer
+        If DS IsNot Nothing AndAlso DS.hasITEMS Then
+            If DS.da_id IsNot Nothing Then
+                Return DS.da_id
+            End If
+        End If
+        Return -1
+    End Function
     Public Sub initPdf()
         MyListBox1.Items.Clear()