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

Laufzettel

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-11-03 11:19:07 +01:00
parent 08c8eb2cd4
commit 3e7ea250aa
3 changed files with 64 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

67
Aviso/usrcntlAktDetails.vb
View File

@@ -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)