edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-09-07 08:31:10 +02:00
parent 2d06d935ef
commit 787491cf6b
36 changed files with 1090 additions and 631 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Aviso/frmLaufzettel.vb
View File

@@ -186,6 +186,15 @@ Public Class frmLaufzettel
End Sub
Private Sub btnLaufzettelDrucken_Click(sender As Object, e As EventArgs) Handles btnLaufzettelDrucken.Click
If CheckBox2.Checked Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "WAI" Then
If Not CheckBox3.Checked And Not CheckBox4.Checked Then
MsgBox("Bitte 'AT ZOLL' oder 'DE ZOLL' auswählen!")
Exit Sub
End If
End If
End If
doLZ(False)
Me.Close()
End Sub
@@ -246,11 +255,21 @@ Public Class frmLaufzettel
If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
Else
If Not CheckBox3.Checked And Not CheckBox4.Checked Then
MsgBox("Bitte 'AT ZOLL' oder 'DE ZOLL' auswählen!")
Exit Sub
End If
Try
Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO(AVISO, If(CheckBox3.Checked, "AT", If(CheckBox4.Checked, "DE", "")))
'If CheckBox3.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO(AVISO, If(CheckBox3.Checked, "AT", If(CheckBox4.Checked, "DE", "")))
Dim path = ""
If CheckBox3.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO_AT(AVISO)
If CheckBox4.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO_DE(AVISO)
If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
End If
End If
End If