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

Kundensicherheit, CustomsDeclaration, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-10-22 08:54:23 +02:00
parent 07249f427b
commit 33d192630a
3 changed files with 1922 additions and 1904 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3798
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

9
Aviso/frmSendungsdetailsNEU.resx
View File

@@ -117,9 +117,6 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnDirektAnfuegen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -1397,6 +1394,9 @@
BXidk8YAAAAAAElFTkSuQmCC
</value>
</data>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<metadata name="clmnSender.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
@@ -1896,9 +1896,6 @@
<metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value>
</metadata>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value>
</metadata>
<metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>596, 17</value>
</metadata>

19
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -7683,6 +7683,21 @@ Public Class frmSendungsdetailsNEU
TextHTML = TextHTML.Replace("%LKW%", AVISO.LKW_Nr)
TextHTML = TextHTML.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
If AVISO.VORPAPIERE IsNot Nothing AndAlso AVISO.VORPAPIERE.Count > 0 Then
Dim VorpapierNr As String = ""
For Each VORP In AVISO.VORPAPIERE
VorpapierNr &= VORP.vp_Nr & ","
Next
If VorpapierNr <> "" AndAlso VorpapierNr.ToString.EndsWith(",") Then
VorpapierNr = VorpapierNr.Substring(0, VorpapierNr.Length - 1)
End If
TextHTML = TextHTML.Replace("%VorpapierNr%", VorpapierNr)
End If
If AVISO.VoraussichtlichesEintreffen IsNot Nothing Then
TextHTML = TextHTML.Replace("%voraus-Eintreffen%", CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString)
Mail.Subject = Mail.Subject.Replace("%voraus-Eintreffen%", CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString)
@@ -7772,6 +7787,7 @@ Public Class frmSendungsdetailsNEU
TextHTML = TextHTML.Replace("%Gewicht%", "")
TextHTML = TextHTML.Replace("%ImEx%", "")
TextHTML = TextHTML.Replace("%Zollstelle%", "")
TextHTML = TextHTML.Replace("T1.: %VorpapierNr%", "")
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)
@@ -8416,7 +8432,6 @@ Public Class frmSendungsdetailsNEU
Me.Cursor = Cursors.Default
End Sub
Private Sub SUMAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SUMAToolStripMenuItem.Click
End Sub
End Class