SDL/SDL/kunden/usrcntlVertraege.vb

Imports com.esendex.sdk.surveys.models
Imports sun.swing
Imports VERAG_PROG_ALLGEMEIN

Public Class usrcntlVertraege

    Dim PDF_Attach_TMP = ""

    Dim kdnr
    Public Vid = -1
    Public Shared Event clickOK(ByVal sender As System.Object, ByVal e As System.EventArgs)

    Private Sub dgvVertraege_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVertraege.CellContentDoubleClick
        If dgvVertraege.SelectedRows.Count = 1 Then
            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.SelectedRows(0).Cells("kv_datenarchivId").Value)
            DS.OPEN_SINGLE()
        End If
    End Sub

    Private Sub dgvVertraege_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvVertraege.CellMouseClick
        If e.RowIndex < 0 Then Exit Sub
        DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
        If e.Button = Windows.Forms.MouseButtons.Right Then
            If dgvVertraege.SelectedRows.Count > 0 Then
                'ContextMenuStrip4.Show(Cursor.Position)
            End If
        End If
    End Sub

    Private Sub usrcntlVertraege_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        cboVertrag.fillWithSQL("SELECT kva_id,kva_Bezeichnung  FROM [tblKundenVertraegeArten] ORDER BY kva_Bezeichnung", False, "FMZOLL", True)
        initDGVVertraege(kdnr)
    End Sub

    Sub clearKV()
        cboVertrag.changeItem("")
        datVertrag.Text = ""
        txtVertragVermerk.Text = ""
        Button11.Text = "Hinzufügen"
        Button12.Visible = False
        If kdnr > 0 Then
            Button11.Enabled = True
        Else
            Button11.Enabled = False
        End If

    End Sub



    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        Try

            If cboVertrag._value <> "" And datVertrag._value <> "" Then
                Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege
                If Button12.Visible Then
                    If dgvVertraege.SelectedRows.Count = 1 Then
                        KV = New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
                    Else
                        Exit Sub
                    End If
                End If
                KV.kv_KundenNr = kdnr
                KV.kv_erhalten_Datum = datVertrag._value

                KV.kv_vertragArtId = cboVertrag._value
                KV.kv_Info = txtVertragVermerk.Text


                If KV.SAVEOBJECT Then
                    If PDF_Attach_TMP <> "" Then
                        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdnr)
                        If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then
                            KV.kv_datenarchivId = DS.da_id
                            KV.SAVE()
                        End If

                    End If
                    Vid = KV.kv_Id
                    initDGVVertraege(KV.kv_KundenNr)
                    markDGVVertraege(KV.kv_Id)
                    initDGVVertraege(KV.kv_KundenNr)
                    'RaiseEvent clickOK(sender, e)
                    'setKD(kdNr)
                End If
                clearKV()
                End If
                clearKV()
            PDF_Attach_TMP = ""
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        If cboVertrag._value <> "" And datVertrag._value <> "" Then
            Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege
            If Button12.Visible Then
                If dgvVertraege.SelectedRows.Count = 1 Then
                    KV = New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
                Else
                    Exit Sub
                End If
            End If
            KV.kv_KundenNr = kdnr
            KV.kv_erhalten_Datum = datVertrag._value

            KV.kv_vertragArtId = cboVertrag._value
            KV.kv_Info = txtVertragVermerk.Text

            If KV.SAVE Then
                Me.usrcntlVertraege_Load(sender, e)
                'setKD(kdnr)
            End If
            clearKV()
            PDF_Attach_TMP = ""
        End If
    End Sub



    Sub initDGVVertraege(Optional _kdnr = -1)

        kdnr = _kdnr

        PictureBox1.Visible = PDF_Attach_TMP <> ""

        With dgvVertraege
            .Columns.Clear()

            If kdnr = -1 Or kdnr Is Nothing Then Exit Sub

            .DataSource = VERAG_PROG_ALLGEMEIN.cKundenVertraege.LOAD_LIST(kdnr)
            If .Columns.Count = 0 Then Exit Sub

            .Columns("kv_Id").Visible = False
            .Columns("kv_KundenNr").Visible = False
            .Columns("kv_vertragArtId").Visible = False
            .Columns("kv_datenarchivId").Visible = False
            .Columns("kv_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns("kv_erhalten_Datum").Width = 70
            .Columns("kv_erhalten_Datum").HeaderText = "Datum"
            .Columns("kva_Bezeichnung").Width = 120
            .Columns("kva_Bezeichnung").HeaderText = "Art"
            .Columns("kv_Info").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns("kv_Info").HeaderText = "Info"

            .Columns("kv_gueltig").Width = 35
            .Columns("kv_gueltig").HeaderText = "gültig"
            If True Then
                Dim c As New DataGridViewImageColumn
                c.Name = "clmnPDF" : c.HeaderText = "PDF"
                c.Image = My.Resources.pdf_gray : c.ImageLayout = DataGridViewImageCellLayout.Zoom
                c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
                c.DefaultCellStyle.Tag = "PDF anzeigen"
                .Columns.Add(c)
                For Each r As DataGridViewRow In .Rows
                    If r.Cells("kv_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kv_datenarchivId").Value) > 0 Then
                        DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
                    End If
                Next
            End If
        End With
        clearKV()
    End Sub

    Private Sub insertAttachement(kv As cKundenVertraege)

        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & kv.kv_Id, kdnr)
            If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then
                kv.kv_datenarchivId = DS.da_id
            End If
            MsgBox("keine Berechtigung!")
        End If


    End Sub

    Private Sub markDGVVertraege(Optional vid As Integer = 0)

        dgvVertraege.ClearSelection()

        If vid > 0 Then
            For Each row As DataGridViewRow In dgvVertraege.Rows
                If row.Cells("kv_Id").Value = vid Then
                    row.Selected = True
                End If
            Next
        End If

    End Sub



    Private Sub Panel1_DragDrop(sender As Object, e As DragEventArgs) Handles Panel1.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then

            Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
            For Each path In files
                ' addData_SendungAnhang(path)
                PDF_Attach_TMP = path
            Next

        ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
            Dim FilePath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.EmAilAttach(e)
            If FilePath <> "" Then
                ' addData_SendungAnhang(FilePath)
                PDF_Attach_TMP = FilePath
            End If
        End If

    End Sub



End Class