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

frmAnhaengeVormulare

Browse Source
This commit is contained in:
d.breimaier
2026-02-19 14:24:26 +01:00
parent aa7aacf5b2
commit 9f490ee188
6 changed files with 219 additions and 137 deletions
Download Patch File Download Diff File Expand all files Collapse all files

87
VERAGAddIn/rbnVERAG.vb
View File

@@ -14,6 +14,20 @@ Imports Microsoft.Office.Interop
Imports Microsoft.Office.Tools.Ribbon
Imports VERAG_PROG_ALLGEMEIN
Public Enum cANHANGSART_ADDIN
'Upload in Datenarchiv
PDF = 1
YMAIL = 2
PDFANDMAIL = 3
'Upload in Datenarchiv inkl. Zuweisung zu Objekt
PDFANDMAIL_DATENSERVER = 4
PDF_DATENSERVER = 5
MAIL_DATENSERVER = 6
End Enum
Public Class VERAGRibbon
Dim LOGIN_OK = False
@@ -158,7 +172,7 @@ Public Class AVISO_Mail_Functions
strFileName &= ".msg"
End If
'Dim strFileName As String = "Mail.msg"
Dim pdf_mail = ""
Dim pdf_mail As cANHANGSART_ADDIN
Dim SendungsId = -1
Dim Art = ""
Dim kdNr = -1
@@ -184,21 +198,33 @@ Public Class AVISO_Mail_Functions
Dim BezAnhang = If(Bezeichnung <> strFileName, Bezeichnung, "") 'Wenn die Bezeichnung geändert wurde --> und wenn nur 1 Anhang, dann wird die Bezeichnung für den Anhang verwendet.
If pdf_mail = "PDF" Then
saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
ElseIf pdf_mail = "PDFMAIL" Then
saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
ElseIf pdf_mail = "PDF_DATENSERVER" Then
saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender,, kdNr)
saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr)
ElseIf pdf_mail = "ONLYPDF_DATENSERVER" Then
saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr, enableOverwritting)
ElseIf pdf_mail = "ONLYMAIL_DATENSERVER" Then
saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender, , kdNr)
Else 'ONLYMAIL
saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
End If
Select Case pdf_mail
Case cANHANGSART_ADDIN.PDF : saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
Case cANHANGSART_ADDIN.YMAIL : saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
Case cANHANGSART_ADDIN.PDFANDMAIL : saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art) : saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
Case cANHANGSART_ADDIN.PDF_DATENSERVER : saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr, enableOverwritting)
Case cANHANGSART_ADDIN.MAIL_DATENSERVER : saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender, , kdNr, enableOverwritting)
Case cANHANGSART_ADDIN.PDFANDMAIL_DATENSERVER : saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender, , kdNr) : saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr)
Case Else
saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
End Select
'If pdf_mail = "PDF" Then
' saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
'ElseIf pdf_mail = "PDFANDMAIL" Then
' saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
' saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
'ElseIf pdf_mail = "PDFANDMAIL_DATENSERVER" Then
' saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender,, kdNr)
' saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr)
'ElseIf pdf_mail = "ONLYPDF_DATENSERVER" Then
' saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr, enableOverwritting)
'ElseIf pdf_mail = "ONLYMAIL_DATENSERVER" Then
' saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender, , kdNr)
'Else 'ONLYMAIL
' saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
'End If
End If
Catch ex As Exception
@@ -1057,7 +1083,7 @@ Public Class AVISO_Mail_Functions
Dim path = DS.uploadDataToDATENSERVER(strTmpPath)
If path Then
Dim c As New cKundenVollmachten(AvisoId)
If bezeichnung.EndsWith(".pdf") Then
If bezeichnung.ToLower.EndsWith(".pdf") Then
c.kdvm_datenarchivId = DS.da_id
Else
c.kdvm_emailId = DS.da_id
@@ -1067,14 +1093,27 @@ Public Class AVISO_Mail_Functions
Case "btnVertraege"
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & AvisoId, kdNr, multifiles)
Dim path = DS.uploadDataToDATENSERVER(strTmpPath,,,,,, enableOverweriting)
If path Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(AvisoId)
KV.kv_datenarchivId = DS.da_id
KV.SAVE()
End If
'Bei Verträge können PDF und MAIL angehängt werden!
If bezeichnung.ToLower.EndsWith(".pdf") Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & AvisoId, kdNr, multifiles)
Dim path = DS.uploadDataToDATENSERVER(strTmpPath,,,,,, enableOverweriting)
If path Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(AvisoId)
KV.kv_datenarchivId = DS.da_id
KV.SAVE()
End If
Else
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_Mail_" & AvisoId, kdNr, multifiles)
Dim path = DS.uploadDataToDATENSERVER(strTmpPath,,,,,, enableOverweriting)
If path Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(AvisoId)
KV.kv_datenarchivId_mail = DS.da_id
KV.SAVE()
End If
End If
Case "btnGestellungsgarantien"