Public Class frmFreigabeSetzen
    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
        btn.Focus()
    End Sub

    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btn.Click
        If False Then
            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
                MsgBox(ex.Message & ex.StackTrace)
            End Try
        End If
        Me.DialogResult = DialogResult.OK
        Me.Close()
    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

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.DialogResult = DialogResult.Cancel
    End Sub
End Class