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

Grenzstelle, ATILLA NEUHAUS

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-08-11 09:28:15 +02:00
parent 3afa680d27
commit e9c95c8fdf
10 changed files with 322 additions and 261 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Aviso/usrcntlAktDetails.vb
View File

@@ -3227,7 +3227,11 @@ Public Class usrcntlAktDetails
For Each s In SENDUNG_LIST
If checkcbxAlleFirmen(s.FilialenNr) Then
If Not s.tblSnd_Fremdspedition Then If CInt(s.AbfertigungsNr) < 100000 Then MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!") : Exit Sub
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
@@ -3239,7 +3243,7 @@ Public Class usrcntlAktDetails
Debug.WriteLine("LKW_Nr: " & AVISO_Tmp.LKW_Nr)
If checkcbxAlleFirmen(s.FilialenNr) Then
If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO_Tmp, Printername,, SENDUNG_LIST.Count)
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)
@@ -3258,7 +3262,11 @@ Public Class usrcntlAktDetails
For Each s In SENDUNG_LIST
If checkcbxAlleFirmen(s.FilialenNr) Then
If Not s.tblSnd_Fremdspedition Then If CInt(s.AbfertigungsNr) < 100000 Then MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!") : Exit Sub
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
@@ -3272,7 +3280,7 @@ Public Class usrcntlAktDetails
'Dim trd = New Threading.Thread(Sub()
For Each s In SENDUNG_LIST
If checkcbxAlleFirmen(s.FilialenNr) Then
If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername,, SENDUNG_LIST.Count)
If Not s.tblSnd_Fremdspedition AndAlso CInt(s.AbfertigungsNr) > 100000 Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername,, SENDUNG_LIST.Count)
End If
Next
' End Sub)