Sendungsdetails, AVISOTV
This commit is contained in:
@@ -704,13 +704,14 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
End If
|
||||
|
||||
loadContextMenudynMailvorlagen()
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnNeueAbfertigungNrVergeben.Visible = True
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "AMBAR"
|
||||
AMBARZollbeschauToolStripMenuItem.Visible = True
|
||||
AMBARZollbeschauNEUToolStripMenuItem.Visible = True
|
||||
dynMailsToolStripMenuItem.Visible = True
|
||||
End Select
|
||||
initDataBinding()
|
||||
|
||||
@@ -4320,21 +4321,7 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
Private Sub Button22_Click(sender As Object, e As EventArgs) Handles btnMailVorlage.Click
|
||||
|
||||
listOfTextconserven = New cTextkonserve_LIST("FRM_MNGR_MailText", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
||||
|
||||
If listOfTextconserven.LIST.Count = 0 Then
|
||||
ContextMenuStrip1.Show(Cursor.Position)
|
||||
Else
|
||||
For Each r In listOfTextconserven.LIST
|
||||
|
||||
If Not dynMailsToolStripMenuItem.DropDownItems.ContainsKey(r.txt_id) Then
|
||||
Dim menuItem = New ToolStripMenuItem() With {.Text = r.txt_bezeichnung, .Name = r.txt_id}
|
||||
dynMailsToolStripMenuItem.DropDownItems.Add(menuItem)
|
||||
AddHandler menuItem.Click, AddressOf mnuItem_Clicked
|
||||
End If
|
||||
Next
|
||||
ContextMenuStrip1.Show(Cursor.Position)
|
||||
End If
|
||||
ContextMenuStrip1.Show(Cursor.Position)
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -5573,8 +5560,6 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Doks an Fremdspedition (SUBEN) weitergeleitet.", 46)
|
||||
|
||||
|
||||
|
||||
Mail.Display()
|
||||
|
||||
Catch ex As Exception
|
||||
@@ -6762,86 +6747,137 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
|
||||
|
||||
Private Sub mnuItem_Clicked(sender As Object, e As EventArgs)
|
||||
ContextMenuStrip1.Hide()
|
||||
Private Sub mnuItem_MouseHover(sender As Object, e As EventArgs)
|
||||
|
||||
'ContextMenuStrip1.Hide()
|
||||
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
|
||||
|
||||
If item IsNot Nothing Then
|
||||
|
||||
For Each r As cTextkonserve In listOfTextconserven.LIST
|
||||
listOfTextconserven = New cTextkonserve_LIST("FRM_MNGR_MailText", item.Name, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
||||
|
||||
If item.Name = r.txt_Id.ToString Then
|
||||
If listOfTextconserven.LIST.Count = 0 Then
|
||||
'ContextMenuStrip1.Show(Cursor.Position)
|
||||
Else
|
||||
For Each r In listOfTextconserven.LIST
|
||||
If Not item.DropDownItems.ContainsKey(r.txt_id) Then
|
||||
Dim menuItem = New ToolStripMenuItem() With {.Text = r.txt_bezeichnung, .Name = r.txt_id}
|
||||
item.DropDownItems.Add(menuItem)
|
||||
AddHandler menuItem.Click, AddressOf mnusubItem_Click
|
||||
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
End If
|
||||
Next
|
||||
'ContextMenuStrip1.Show()
|
||||
'item.ShowDropDown()
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub mnusubItem_Click(sender As Object, e As EventArgs)
|
||||
ContextMenuStrip1.Hide()
|
||||
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
|
||||
|
||||
Try
|
||||
|
||||
If item IsNot Nothing Then
|
||||
|
||||
For Each r As cTextkonserve In listOfTextconserven.LIST
|
||||
|
||||
If item.Name = r.txt_Id.ToString Then
|
||||
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
|
||||
Try
|
||||
Mail.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR")
|
||||
Mail.HTMLBody &= cFakturierung.getSignature(r.txt_sprache, 24, True, True)
|
||||
Catch ex2 As Exception
|
||||
MsgBox(ex2.Message)
|
||||
End Try
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Mail.Subject = r.txt_betreff
|
||||
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= r.txt_text
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= cFakturierung.getSignature(r.txt_sprache, r.txt_firmaSig, True, True)
|
||||
|
||||
If lblGrenze.Text <> "" Then
|
||||
TextHTML = TextHTML.Replace("%VAR-GRENZE%", lblGrenze.Text & "<br>")
|
||||
Else
|
||||
TextHTML = TextHTML.Replace("%VAR-GRENZE%", "")
|
||||
End If
|
||||
|
||||
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
|
||||
|
||||
|
||||
|
||||
If AVISO IsNot Nothing Then
|
||||
Mail.Subject = Mail.Subject.Replace("%LKW%", AVISO.LKW_Nr)
|
||||
Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
|
||||
End If
|
||||
|
||||
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger IsNot Nothing Then
|
||||
Mail.Subject = Mail.Subject.Replace("%Empfaenger%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger)
|
||||
End If
|
||||
|
||||
Mail.Subject = Mail.Subject.Replace("%LKW%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("% - Empfaenger%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("% Empfaenger%", "")
|
||||
|
||||
|
||||
|
||||
For Each anh As DataGridViewRow In dgvAnhang.SelectedRows
|
||||
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(anh.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
Next
|
||||
Mail.Display()
|
||||
If r.txt_sendungsvermerk AndAlso Not r.txt_sendungsvermerkText.ToLower.Contains("test") AndAlso SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID > 0 Then
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, r.txt_sendungsvermerkText, r.txt_sendungsvermerkId)
|
||||
End If
|
||||
Exit For
|
||||
End If
|
||||
|
||||
|
||||
Mail.Subject = r.txt_betreff
|
||||
Next
|
||||
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= r.txt_text
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= cFakturierung.getSignature(r.txt_sprache, r.txt_firmaSig, True, True)
|
||||
End If
|
||||
|
||||
If lblGrenze.Text <> "" Then
|
||||
TextHTML = TextHTML.Replace("%VAR-GRENZE%", lblGrenze.Text & "<br>")
|
||||
Else
|
||||
TextHTML = TextHTML.Replace("%VAR-GRENZE%", "")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
|
||||
Private Sub loadContextMenudynMailvorlagen()
|
||||
|
||||
|
||||
Dim Sprachen = New cTextkonserve_LIST(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
||||
|
||||
If AVISO IsNot Nothing Then
|
||||
Mail.Subject = Mail.Subject.Replace("%LKW%", AVISO.LKW_Nr)
|
||||
Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
|
||||
End If
|
||||
If Sprachen.SPRACHENLIST.Count = 0 Then
|
||||
'ContextMenuStrip1.Show(Cursor.Position)
|
||||
Else
|
||||
For Each r In Sprachen.SPRACHENLIST
|
||||
|
||||
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger IsNot Nothing Then
|
||||
Mail.Subject = Mail.Subject.Replace("%Empfaenger%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger)
|
||||
End If
|
||||
|
||||
Mail.Subject = Mail.Subject.Replace("%LKW%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("% - Empfaenger%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("% Empfaenger%", "")
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
For Each anh As DataGridViewRow In dgvAnhang.SelectedRows
|
||||
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(anh.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
Next
|
||||
Mail.Display()
|
||||
If False Then
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An Fremdspediteur avisiert (Warenort)", 98)
|
||||
End If
|
||||
Exit For
|
||||
If Not dynMailsToolStripMenuItem.DropDownItems.ContainsKey(r.ToString) Then
|
||||
Dim menuItem = New ToolStripMenuItem() With {.Text = r.ToString, .Name = r.ToString}
|
||||
dynMailsToolStripMenuItem.DropDownItems.Add(menuItem)
|
||||
AddHandler menuItem.MouseHover, AddressOf mnuItem_MouseHover
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
|
||||
'ContextMenuStrip1.Show(Cursor.Position)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@@ -6850,5 +6886,4 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user