neu
This commit is contained in:
@@ -1781,6 +1781,7 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
|
||||
Sub initDrucker()
|
||||
' SDL.cProgramFunctions.initDrucker(cboPrinter)
|
||||
Try
|
||||
|
||||
' alle installierten Drucker ermitteln und
|
||||
@@ -1811,13 +1812,19 @@ Public Class frmSendungsdetailsNEU
|
||||
setCboEntry(sPrinters(i)) ' cboPrinter.Items.Add(sPrinters(i))
|
||||
End If
|
||||
Next
|
||||
' Console.WriteLine("SSSSSSSSSSSSSSSSS - " & (VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD.ToUpper))
|
||||
|
||||
setCboSelected(VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD, oPS.PrinterName)
|
||||
'If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD <> String.Empty Then
|
||||
' Console.WriteLine(setCboSelected(VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD))
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD <> String.Empty Then
|
||||
setCboSelected(VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD)
|
||||
Else
|
||||
setCboSelected(oPS.PrinterName)
|
||||
End If
|
||||
' If Not setCboSelected(VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD) Then
|
||||
' 'nicht gefunden
|
||||
' setCboSelected(oPS.PrinterName)
|
||||
' End If
|
||||
'Else
|
||||
' setCboSelected(oPS.PrinterName)
|
||||
'End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim initialisieren der Drucker!")
|
||||
@@ -1841,12 +1848,12 @@ Public Class frmSendungsdetailsNEU
|
||||
End Sub
|
||||
|
||||
'threadsicherer Aufruf
|
||||
Delegate Sub setCboSelectedCallback(standardDrucker As String)
|
||||
Private Sub setCboSelected(standardDrucker As String)
|
||||
Delegate Function setCboSelectedCallback(standardDruckerAviso As String, standardDrucker As String) As Boolean
|
||||
Private Function setCboSelected(standardDruckerAviso As String, standardDrucker As String) As Boolean
|
||||
If Me.InvokeRequired Then
|
||||
Dim d As New setCboSelectedCallback(AddressOf setCboSelected)
|
||||
Try
|
||||
Me.Invoke(d, New Object() {standardDrucker})
|
||||
Me.Invoke(d, New Object() {standardDruckerAviso, standardDrucker})
|
||||
Catch ex As Exception : End Try
|
||||
Else
|
||||
Dim found As Boolean = False
|
||||
@@ -1859,16 +1866,28 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
If found = False Then 'Falls kein TALLY, Standarddrucker
|
||||
cboPrinter.SelectedIndex = 0
|
||||
|
||||
|
||||
If standardDruckerAviso <> "" Then
|
||||
For Each i In cboPrinter.Items
|
||||
If i.ToString.ToUpper.Contains(standardDruckerAviso.ToUpper) Then ' If i.ToString = standardDrucker Then ' Contains, weil sonst \\dc02\ stört
|
||||
cboPrinter.SelectedItem = i
|
||||
Return True ' Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
'nciht gefunden --> Standard
|
||||
For Each i In cboPrinter.Items
|
||||
If i.ToString.ToUpper.Contains(standardDrucker.ToUpper) Then ' If i.ToString = standardDrucker Then ' Contains, weil sonst \\dc02\ stört
|
||||
cboPrinter.SelectedItem = i
|
||||
Exit For
|
||||
Return True ' Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
@@ -3876,24 +3895,26 @@ Public Class frmSendungsdetailsNEU
|
||||
'ATA FREMD!!!
|
||||
If sender Is ToolStripMenuItem15 Then
|
||||
Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr & " | Grenze: " & lblGrenze.Text
|
||||
If If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender, "") <> "" Then Mail.Subject &= " | Absender: " & SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender
|
||||
If If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht, "") <> "" Then Mail.Subject &= " | Gewicht: " & SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht
|
||||
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= "Sehr geehrte Damen und Herren,<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "beiliegend senden wir Ihnen die Sendungsunterlagen für den o.g. LKW/Container. Wir bitten um Zusendung der ATA-Nummer.<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "beiliegend senden wir Ihnen die Sendungsunterlagen für den o.g. LKW/Container. Wir bitten um Zusendung der ATA-Nummer.<br>"
|
||||
TextHTML &= "<br>"
|
||||
|
||||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
TextHTML &= "<br>"
|
||||
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||||
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "ATA-Nr fehlt (Fremdanmeldung) - angefordert", 33)
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "ATA-Nr fehlt (Fremdanmeldung) - angefordert", 33)
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Mail.Display()
|
||||
Mail.Display()
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
|
||||
@@ -3985,10 +4006,12 @@ Public Class frmSendungsdetailsNEU
|
||||
pnlKundenInfo.AutoScrollMinSize = New Size(c.Width, c.Height)
|
||||
pnlKundenInfo.Controls.Add(c)
|
||||
End If
|
||||
DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).setKD(kdNr)
|
||||
DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).Visible = True
|
||||
Else
|
||||
If pnlKundenInfo.Controls.Count > 0 Then
|
||||
DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).setKD(kdNr)
|
||||
DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).Visible = True
|
||||
End If
|
||||
Else
|
||||
If pnlKundenInfo.Controls.Count > 0 Then
|
||||
DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).Visible = False
|
||||
End If
|
||||
End If
|
||||
@@ -5027,7 +5050,7 @@ Public Class frmSendungsdetailsNEU
|
||||
Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
|
||||
Dim cnt = 1
|
||||
For Each SND In SENDUNG_LIST
|
||||
|
||||
Dim gestellungsadresseTmp = ""
|
||||
If (OnylSND >= 0 AndAlso SND Is SENDUNG_LIST(OnylSND)) Or (OnylSND < 0 And SND.FilialenNr = 4839) Then
|
||||
TextHTML &= "<tr>"
|
||||
TextHTML &= "<td><b>" & cnt & "</b></td>"
|
||||
@@ -5036,7 +5059,18 @@ Public Class frmSendungsdetailsNEU
|
||||
TextHTML &= "<td><b>" & SND.tblSnd_Absender & "</b></td>"
|
||||
TextHTML &= "<td><b>" & SND.tblSnd_Empfaenger & "</b></td>"
|
||||
TextHTML &= "<td><b>" & SND.tblSnd_Colli & " Pk. " & SND.tblSnd_Warenbezeichnung & " - " & SND.tblSnd_Gewicht & " kg </b></td>"
|
||||
TextHTML &= "<td><b>VERAG</b></td>" '??????
|
||||
|
||||
TextHTML &= "<td><b>"
|
||||
If SND.tblSnd_BARzuKassieren IsNot Nothing Then
|
||||
If IsNumeric(SND.tblSnd_BARzuKassieren) AndAlso SND.tblSnd_BARzuKassieren <> 0 Then
|
||||
TextHTML &= "BAR kassieren:" & CDbl(SND.tblSnd_BARzuKassieren).ToString("C2")
|
||||
Else
|
||||
TextHTML &= "BAR kassieren:" & SND.tblSnd_BARzuKassieren 'falls keine Zahl
|
||||
End If
|
||||
Else
|
||||
TextHTML &= "VERAG"
|
||||
End If
|
||||
TextHTML &= "</b></td>"
|
||||
|
||||
Select Case SND.tblSnd_Abfertigungsart_ID
|
||||
Case "38", "1"
|
||||
@@ -5053,6 +5087,11 @@ Public Class frmSendungsdetailsNEU
|
||||
TextHTML &= "<td><b>-</b></td>"
|
||||
TextHTML &= "<td><b>-</b></td>"
|
||||
End If
|
||||
Case "5", "6"
|
||||
gestellungsadresseTmp = SND.getNCTSAdress().Trim
|
||||
TextHTML &= "<td><b>-</b></td>"
|
||||
TextHTML &= "<td><b>-</b></td>"
|
||||
TextHTML &= "<td><b>-</b></td>"
|
||||
Case Else
|
||||
TextHTML &= "<td><b>-</b></td>"
|
||||
TextHTML &= "<td><b>-</b></td>"
|
||||
@@ -5061,6 +5100,13 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
TextHTML &= "</tr>"
|
||||
|
||||
If gestellungsadresseTmp <> "" Then
|
||||
TextHTML &= "<tr>"
|
||||
TextHTML &= "<td colspan=2><b></b></td>"
|
||||
TextHTML &= "<td colspan=2>NCTS-Gestellungsadresse:</td>"
|
||||
TextHTML &= "<td colspan=6><b>" & gestellungsadresseTmp & "</b></td>"
|
||||
TextHTML &= "</tr>"
|
||||
End If
|
||||
'....
|
||||
'For Each r As DataGridViewRow In dgvAnhang.SelectedRows
|
||||
' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
|
||||
Reference in New Issue
Block a user