neu

Aviso/frmDokumenteSchicken.vb

@@ -1,6 +1,33 @@
 Public Class frmDokumenteSchicken
+    Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso
 
+    Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.AVISO = AVISO
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
     Private Sub frmDokumenteSchicken_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         btnOK.Focus()
     End Sub
+
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+        Try
+            If cbxInfoblattFurDigitalabfertigungDrucken.Checked And cbxInfoblattFurDigitalabfertigungDrucken.Visible Then
+                Dim path = SDL.FormularManagerNEU.Finish_AVISO(AVISO)
+                Dim oPS As New System.Drawing.Printing.PrinterSettings
+                If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, oPS.PrinterName)
+            End If
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub frmDokumenteSchicken_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_Freigabe_FinishDigital") Then
+            cbxInfoblattFurDigitalabfertigungDrucken.Visible = False
+        End If
+    End Sub
 End Class