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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-07-08 08:11:33 +02:00
parent a4ad6cc8c8
commit 505b2800c5
96 changed files with 4969 additions and 8465 deletions
Download Patch File Download Diff File Expand all files Collapse all files

100
Aviso/usrcntlAktDetails.vb
View File

@@ -864,7 +864,7 @@ Public Class usrcntlAktDetails
Dim hSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben," &
" CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId" &
" CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47,94) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId" &
" FROM [Vermerke] LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
" LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
" WHERE AvisoID = " & AvisoID & " " & sendwhere & " " &
@@ -2981,9 +2981,85 @@ Public Class usrcntlAktDetails
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
'If vbYes = MsgBox("Möchten Sie alle Aktendeckel drucken?", vbYesNoCancel) Then
' Me.Cursor = Cursors.WaitCursor
' Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
' VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
' 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
' End If
' Next
' Dim Printername = ""
' Dim oPS As New System.Drawing.Printing.PrinterSettings
' Try
' Printername = oPS.PrinterName
' Catch ex As System.Exception
' End Try
' '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)
' End If
' Next
' ' End Sub)
' ' trd.IsBackground = True : trd.Start()
' Me.Cursor = Cursors.Default
'End If
Dim Printername = ""
Dim oPS As New System.Drawing.Printing.PrinterSettings
Try
Printername = oPS.PrinterName
Catch ex As System.Exception
End Try
If vbYes = MsgBox("Möchten Sie alle Aktendeckel drucken?", vbYesNoCancel) Then
Me.Cursor = Cursors.WaitCursor
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
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 MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!") : Exit Sub
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 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
End If
End Sub
Sub tread_printAlleAktendeckel()
' Me.Cursor = Cursors.WaitCursor
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
For Each s In SENDUNG_LIST
@@ -3005,12 +3081,13 @@ Public Class usrcntlAktDetails
If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername,, SENDUNG_LIST.Count)
End If
Next
' End Sub)
' trd.IsBackground = True : trd.Start()
Me.Cursor = Cursors.Default
End If
' End Sub)
' trd.IsBackground = True : trd.Start()
' Me.Cursor = Cursors.Default
End Sub
Sub addVPList(ByRef MAIL_BODY As String, VP_Enum As List(Of String))
Dim Platzhalter = "<br><br><table style=""font-family:Calibri;"" border=""1"" bordercolor=""#000"" cellspacing=""0"">"
Platzhalter &= "<tr><th width=200>Vorpapier:</th><th width=200></th><th></th></tr>"
@@ -3379,5 +3456,14 @@ Public Class usrcntlAktDetails
AvisoStatusFunctions.SendAnkunftEmail(AVISO, mailTo)
End If
End Sub
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
Dim mailTo = InputBox("Freigabe-Mail senden an:")
'If vbYes = MsgBox("Freigabe-Mail wirklich senden?", vbYesNoCancel) Then
If mailTo <> "" Then
AvisoStatusFunctions.SendStatusEmail(AVISO, mailTo)
End If
End Sub
End Class