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

AVISO Ansicht, Sendung-Frachtksoten

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-10-10 10:33:38 +02:00
parent 8404604de3
commit b44f5efd69
22 changed files with 2320 additions and 1075 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
Aviso/frmLaufzettel.vb
View File

@@ -163,12 +163,21 @@ Public Class frmLaufzettel
btnLaufzettelDrucken.Enabled = True
End If
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
Case "WAI", "DTB"
CheckBox2.Checked = True
CheckBox3.Visible = False
CheckBox4.Checked = True
End Select
'pnlZumZoll
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "FRONTOFFICE" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "WAI" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "FRONTOFFICE" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "WAI" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "DTB" Then
CheckBox2.Checked = False ' Wenn nicht FO, dann normal nicht gewählt...
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "SUB" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "WAI" Then '... und nur in SUBEN ersichtlich
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "SUB" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "WAI" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "DTB" Then '... und nur in SUBEN ersichtlich
pnlZumZoll.Visible = False
End If
End If
If SENDUNG_LIST Is Nothing Then
@@ -249,27 +258,36 @@ Public Class frmLaufzettel
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
Try
Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO_WAI(AVISO)
Try
Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO_WAI(AVISO)
If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
' 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
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "DTB" Then
Try
Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO_DTB(AVISO)
If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
' 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
Try
'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 Not CheckBox3.Checked And Not CheckBox4.Checked Then
MsgBox("Bitte 'AT ZOLL' oder 'DE ZOLL' auswählen!")
Exit Sub
End If
Try
'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.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
'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