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

VM anfügen: wenn EMail Anhang enthält, werden nun Mail und Anhang ges

Browse Source
This commit is contained in:
d.breimaier
2022-09-28 13:59:06 +02:00
parent 95f0a62c89
commit 26a8cf78f5
2 changed files with 1 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
VERAGAddIn/frmAvisoFormularAnfügen.vb
View File

@@ -103,9 +103,6 @@ Public Class frmAvisoFormularAnfuegen
UsrCntlKundenZollVollmachten1.btnNeu_Click(sender, e) UsrCntlKundenZollVollmachten1.btnNeu_Click(sender, e)
vollmachtId = UsrCntlKundenZollVollmachten1.vmId vollmachtId = UsrCntlKundenZollVollmachten1.vmId
'MsgBox("Dokument wurde gespeichert!")
'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & UsrCntlKundenZollVollmachten1.vollmachtartId, "", "", Bezeichnung, KdNr)
'Dim path = DS.uploadDataToDATENSERVER("")
Close() Close()

3
VERAGAddIn/rbnVERAG.vb
View File

@@ -144,6 +144,7 @@ Public Class AVISO_Mail_Functions
saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art) saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang) saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
ElseIf pdf_mail = "PDF_DATENSERVER" Then ElseIf pdf_mail = "PDF_DATENSERVER" Then
saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung,, Art)
saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, Art, BezAnhang) saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, Art, BezAnhang)
ElseIf pdf_mail = "ONLYMAIL_DATENSERVER" Then ElseIf pdf_mail = "ONLYMAIL_DATENSERVER" Then
saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung,, Art) saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung,, Art)
@@ -404,8 +405,6 @@ Public Class AVISO_Mail_Functions
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & AvisoId, "", "", Bezeichnung) Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & AvisoId, "", "", Bezeichnung)
Dim path = DS.uploadDataToDATENSERVER(fi.FullName) Dim path = DS.uploadDataToDATENSERVER(fi.FullName)
'If AVISO.frmSendungAnhangImport.getFileTypeValid(fi.Extension, typ) Then
' AVISO.frmSendungAnhangImport.saveToDS(AvisoId, Bezeichnung, ATT, Art, typ, ,,, If(SendungsId > 0, SendungsId, Nothing))
Next Next
End If End If
Catch ex As Exception Catch ex As Exception