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

merge

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-21 14:56:51 +01:00
parent 8e5f31055b 552dd3b02c
commit 7daf8d5213
6 changed files with 548 additions and 403 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -8,7 +8,6 @@ Imports iTextSharp.text.pdf
Imports Microsoft.Office.Interop
Imports DocumentFormat.OpenXml.Presentation
Public Class frmSendungsdetailsNEU
Public AvisoId As Integer
Public SendungID As Integer = -1
@@ -644,6 +643,12 @@ Public Class frmSendungsdetailsNEU
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
WarenortAMBARToolStripMenuItem.Visible = True
End Select
initDataBinding()
Catch ex As Exception
@@ -3617,6 +3622,7 @@ Public Class frmSendungsdetailsNEU
End If
Select Case FormularArt
Case SDL.FormularManagerArten.Importaviso_VK : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE})
Case SDL.FormularManagerArten.Zollbeschau_Protokoll : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Zollbeschau_Protokoll, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE})
Case SDL.FormularManagerArten.Importaviso
Dim f As SDL.frmFormulare = Nothing
SDL.FormularManagerNEU.OPEN_FORM_Byref(SDL.FormularManagerArten.Importaviso, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE},, f)
@@ -3964,7 +3970,7 @@ Public Class frmSendungsdetailsNEU
End If
End Sub
Private Sub EMailAnfügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMailAnfügenToolStripMenuItem.Click, ToolStripMenuItem15.Click
Private Sub EMailAnfügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMailAnfügenToolStripMenuItem.Click, ToolStripMenuItem15.Click, WarenortAMBARToolStripMenuItem.Click
Try
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
@@ -3989,8 +3995,8 @@ Public Class frmSendungsdetailsNEU
' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilenameByDS(ii.coll_pfad, ii.coll_bezeichnung), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
Next
Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr
Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr
'ATA FREMD!!!
If sender Is ToolStripMenuItem15 Then
@@ -4011,7 +4017,31 @@ Public Class frmSendungsdetailsNEU
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)
ElseIf sender Is WarenortAMBARToolStripMenuItem Then
Mail.Subject = AVISO.LKW_Nr
If If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger, "") <> "" Then Mail.Subject &= " / " & SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger
Dim TextHTML = ""
TextHTML &= "Sehr geehrte Damen und Herren,<br>"
TextHTML &= "<br>"
TextHTML &= "der LKW meldet sich mit der Ware lt. Anhang bei uns am Warenort Zollamt " & lblGrenze.Text & ", bitte um Vorbereitung der Verzollung. <br>"
TextHTML &= "<br>"
TextHTML &= "Wir melden uns bei LKW-Ankunft mit der ATB Nummer.<br>"
TextHTML &= "<br>"
TextHTML &= "Mit freundlichen Grüßen<br>"
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
TextHTML &= "<br>"
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An Fremdspediteur avisiert (Warenort)", 98)
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
End If
Mail.Display()
Catch ex As Exception
@@ -5740,5 +5770,15 @@ Public Class frmSendungsdetailsNEU
End Sub
Private Sub AMBARZollbeschauNEUToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AMBARZollbeschauNEUToolStripMenuItem.Click
Try
FormularArt = SDL.FormularManagerArten.Zollbeschau_Protokoll
cntxtVorauskasse.Show(Cursor.Position)
Catch ex As Exception
End Try
End Sub
End Class