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

Auswertung VERIMEX Korr., Laufzettel SA-Gestellung

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-21 14:53:31 +01:00
parent 0f6a78428b
commit 984a341b6e
10 changed files with 293 additions and 254 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
Aviso/frmLaufzettel.vb
View File

@@ -158,19 +158,26 @@ Public Class frmLaufzettel
btnDIGITAL.Enabled = True
cbxDigitalLZ.Checked = True
CheckBox2.Checked = False
cbxDokumenteDrucken.Checked = False
pnlZumZoll.Visible = False
Else
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
Case "WAI", "DTB"
CheckBox2.Checked = True
CheckBox3.Visible = False
CheckBox4.Checked = True
End Select
If AVISO.Grenzstelle = "SUB" Then
cbxSAAbfertigung.Visible = True
If Now.DayOfWeek = DayOfWeek.Saturday Then
cbxSAAbfertigung.Checked = True
End If
End If
'pnlZumZoll
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...
@@ -375,7 +382,11 @@ Public Class frmLaufzettel
Dim tX As VERAG_PROG_ALLGEMEIN.cTextkonserve = Nothing
Select Case AVISO.Grenzstelle
Case "SUB"
Mail.To = "abfertigung.za-suben@zoll.bund.de"
If cbxSAAbfertigung.Checked Then
Mail.To = "samstag.ZA-Suben@zoll.bund.de"
Else
Mail.To = "abfertigung.za-suben@zoll.bund.de"
End If
tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Case "WAI"
Mail.To = ""
@@ -483,7 +494,7 @@ Public Class frmLaufzettel
End Try
Else
Dim path = SDL.FormularManagerNEU.LaufzettelZollDE(AvisoID, False)
Dim path = SDL.FormularManagerNEU.LaufzettelZollDE(AvisoID, False,, digitalDruck)
If path <> "" Then
'Process.Start(path)
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString)
@@ -524,9 +535,9 @@ Public Class frmLaufzettel
paths = New List(Of String)
If pruef Then paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, "XXXX"))
If pruef Then paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, "XXXX", digitalDruck))
For Each VP In VP_Enum
paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, VP))
paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, VP, digitalDruck))
Next
Return True