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

Bugfix Sendungdetails, autom Ermittlung von Anzahl der ATA/ATC/CRN/MRN Rows

Browse Source
This commit is contained in:
d.breimaier
2023-06-30 17:11:26 +02:00
parent 7cb025586a
commit 44d7d77c01
6 changed files with 527 additions and 524 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -1311,9 +1311,10 @@ Public Class frmSendungsdetailsNEU
usrcntl_ATA = New usrCntlSND_Handling(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
usrcntl_ATB = New usrCntlSND_ATBGestellung(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
AddHandler usrcntl_ATA.HandlingWerte, Sub(colli, gewicht)
AddHandler usrcntl_ATA.HandlingWerte, Sub(colli, gewicht, anzahlSendungen)
txtColli.Text = colli
txtGewicht.Text = gewicht
txtAnzahl.Text = anzahlSendungen
End Sub
'AddHandler usrcntl_ATB.HandlingWerte, Sub(colli, gewicht)
@@ -5916,7 +5917,7 @@ Public Class frmSendungsdetailsNEU
Mail = outl.CreateItem(0)
Mail.To = "zoll.wels@gw-world.com"
Dim OnylSND = -1
If sender Is AktuelleSendungAnhängeWählenToolStripMenuItem Then
If sender Is ToolStripMenuItem29 Then
'For Each r As DataGridViewRow In dgvAnhang.SelectedRows
' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
'Next
@@ -6094,7 +6095,7 @@ Public Class frmSendungsdetailsNEU
Mail.To = "zoll.wels@gw-world.com"
Dim OnylSND = -1
If sender Is AktuelleSendungAnhängeWählenToolStripMenuItem Then
If sender Is ToolStripMenuItem30 Then
'For Each r As DataGridViewRow In dgvAnhang.SelectedRows
' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
'Next