frmAnhaengeVormulare

VERAGAddIn/frmAvisoFormularAnfügen.vb

@@ -1,11 +1,6 @@
-Imports System.Collections
-Imports System.Data
-Imports System.Diagnostics
-Imports System.Diagnostics.Tracing
+Imports System.Diagnostics
 Imports System.Drawing
-Imports System.Net
 Imports System.Windows.Forms
-Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Button
 Imports Microsoft.Office.Tools.Ribbon
 Imports SDL
 Imports VERAG_PROG_ALLGEMEIN
@@ -19,7 +14,7 @@ Public Class frmAvisoFormularAnfuegen
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Public SendungsId = -1
     Public Bezeichnung = ""
-    Public PDF_MAIL = ""
+    Public PDF_MAIL As cANHANGSART_ADDIN
     Public enableOverwritting As Boolean = False
     Public ATTTemp As List(Of String)
     Public ATT As List(Of String)
@@ -174,14 +169,15 @@ Public Class frmAvisoFormularAnfuegen
         Select Case button.Name
 
             Case "btnVertraege"
-                UsrCntlVertraege1.dgvVertraegeNew.GetOrder()
-                UsrCntlVertraege1.initDGVVertraege(KdNr)
-                UsrCntlVertraege1.dgvVertraegeNew.SetOrder()
 
                 If UsrCntlVertraege1.dgvVertraegeNew.SelectedRows.Count < 1 Then
                     MsgBox("Bitte einen Vertrag markieren")
                 End If
 
+                UsrCntlVertraege1.dgvVertraegeNew.GetOrder()
+                UsrCntlVertraege1.initDGVVertraege(KdNr)
+                UsrCntlVertraege1.dgvVertraegeNew.SetOrder()
+
             Case "btnGestellungsgarantien"
                 UsrCntlGestellungsgarantien1.dgvGestGarantieNew.GetOrder()
                 UsrCntlGestellungsgarantien1.initDGVGestGarantie(KdNr)
@@ -195,33 +191,33 @@ Public Class frmAvisoFormularAnfuegen
 
         If Not hasAnhaenge Then
 
-            If Not vbYes = MsgBox("Diese Email besitzt keinen Anhang!" & vbCrLf & "Soll die Email als Anhang gespeichert werden?", vbYesNoCancel) Then
-                Close()
-                DialogResult = DialogResult.None
-                Exit Sub
-            End If
-        End If
+            'If Not vbYes = MsgBox("Diese Email besitzt keinen Anhang!" & vbCrLf & "Soll die Email als Anhang gespeichert werden?", vbYesNoCancel) Then
+            '    Close()
+            '    DialogResult = DialogResult.None
+        Else
 
-        If ATT IsNot Nothing Then
-            If ATT.Count > 1 Then
-                ATT = ATTTemp
-                If dgvAnhaenge.SelectedRows.Count = 0 Then
-                    MsgBox("Bitte Anhang markieren!")
-                    DialogResult = DialogResult.None
-                    Exit Sub
-                Else
-                    Dim listOfSelectedAttachmendIndex As New List(Of Integer)
-                    For Each indexOfAttachment As DataGridViewRow In dgvAnhaenge.SelectedRows
-                        listOfSelectedAttachmendIndex.Add(indexOfAttachment.Index)
-                    Next
+            If ATT IsNot Nothing Then
+                If ATT.Count > 1 Then
+                    ATT = ATTTemp
+                    If dgvAnhaenge.SelectedRows.Count = 0 Then
+                        MsgBox("Bitte Anhang markieren!")
+                        DialogResult = DialogResult.None
+                        Exit Sub
+                    Else
+                        Dim listOfSelectedAttachmendIndex As New List(Of Integer)
+                        For Each indexOfAttachment As DataGridViewRow In dgvAnhaenge.SelectedRows
+                            listOfSelectedAttachmendIndex.Add(indexOfAttachment.Index)
+                        Next
 
-                    RemoveNotUsedAttachmentOnList(ATT, listOfSelectedAttachmendIndex)
+                        RemoveNotUsedAttachmentOnList(ATT, listOfSelectedAttachmendIndex)
 
+                    End If
                 End If
             End If
         End If
 
 
+
         Select Case button.Name
 
             Case "btnVollmachten"
@@ -239,13 +235,21 @@ Public Class frmAvisoFormularAnfuegen
 
                 ElseIf UsrCntlVertraege1.dgvVertraegeNew.SelectedRows.Count = 1 Then
 
+                    Dim hasExistingEmail As Boolean = False
+                    Dim hasExistingAttachment As Boolean = False
+
                     For Each row As DataGridViewRow In UsrCntlVertraege1.dgvVertraegeNew.SelectedRows
-                        If row.Cells("kv_datenarchivId").Value Is DBNull.Value Or row.Cells("kv_datenarchivId").Value Is Nothing Then
-                            setAvisoIdForVertrage()
-                        Else
+
+                        If (row.Cells("kv_datenarchivId_mail").Value IsNot Nothing AndAlso IsNumeric(row.Cells("kv_datenarchivId_mail").Value) AndAlso CInt(row.Cells("kv_datenarchivId_mail").Value) > 0) Then hasExistingEmail = True
+
+                        If (row.Cells("kv_datenarchivId").Value IsNot Nothing AndAlso IsNumeric(row.Cells("kv_datenarchivId").Value) AndAlso CInt(row.Cells("kv_datenarchivId").Value) > 0) Then hasExistingAttachment = True
+
+                        setAvisoIdForVertrage()
+
+                        If hasAnhaenge AndAlso hasExistingAttachment Then
                             Dim response = MsgBox("Der markierte Vertrag besitzt bereits einen Anhang!" & vbCrLf & "Soll der Anhang ersetzt werden?", vbYesNoCancel)
                             If response = vbYes Then
-                                setAvisoIdForVertrage()
+                                'setAvisoIdForVertrage()
                                 enableOverwritting = True
                             ElseIf response = vbCancel Then
                                 DialogResult = DialogResult.None
@@ -255,11 +259,37 @@ Public Class frmAvisoFormularAnfuegen
                             End If
                         End If
 
+
+
                     Next
+
+                    Dim ASKMailSpeichern As String = ""
+
+                    If hasAnhaenge Then
+                        ASKMailSpeichern = "Soll die Mail auch gespeichert werden!" & IIf(hasExistingEmail, vbNewLine & "Die aktuell hinterlegte Mail wird dadurch überschrieben!", "")
+                    Else
+                        ASKMailSpeichern = "Soll die Mail als Anhang gepeichert werden!" & IIf(hasExistingEmail, vbNewLine & "Die aktuell hinterlegte Mail wird dadurch überschrieben!", "")
+                    End If
+
+                    If vbYes = MsgBox(ASKMailSpeichern, vbYesNoCancel) Then
+                        If hasExistingEmail Then enableOverwritting = True
+                        If ATT.Count = 0 Then
+                            PDF_MAIL = cANHANGSART_ADDIN.MAIL_DATENSERVER '"ONLYMAIL_DATENSERVER"
+                        Else
+                            PDF_MAIL = cANHANGSART_ADDIN.PDFANDMAIL_DATENSERVER '"PDFMAIL_DATENSERVER"
+                        End If
+                    Else
+                        If ATT.Count = 0 Then
+                            DialogResult = DialogResult.None
+                            Exit Sub
+                        End If
+
+                    End If
+
                     Me.DialogResult = DialogResult.OK
-                    Close()
-                Else
-                    Close()
+                        Close()
+                    Else
+                        Close()
                 End If
 
 
@@ -352,13 +382,13 @@ Public Class frmAvisoFormularAnfuegen
 
         If ATT.Count = 0 Then
             hasAnhaenge = False
-            PDF_MAIL = "ONLYMAIL_DATENSERVER"
+            PDF_MAIL = cANHANGSART_ADDIN.MAIL_DATENSERVER '"ONLYMAIL_DATENSERVER"
         Else
             hasAnhaenge = True
             If button.Name = "btnVollmachten" Then
-                PDF_MAIL = "PDF_DATENSERVER"
+                PDF_MAIL = cANHANGSART_ADDIN.PDFANDMAIL_DATENSERVER '"PDFANDMAIL_DATENSERVER"
             Else
-                PDF_MAIL = "ONLYPDF_DATENSERVER"
+                PDF_MAIL = cANHANGSART_ADDIN.PDF_DATENSERVER '"ONLYPDF_DATENSERVER"
             End If