41 lines
1.6 KiB
VB.net
41 lines
1.6 KiB
VB.net
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 |