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
2021-09-07 08:31:10 +02:00
parent 2d06d935ef
commit 787491cf6b
36 changed files with 1090 additions and 631 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
Aviso/usrcntlAktDetails.vb
View File

@@ -1196,14 +1196,17 @@ Public Class usrcntlAktDetails
optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
Case 3
optionCell.Value = "OK - Empfangen!"
optionCell.Style.BackColor = Color.Green
optionCell.LinkColor = Color.White
optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
Case 4 : optionCell.Value = "Sende-Fehler!"
optionCell.LinkColor = Color.Green
' optionCell.Style.BackColor = Color.Green
' optionCell.LinkColor = Color.White
'optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
Case 4 : optionCell.Value = "SMS: Sendefehler!"
optionCell.ToolTipText = "Sendefehler: " & SMS.sms_Failure
optionCell.Style.BackColor = Color.Red
optionCell.LinkColor = Color.White
optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
optionCell.LinkColor = Color.Red
optionCell.Style.BackColor = Color.PapayaWhip
optionCell.Style.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
'optionCell.LinkColor = Color.White
'optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
End Select
End If
Case 53
@@ -1815,7 +1818,7 @@ Public Class usrcntlAktDetails
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnOptionen.Click
pnlOptionen.Height = 183 '157 '125
pnlOptionen.Height = 220 '183 '157 '125
pnlOptionen.Visible = Not pnlOptionen.Visible
If pnlOptionen.Visible Then pnlOptionen.Location = New Point(pnlOptionen.Location.X, btnOptionen.Height + pnl.Height + FlowLayoutPanel.Height)
@@ -2657,11 +2660,44 @@ Public Class usrcntlAktDetails
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Mail.Subject = "Dispoliste LKW-Nr: " & AVISO.LKW_Nr
Dim lan = "DE"
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(AVISO.Auftraggeber_KdNr)
Select Case AD.LandKz
Case "TR" : lan = "TR"
Case "GB" : lan = "EN"
Case "RS" : lan = "SRB"
Case "SRB" : lan = "SRB"
End Select
Dim tX As New VERAG_PROG_ALLGEMEIN.cTextkonserve("FRM_MNGR_MailText", "Dispoliste", lan, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
If AD.hasEntry And tX.hasEntry Then
Dim TextHTML = ""
TextHTML &= tX.txt_text
TextHTML &= SDL.cFakturierung.getSignature(lan, tX.txt_firmaSig, True, True)
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"">" & TextHTML & "</div>"
Mail.Subject = tX.txt_betreff.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
Else
Mail.Subject = "Dispoliste LKW-Nr: " & AVISO.LKW_Nr
End If
' Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>anbei erhalten Sie die Rechnung Nr. " & RECHNUNG.RechnungsNr & "."
Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Dispoliste.pdf")
Mail.Display()
Catch ex As Exception
MsgBox("Fehler beim Öffnen des Mail-Programmes. PDF wird geladen!")
Process.Start(path)
@@ -3262,6 +3298,11 @@ Public Class usrcntlAktDetails
End Sub
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
If VERAG_PROG_ALLGEMEIN.cSMS.SEND_StatusSMS(AVISO) Then
MsgBox("Nur TEST!")
End If
End Sub
End Class