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

Fixes GMVS

Browse Source
This commit is contained in:
d.breimaier
2022-11-16 09:04:38 +01:00
parent a2b9b2ad08
commit 7a9d8ae767
1 changed files with 8 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -5299,6 +5299,8 @@ Public Class frmSendungsdetailsNEU
Private Sub AktuelleSendungGVMSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleEIDRSendungenToolStripMenuItem.Click, AktuelleSendungToolStripMenuItem.Click Private Sub AktuelleSendungGVMSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleEIDRSendungenToolStripMenuItem.Click, AktuelleSendungToolStripMenuItem.Click
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Dim currentFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG_LIST(CURRENT_INDEX).FilialenNr,, "")
Try Try
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
If True Then If True Then
@@ -5331,7 +5333,9 @@ Public Class frmSendungsdetailsNEU
End If End If
'LEX 'LEX
Mail.Subject = "GVMS: Kennzeichen: " & AVISO.LKW_Nr & " | Pos: " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr Mail.Subject = "GVMS: Kennzeichen: " & AVISO.LKW_Nr
If OnylSND >= 0 Then Mail.Subject &= " | Pos: " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr
Dim DETextHTML = "" Dim DETextHTML = ""
DETextHTML &= "Sehr geehrter Geschäftspartner,<br>" DETextHTML &= "Sehr geehrter Geschäftspartner,<br>"
@@ -5341,7 +5345,7 @@ Public Class frmSendungsdetailsNEU
DETextHTML &= "Bitte beachten Sie, dass Sie vor der Überfahrt einen GVMS-Eintrag erstellen müssen.<br>" DETextHTML &= "Bitte beachten Sie, dass Sie vor der Überfahrt einen GVMS-Eintrag erstellen müssen.<br>"
DETextHTML &= "Bitte verwenden Sie als Deklarationstyp die Entry In Declarant's Records (EIDR) und als Referenz die EORI-Nr.<br>" DETextHTML &= "Bitte verwenden Sie als Deklarationstyp die Entry In Declarant's Records (EIDR) und als Referenz unsere EORI-Nr: GB078068385000 <br>"
DETextHTML &= "Wir übernehmen gerne die Eintragung für Sie – bitte antworten Sie auf dieses Mail, wenn die Anmeldung durch uns durchgeführt werden sollte.<br><br>" DETextHTML &= "Wir übernehmen gerne die Eintragung für Sie – bitte antworten Sie auf dieses Mail, wenn die Anmeldung durch uns durchgeführt werden sollte.<br><br>"
@@ -5363,12 +5367,12 @@ Public Class frmSendungsdetailsNEU
Dim TextHTMLtable = "" Dim TextHTMLtable = ""
TextHTMLtable &= "<table border=1>" TextHTMLtable &= "<table border=1>"
TextHTMLtable &= "<tr><td>Pos</td><td>Referenz</td><td>Absender/Sender</td><td>Empfänger/Recipient</td><td>Sendung/Shipment</td><td>Kennzeichen/License plate</td><td>Frächter/Carrier</td><td>EORI</td></tr>" TextHTMLtable &= "<tr><td>Pos</td><td>Referenz</td><td>Absender/Sender</td><td>Empfänger/Recipient</td><td>Sendung/Shipment</td><td>Kennzeichen/License plate</td></tr>"
Dim cnt = 1 Dim cnt = 1
For Each SND In SENDUNG_LIST For Each SND In SENDUNG_LIST
If (OnylSND >= 0 AndAlso SND Is SENDUNG_LIST(OnylSND)) Or (OnylSND < 0 And SND.FilialenNr = 7001 And SND.tblSnd_Abfertigungsart_ID = 46) Then ' Or (OnylSND < 0 And SND.FilialenNr = 7001) Then If (OnylSND >= 0 AndAlso SND Is SENDUNG_LIST(OnylSND)) Or (OnylSND < 0 And SND.FilialenNr = 7001 And SND.tblSnd_Abfertigungsart_ID = 46) Then
TextHTMLtable &= "<tr>" TextHTMLtable &= "<tr>"
TextHTMLtable &= "<td><b>" & cnt & "</b></td>" TextHTMLtable &= "<td><b>" & cnt & "</b></td>"
TextHTMLtable &= "<td><b>" & SND.FilialenNr & "/" & SND.AbfertigungsNr & "</b></td>" TextHTMLtable &= "<td><b>" & SND.FilialenNr & "/" & SND.AbfertigungsNr & "</b></td>"
@@ -5376,17 +5380,6 @@ Public Class frmSendungsdetailsNEU
TextHTMLtable &= "<td><b>" & SND.tblSnd_Empfaenger & "</b></td>" TextHTMLtable &= "<td><b>" & SND.tblSnd_Empfaenger & "</b></td>"
TextHTMLtable &= "<td><b>" & SND.tblSnd_Colli & " Pk. " & SND.tblSnd_Warenbezeichnung & " - " & SND.tblSnd_Gewicht & " kg </b></td>" TextHTMLtable &= "<td><b>" & SND.tblSnd_Colli & " Pk. " & SND.tblSnd_Warenbezeichnung & " - " & SND.tblSnd_Gewicht & " kg </b></td>"
TextHTMLtable &= "<td><b>" & AVISO.LKW_Nr & "</b></td>" TextHTMLtable &= "<td><b>" & AVISO.LKW_Nr & "</b></td>"
TextHTMLtable &= "<td><b>" & AVISO.Frächter_KdNr & "</b></td>"
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SND.tblSnd_EmpfaengerKdNr)
If KD IsNot Nothing AndAlso KD IsNot Nothing Then
TextHTMLtable &= "<td><b>" & If(KD.EORITIN, "") & "</b></td>"
Else
TextHTMLtable &= "<td><b>-</b></td>"
End If
TextHTMLtable &= "</tr>" TextHTMLtable &= "</tr>"
cnt += 1 cnt += 1