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

GVMS Feature

Browse Source
This commit is contained in:
d.breimaier
2022-11-15 16:13:35 +01:00
parent c4aaf70bee
commit a2b9b2ad08
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -5326,9 +5326,7 @@ Public Class frmSendungsdetailsNEU
Dim OnylSND = -1
If sender Is AktuelleSendungToolStripMenuItem 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
OnylSND = CURRENT_INDEX
End If
@@ -5370,7 +5368,7 @@ Public Class frmSendungsdetailsNEU
Dim cnt = 1
For Each SND In SENDUNG_LIST
If True Then '(OnylSND >= 0 AndAlso SND Is SENDUNG_LIST(OnylSND)) 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 ' Or (OnylSND < 0 And SND.FilialenNr = 7001) Then
TextHTMLtable &= "<tr>"
TextHTMLtable &= "<td><b>" & cnt & "</b></td>"
TextHTMLtable &= "<td><b>" & SND.FilialenNr & "/" & SND.AbfertigungsNr & "</b></td>"