AddIn

2023-04-12 16:58:16 +02:00
parent 2dab8149c3
commit 79c4e4e37c
6 changed files with 547 additions and 272 deletions
--- a/VERAGAddIn/frmAvisoFormularAnfügen.vb
+++ b/VERAGAddIn/frmAvisoFormularAnfügen.vb
@@ -1,8 +1,11 @@
 Imports System.Collections
 Imports System.Data
+Imports System.Diagnostics.Tracing
 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

@@ -10,7 +13,7 @@ Imports VERAG_PROG_ALLGEMEIN
 Public Class frmAvisoFormularAnfuegen

    Public KdNr As Integer = -1
-    Public vollmachtId As Integer = -1
+    Public AvisoId As Integer = -1
    Dim vollmachtartId As Integer = -1
    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
    Public SendungsId = -1
@@ -18,6 +21,13 @@ Public Class frmAvisoFormularAnfuegen
    Public PDF_MAIL = ""
    Public ATT As List(Of String)
    Public hasAnhaenge As Boolean = False
+    Public button As RibbonButton
+    Dim UsrCntlKundenZollVollmachten1 As usrCntlKundenZollVollmachten
+    Dim UsrCntlVertraege1 As usrcntlVertraege
+    Dim UsrCntlGestellungsgarantien1 As usrcntlGestellungsgarantien
+    Dim frmDefaultSize As Size = New Size(535, 750)
+    Dim dgvAnhaengeSize As Size = New Size(495, 30)
+


    Sub New()
@@ -26,23 +36,62 @@ Public Class frmAvisoFormularAnfuegen

    End Sub

-    Sub New(Bezeichnung)
+    Sub New(Bezeichnung, sender)

        InitializeComponent()
        Me.Bezeichnung = Bezeichnung
+        button = sender
+        initForm()
+
+
+    End Sub
+    Sub initForm()
+
+        Me.pnlDetails.AutoSizeMode = AutoSizeMode.GrowAndShrink
+        Me.pnlDetails.AutoSize = True
+
+
+        Select Case button.Name
+
+            Case "btnVollmachten"
+
+                UsrCntlKundenZollVollmachten1 = New usrCntlKundenZollVollmachten()
+                UsrCntlKundenZollVollmachten1.AutoSize = False
+                Me.pnlDetails.Controls.Add(UsrCntlKundenZollVollmachten1)
+                Me.Text = "Vollmachten einfügen"
+
+
+            Case "btnVertraege"
+                UsrCntlVertraege1 = New usrcntlVertraege()
+                AddHandler UsrCntlVertraege1.clickOK, AddressOf btnOK_Click
+                Me.pnlDetails.Controls.Add(UsrCntlVertraege1)
+                Me.Text = "Verträge einfügen"
+
+
+            Case "btnGestellungsgarantien"
+                UsrCntlGestellungsgarantien1 = New usrcntlGestellungsgarantien()
+                AddHandler UsrCntlGestellungsgarantien1.clickOK, AddressOf btnOK_Click
+                Me.Text = "Gestellungsgarantien einfügen"
+                'UsrCntlGestellungsgarantien1.AutoSize = False
+                Me.pnlDetails.Controls.Add(UsrCntlGestellungsgarantien1)
+
+
+            Case Else
+                MsgBox("Funktion nicht unterstützt!")
+                Me.DialogResult = DialogResult.Cancel
+                Me.Close()
+
+        End Select


    End Sub


    Private Sub frmAvisoFormularAnfuegen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-
-
-        KdSearchBox.initKdBox(Me)
        initAttachment()
+        KdSearchBox.initKdBox(Me)
        If hasAnhaenge Then pbAnhaenge.Image = My.Resources.pdf

-
    End Sub


@@ -59,7 +108,22 @@ Public Class frmAvisoFormularAnfuegen

    Sub init()
        If KdNr > 0 Then
-            initVollmachtarten(KdNr)
+            Select Case button.Name
+
+                Case "btnVollmachten"
+
+                    initVollmachtarten(KdNr)
+
+                Case "btnVertraege"
+
+                    UsrCntlVertraege1.initDGVVertraege(KdNr)
+
+                Case "btnGestellungsgarantien"
+
+                    UsrCntlGestellungsgarantien1.initDGVGestGarantie(KdNr)
+
+            End Select
+
        End If
    End Sub

@@ -92,17 +156,15 @@ Public Class frmAvisoFormularAnfuegen
        End If
    End Sub

+    Dim test As usrcntlGestellungsgarantien.clickOKEventHandler()

    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click

-        If Not checkMandatoryFields() Then
-            DialogResult = DialogResult.None
-            Exit Sub
-        End If
+

        If Not hasAnhaenge Then

-            If Not vbYes = MsgBox("Diese Email besitzt keinen Anhang!" & vbCrLf & "Soll die Email denoch gespeichert werden?", vbYesNoCancel) Then
+            If Not vbYes = MsgBox("Diese Email besitzt keinen Anhang!" & vbCrLf & "Soll die Email denoch als Anhang gespeichert werden?", vbYesNoCancel) Then
                Close()
                DialogResult = DialogResult.None
                Exit Sub
@@ -110,22 +172,101 @@ Public Class frmAvisoFormularAnfuegen
        End If


-        Dim i = dgvAnhaenge.SelectedCells.Item(0).RowIndex
+        Dim i = 0
+        If dgvAnhaenge.SelectedCells.Count > 0 Then i = dgvAnhaenge.SelectedCells.Item(0).RowIndex
        If i > 0 Then

            AddAttachmentOnLastIndex(ATT, i)

        End If

+        If Not checkMandatoryFields() Then
+            DialogResult = DialogResult.None
+            Exit Sub
+        End If

-        UsrCntlKundenZollVollmachten1.btnNeu_Click(sender, e)
-        vollmachtId = UsrCntlKundenZollVollmachten1.vmId
+        Select Case button.Name

-        Close()
+            Case "btnVollmachten"
+
+                UsrCntlKundenZollVollmachten1.btnNeu_Click(sender, e)
+                AvisoId = UsrCntlKundenZollVollmachten1.vmId
+
+                Close()
+
+            Case "btnVertraege"
+
+                If sender.Text = "Hinzufügen" Then
+
+                    setAvisoIdForVertrage()
+                    Me.DialogResult = DialogResult.OK
+
+                ElseIf UsrCntlVertraege1.dgvVertraege.SelectedRows.Count = 1 Then
+
+                    For Each row As DataGridViewRow In UsrCntlVertraege1.dgvVertraege.SelectedRows
+                        If row.Cells("kv_datenarchivId").Value IsNot DBNull.Value Then
+                            setAvisoIdForVertrage()
+                        End If
+                    Next
+                    Me.DialogResult = DialogResult.OK
+                    Close()
+                Else
+                    Close()
+                End If
+
+
+
+                Close()
+
+            Case "btnGestellungsgarantien"
+
+                If sender.Text = "Hinzufügen" Then
+
+                    setAvisoIdForGestellungen()
+                    Me.DialogResult = DialogResult.OK
+
+                ElseIf UsrCntlGestellungsgarantien1.dgvGestGarantie.SelectedRows.Count = 1 Then
+
+                    For Each row As DataGridViewRow In UsrCntlGestellungsgarantien1.dgvGestGarantie.SelectedRows
+
+                        If row.Cells("gg_datenarchivId").Value Is DBNull.Value Then
+                            'Or CInt(row.Cells("gg_datenarchivId").Value) < 0
+                            setAvisoIdForGestellungen()
+                        End If
+
+                    Next
+                    Me.DialogResult = DialogResult.OK
+                    Close()
+                Else
+
+                    Close()
+                End If
+
+
+
+        End Select

    End Sub


+    Private Sub setAvisoIdForGestellungen()
+        If UsrCntlGestellungsgarantien1.Gid > 0 Then
+            AvisoId = UsrCntlGestellungsgarantien1.Gid
+        ElseIf UsrCntlGestellungsgarantien1.dgvGestGarantie.SelectedRows.Count = 1 Then
+            AvisoId = UsrCntlGestellungsgarantien1.dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value
+        End If
+
+    End Sub
+
+    Private Sub setAvisoIdForVertrage()
+        If UsrCntlVertraege1.Vid > 0 Then
+            AvisoId = UsrCntlVertraege1.Vid
+        ElseIf UsrCntlVertraege1.dgvVertraege.SelectedRows.Count = 1 Then
+            AvisoId = UsrCntlVertraege1.dgvVertraege.SelectedRows(0).Cells("kv_id").Value
+        End If
+
+    End Sub
+
    Private Sub AddAttachmentOnLastIndex(ByRef a As List(Of String), tmpIndex As Integer)
        If (a IsNot Nothing) AndAlso (a.Count > 1) Then
            Dim list As New List(Of String)
@@ -144,37 +285,85 @@ Public Class frmAvisoFormularAnfuegen

    Sub initAttachment()
        dgvAnhaenge.Rows.Clear()
+
+        If ATT Is Nothing Then
+            Exit Sub
+        End If
+
        If ATT.Count = 0 Then
            hasAnhaenge = False
            PDF_MAIL = "ONLYMAIL_DATENSERVER"
        Else
            hasAnhaenge = True
-            PDF_MAIL = "PDF_DATENSERVER"
+            If button.Name = "btnVollmachten" Then
+                PDF_MAIL = "PDF_DATENSERVER"
+            Else
+                PDF_MAIL = "ONLYPDF_DATENSERVER"
+            End If
+

            For Each a In ATT
-                Dim display = a
-                If a.Contains("\") Then
-                    Dim sp = a.Split("\")
-                    display = sp(sp.Count - 1)
-                End If
-                dgvAnhaenge.Rows.Add({display})
-            Next
-        End If
+                    Dim display = a
+                    If a.Contains("\") Then
+                        Dim sp = a.Split("\")
+                        display = sp(sp.Count - 1)
+                    End If
+                    dgvAnhaenge.Rows.Add({display})
+                Next
+            End If

-        If dgvAnhaenge.Rows.Count >= 2 Then
+        Dim addHeightfrm = 180
+        Dim addHeightdgv = 50
+        If dgvAnhaenge.Rows.Count > 1 Then

            dgvAnhaenge.Visible = True
            lblMultiAttachements.Visible = True
-            Me.Size = New Size(537, 720)
-            dgvAnhaenge.Size = New Size(514, 86)
+
+
+            Select Case button.Name
+
+                Case "btnVollmachten"
+
+                    Me.Size = New Size(frmDefaultSize.Width, frmDefaultSize.Height + addHeightdgv)
+                    pnlDetails.Size = New Size(pnlDetails.Width, pnlDetails.Height + addHeightdgv)
+                    dgvAnhaenge.Size = New Size(dgvAnhaengeSize.Width, dgvAnhaengeSize.Height + addHeightdgv)
+
+                Case "btnVertraege"
+                    Me.Size = New Size(frmDefaultSize.Width, frmDefaultSize.Height - addHeightfrm)
+                    pnlDetails.Size = New Size(pnlDetails.Width, pnlDetails.Height - addHeightfrm)
+                    dgvAnhaenge.Size = New Size(dgvAnhaengeSize.Width, dgvAnhaengeSize.Height + addHeightdgv)
+
+                Case "btnGestellungsgarantien"
+                    Me.Size = New Size(frmDefaultSize.Width, frmDefaultSize.Height - addHeightfrm)
+                    pnlDetails.Size = New Size(pnlDetails.Width, pnlDetails.Height - addHeightfrm)
+                    dgvAnhaenge.Size = New Size(dgvAnhaengeSize.Width, dgvAnhaengeSize.Height + addHeightdgv)
+            End Select
+
+
        Else
            dgvAnhaenge.Visible = False
            lblMultiAttachements.Visible = False
-            dgvAnhaenge.Size = New Size(514, 36)
-            Me.Size = New Size(537, 670)
+            Select Case button.Name
+
+                Case "btnVollmachten"
+
+                    Me.Size = frmDefaultSize
+                    dgvAnhaenge.Size = dgvAnhaengeSize
+                Case "btnVertraege"
+                    pnlDetails.Size = New Size(pnlDetails.Width, pnlDetails.Height - addHeightfrm - addHeightdgv)
+                    Me.Size = New Size(frmDefaultSize.Width, frmDefaultSize.Height - addHeightfrm)
+                    dgvAnhaenge.Size = dgvAnhaengeSize
+
+                Case "btnGestellungsgarantien"
+                    pnlDetails.Size = New Size(pnlDetails.Width, pnlDetails.Height - addHeightfrm - addHeightdgv)
+                    Me.Size = New Size(frmDefaultSize.Width, frmDefaultSize.Height - addHeightfrm)
+                    dgvAnhaenge.Size = dgvAnhaengeSize
+            End Select
+
+
        End If

-        dgvAnhaenge.ClearSelection()
+            dgvAnhaenge.ClearSelection()
    End Sub

    Private Function checkMandatoryFields() As Boolean
@@ -188,15 +377,24 @@ Public Class frmAvisoFormularAnfuegen
            Return valid
        End If

-        If cbVMTypen._value = "" Then
-            lblWarning.Text = "Vollmachttyp auswählen"
-            Return valid
-        End If

-        If UsrCntlKundenZollVollmachten1.txtGueltigVon.Text = "" Then
-            lblWarning.Text = "Gültig von-Datum hinterlegen!"
-            Return valid
-        End If
+        Select Case button.Name
+
+            Case "btnVollmachten"
+
+                If cbVMTypen._value = "" Then
+                    lblWarning.Text = "Vollmachttyp auswählen"
+                    Return valid
+                End If
+
+                If UsrCntlKundenZollVollmachten1.txtGueltigVon.Text = "" Then
+                    lblWarning.Text = "Gültig von-Datum hinterlegen!"
+                    Return valid
+                End If
+
+
+            Case Else
+        End Select


        lblWarning.Text = ""
@@ -208,5 +406,20 @@ Public Class frmAvisoFormularAnfuegen
    Private Sub frmAvisoFormularAnfuegen_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        KdSearchBox.Focus()
        Label1.Visible = cAllgemein.TESTSYSTEM
+        If button.Name = "btnVollmachten" Then
+            lblVMId.Visible = True
+            cbVMTypen.Visible = True
+        Else
+            lblVMId.Visible = False
+            cbVMTypen.Visible = False
+        End If
+
    End Sub
+
+    Private Sub pnlDetails_ControlAdded(sender As Object, e As ControlEventArgs)
+        For Each control As Control In Controls
+            pnlDetails.Size = control.Size
+        Next
+    End Sub
+
 End Class