Laufzettel

2023-11-03 11:19:07 +01:00
parent 08c8eb2cd4
commit 3e7ea250aa
3 changed files with 64 additions and 46 deletions
--- a/Aviso/frmLaufzettel.Designer.vb
+++ b/Aviso/frmLaufzettel.Designer.vb
@@ -22,11 +22,12 @@ Partial Class frmLaufzettel
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLaufzettel))
        Me.lbl = New System.Windows.Forms.Label()
        Me.pnl = New System.Windows.Forms.Panel()
        Me.btn = New System.Windows.Forms.Button()
-        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel()
+        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
        Me.Button4 = New System.Windows.Forms.Button()
        Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cbxVPSplit = New System.Windows.Forms.CheckBox()
@@ -40,17 +41,18 @@ Partial Class frmLaufzettel
        Me.Button1 = New System.Windows.Forms.Button()
        Me.btnLaufzettelDrucken = New System.Windows.Forms.Button()
        Me.cbxDokumenteDrucken = New System.Windows.Forms.CheckBox()
-        Me.dgvDigitalMailanfügen = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.dgvDigitalMailanfügen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.clmnLzMail_ID = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.clmnLzMail_Name = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DocId = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.dgvLaufzettelDruck = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.dgvLaufzettelDruck = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.clmnLzPrint_ID = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.clmnLzPrint_Name = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.PrintDocId = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.printTyp = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.cbxDigitalLZ = New System.Windows.Forms.CheckBox()
        Me.cbxSAAbfertigung = New System.Windows.Forms.CheckBox()
+        Me.cbxAktenzettelDruck = New System.Windows.Forms.CheckBox()
        Me.pnl.SuspendLayout()
        Me.MyPanel1.SuspendLayout()
        Me.pnlZumZoll.SuspendLayout()
@@ -99,6 +101,7 @@ Partial Class frmLaufzettel
        'MyPanel1
        '
        Me.MyPanel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.MyPanel1.Controls.Add(Me.cbxAktenzettelDruck)
        Me.MyPanel1.Controls.Add(Me.Button4)
        Me.MyPanel1.Controls.Add(Me.cboPrinter)
        Me.MyPanel1.Controls.Add(Me.cbxVPSplit)
@@ -115,7 +118,7 @@ Partial Class frmLaufzettel
        Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.MyPanel1.Location = New System.Drawing.Point(0, 45)
        Me.MyPanel1.Name = "MyPanel1"
-        Me.MyPanel1.Size = New System.Drawing.Size(564, 571)
+        Me.MyPanel1.Size = New System.Drawing.Size(564, 599)
        Me.MyPanel1.TabIndex = 9
        '
        'Button4
@@ -160,7 +163,7 @@ Partial Class frmLaufzettel
        Me.pnlZumZoll.Controls.Add(Me.CheckBox3)
        Me.pnlZumZoll.Controls.Add(Me.CheckBox4)
        Me.pnlZumZoll.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.pnlZumZoll.Location = New System.Drawing.Point(0, 520)
+        Me.pnlZumZoll.Location = New System.Drawing.Point(0, 548)
        Me.pnlZumZoll.Name = "pnlZumZoll"
        Me.pnlZumZoll.Size = New System.Drawing.Size(562, 49)
        Me.pnlZumZoll.TabIndex = 12
@@ -385,12 +388,23 @@ Partial Class frmLaufzettel
        Me.cbxSAAbfertigung.UseVisualStyleBackColor = True
        Me.cbxSAAbfertigung.Visible = False
        '
+        'cbxAktenzettelDruck
+        '
+        Me.cbxAktenzettelDruck.AutoSize = True
+        Me.cbxAktenzettelDruck.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.cbxAktenzettelDruck.Location = New System.Drawing.Point(18, 518)
+        Me.cbxAktenzettelDruck.Name = "cbxAktenzettelDruck"
+        Me.cbxAktenzettelDruck.Size = New System.Drawing.Size(228, 24)
+        Me.cbxAktenzettelDruck.TabIndex = 25
+        Me.cbxAktenzettelDruck.Text = "Alle Aktendeckel mitdrucken"
+        Me.cbxAktenzettelDruck.UseVisualStyleBackColor = True
+        '
        'frmLaufzettel
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(564, 616)
+        Me.ClientSize = New System.Drawing.Size(564, 644)
        Me.Controls.Add(Me.MyPanel1)
        Me.Controls.Add(Me.pnl)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
@@ -438,4 +452,5 @@ Partial Class frmLaufzettel
    Friend WithEvents cboPrinter As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents Button4 As Button
    Friend WithEvents cbxSAAbfertigung As CheckBox
+    Friend WithEvents cbxAktenzettelDruck As CheckBox
 End Class
--- a/Aviso/frmLaufzettel.vb
+++ b/Aviso/frmLaufzettel.vb
@@ -157,12 +157,14 @@ Public Class frmLaufzettel
            cbxDigitalLZ.Enabled = True
            dgvDigitalMailanfügen.Enabled = True
            btnDIGITAL.Enabled = True
+            cbxAktenzettelDruck.Enabled = False
            cbxDigitalLZ.Checked = True
            CheckBox2.Checked = False
            cbxDokumenteDrucken.Checked = False
            pnlZumZoll.Visible = False
        Else
            btnLaufzettelDrucken.Enabled = True
+            cbxAktenzettelDruck.Enabled = True
        End If

        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
@@ -213,6 +215,16 @@ Public Class frmLaufzettel
        End If

        doLZ(False)
+
+        If cbxAktenzettelDruck.Checked Then
+            Dim Printername = ""
+            Dim oPS As New System.Drawing.Printing.PrinterSettings
+            Try
+                Printername = oPS.PrinterName
+            Catch ex As System.Exception
+            End Try
+            usrcntlAktDetails.tread_printAlleAktendeckel(AvisoID, Printername)
+        End If
        Me.Close()
    End Sub

@@ -594,4 +606,8 @@ Public Class frmLaufzettel
        End Try
        Me.Cursor = Cursors.Default
    End Sub
+
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAktenzettelDruck.CheckedChanged
+
+    End Sub
 End Class
--- a/Aviso/usrcntlAktDetails.vb
+++ b/Aviso/usrcntlAktDetails.vb
@@ -3262,49 +3262,36 @@ Public Class usrcntlAktDetails
        End Try

        If vbYes = MsgBox("Möchten Sie alle Aktendeckel drucken?", vbYesNoCancel) Then
-
-            Console.WriteLine("bla1")
-            Debug.WriteLine("bla2")
-            Dim t As New Threading.Thread(Sub(AvisoIDTT)
-                                              Dim AVISO_Tmp As VERAG_PROG_ALLGEMEIN.cAviso = AvisoDAL.LesenAviso(AvisoIDTT, "")
-                                              Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
-                                              VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoIDTT) 'LÄDT alle SENDUNGSDATEN
-                                              Console.WriteLine("AvisoId: " & AvisoIDTT)
-                                              Debug.WriteLine("AvisoId: " & AvisoIDTT)
-                                              Console.WriteLine("LKW_Nr: " & AVISO_Tmp.LKW_Nr)
-                                              Debug.WriteLine("LKW_Nr: " & AVISO_Tmp.LKW_Nr)
-
-                                              For Each s In SENDUNG_LIST
-
-                                                  If checkcbxAlleFirmen(s.FilialenNr) Then
-                                                      If Not s.tblSnd_Fremdspedition Then
-                                                          If CInt(s.AbfertigungsNr) < 100000 Then
-                                                              If MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!" & vbNewLine & "Druck trotzdem fortfahren?", MsgBoxStyle.YesNoCancel) <> vbYes Then Exit Sub
-                                                          End If
-                                                      End If
-                                                  End If
-                                              Next
-
-                                              'Dim trd = New Threading.Thread(Sub()
-                                              For Each s In SENDUNG_LIST
-                                                  Console.WriteLine("AvisoId: " & AvisoIDTT)
-                                                  Debug.WriteLine("AvisoId: " & AvisoIDTT)
-                                                  Console.WriteLine("LKW_Nr: " & AVISO_Tmp.LKW_Nr)
-                                                  Debug.WriteLine("LKW_Nr: " & AVISO_Tmp.LKW_Nr)
-
-                                                  If checkcbxAlleFirmen(s.FilialenNr) Then
-                                                      If Not s.tblSnd_Fremdspedition AndAlso CInt(s.AbfertigungsNr) > 100000 Then SendungOptions.PrintSendung("PRINT", s, AVISO_Tmp, Printername,, SENDUNG_LIST.Count)
-                                                  End If
-                                              Next
-                                          End Sub)
-
-            t.Start(AvisoID)
-            t.IsBackground = True
-            Panel4.Visible = False
+            tread_printAlleAktendeckel(AvisoID, Printername)
        End If
    End Sub

-    Sub tread_printAlleAktendeckel()
+    Shared Sub tread_printAlleAktendeckel(AvisoID, Printername)
+        Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
+        Dim t As New Threading.Thread(Sub(params)
+                                          Dim AVISO_Tmp As VERAG_PROG_ALLGEMEIN.cAviso = AvisoDAL.LesenAviso(AvisoID, "")
+                                          Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
+                                          VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, CInt(params(0))) 'LÄDT alle SENDUNGSDATEN
+                                          For Each s In SENDUNG_LIST
+
+                                              If Not s.tblSnd_Fremdspedition Then
+                                                  If CInt(s.AbfertigungsNr) < 100000 Then
+                                                      If MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!" & vbNewLine & "Druck trotzdem fortfahren?", MsgBoxStyle.YesNoCancel) <> vbYes Then Exit Sub
+                                                  End If
+                                              End If
+                                          Next
+
+                                          'Dim trd = New Threading.Thread(Sub()
+                                          For Each s In SENDUNG_LIST
+                                              If Not s.tblSnd_Fremdspedition AndAlso CInt(s.AbfertigungsNr) > 100000 Then SendungOptions.PrintSendung("PRINT", s, AVISO_Tmp, params(1),, SENDUNG_LIST.Count)
+                                          Next
+                                      End Sub)
+
+        t.Start({AvisoID, Printername})
+        t.IsBackground = True
+
+    End Sub
+    Sub tread_printAlleAktendeckel_OLD()

        ' Me.Cursor = Cursors.WaitCursor
        Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)