VERAGAddin/VERAGAddIn/frmAvisoFormularAnfügen.vb

Imports System.Data
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Button
Imports SDL
Imports VERAG_PROG_ALLGEMEIN


Public Class frmAvisoFormularAnfuegen

    Public KdNr As Integer = -1
    Dim vollmachtartId As Integer = -1
    Dim vollmachtId As Integer = -1
    Dim SQL As New SQL
    Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
    Public SendungsId = -1
    Public Bezeichnung = ""
    Public PDF_MAIL = ""


    Sub New(Bezeichnung)

        InitializeComponent()
        Me.Bezeichnung = Bezeichnung

    End Sub


    Private Sub frmAvisoFormularAnfuegen_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        KdSearchBox.initKdBox(Me)

    End Sub


    Private Sub KdSearchBox_TextChanged(sender As Object, e As EventArgs) Handles KdSearchBox.TextChanged

        If KdSearchBox.KdNr_value > 0 AndAlso KdSearchBox.KdNr IsNot Nothing Then
            KdNr = KdSearchBox.KdNr_value
            Dim AD = KdSearchBox.KdData_ADRESSEN
            Dim KD = KdSearchBox.KdData_KUNDE

        End If

    End Sub


    Private Sub btnSaveAttachments_Click(sender As Object, e As EventArgs) Handles btnSaveAttachments.Click
        MsgBox("Save Attachement " & KdNr)


        If dgvKundenvollmachten.SelectedRows.Count <> 1 Then Exit Sub
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vollmachtartId, "", "", Bezeichnung, KdNr)

        'Dim path = DS.uploadDataToDATENSERVERFileDialog() 'Überarbeitung, damit das ausgewählte EMail angefügt wird.
        'Dim path = DS.uploadDataToDATENSERVER("")
        If txtBezeichnung.Text.Trim = "" Then
            Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
        End If

        If sender Is btnSaveAttachments Then PDF_MAIL = "PDF"
        If sender Is btnSaveMail Then PDF_MAIL = "PDFMAIL"
        Bezeichnung = txtBezeichnung.Text
        Me.DialogResult = Windows.Forms.DialogResult.OK

    End Sub

    Private Sub btnSaveMail_Click(sender As Object, e As EventArgs) Handles btnSaveMail.Click
        MsgBox("Save EMail " & KdNr)
    End Sub

    Sub init()
        If KdNr > 0 Then

            initVollmachtarten(KdNr)

        End If
    End Sub

    Sub initVollmachtarten(kdNr As Integer)

        cbVMTypen.fillWithSQL("SELECT DISTINCT(art.kdvma_Id), art.kdvma_Bezeichnung FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & kdNr & "' ) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible=1 AND abf.kdvm_erhalten = 1 AND ISNULL(abf.[kdvm_geloescht],0) != 1 AND art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "FMZOLL", False)

    End Sub


    Sub initDGVKundenvollmachten(vollmachtartId)


        With dgvKundenvollmachten
            .Columns.Clear()
            Dim where = " And art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "

            If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
                where = " AND art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr) & "' "
            End If

            .DataSource = SQL.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id,  art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info, abf.[kdvm_archiviert], abf.[kdvm_gueltig_bis], abf.[kdvm_vermerk], abf.[kdvm_geloescht]" &
                                                    " FROM [tblKundenVollmachtenArt] as art " &
                                                    " INNER  JOIN (select * from [tblKundenVollmachten]) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId]" &
                                                    " WHERE art.kdvma_visible=1 AND abf.kdvm_erhalten = 1 AND ISNULL(abf.[kdvm_geloescht],0) != 1 AND [kdvm_KundenNr]='" & KdNr & "' AND [kdvm_kdvmaId]='" & vollmachtartId & "'" & where &
                                                    " ORDER BY kdvm_archiviert asc, abf.kdvm_gueltig_bis asc, abf.kdvm_erhalten_Datum desc ", "FMZOLL")


            '  .RowTemplate.Height = 30
            .Columns("kdvm_Id").Visible = False
            .Columns("kdvma_Id").Visible = False
            .Columns("kdvm_KundenNr").Visible = False
            .Columns("kdvm_datenarchivId").Visible = False
            .Columns("kdvma_Bezeichnung").Visible = False
            .Columns("kdvma_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns("kdvma_Bezeichnung").HeaderText = "Bezeichnung"
            .Columns("kdvm_erhalten").Width = 50
            .Columns("kdvm_erhalten").HeaderText = "Erhalten"
            .Columns("kdvm_erhalten").Visible = False
            .Columns("kdvm_erhalten").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
            .Columns("kdvm_erhalten_Datum").Width = 100
            .Columns("kdvm_erhalten_Datum").HeaderText = "Gültig von"
            .Columns("kdvm_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
            .Columns("kdvm_Info").Width = 200
            .Columns("kdvm_Info").HeaderText = "Info"
            .Columns("kdvm_Info").Visible = False
            .Columns("kdvm_gueltig_bis").Visible = True
            .Columns("kdvm_gueltig_bis").Width = 100
            .Columns("kdvm_gueltig_bis").HeaderText = "Gültig bis"
            .Columns("kdvm_gueltig_bis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
            .Columns("kdvm_archiviert").Visible = True
            .Columns("kdvm_archiviert").Width = 60
            .Columns("kdvm_archiviert").HeaderText = "Archiviert"
            .Columns("kdvm_archiviert").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
            .Columns("kdvm_vermerk").MinimumWidth = 100
            .Columns("kdvm_vermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns("kdvm_vermerk").HeaderText = "Vermerk"
            .Columns("kdvm_vermerk").Visible = True
            .Columns("kdvm_geloescht").Visible = False


        End With

    End Sub

    Private Sub KdSearchBox_PropertyChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) Handles KdSearchBox.PropertyChanged
        If KdSearchBox.KdNr_value > 0 AndAlso KdSearchBox.KdData_KUNDE IsNot Nothing AndAlso KdSearchBox.KdData_ADRESSEN IsNot Nothing Then
            KdNr = KdSearchBox.KdNr
            Dim AD = KdSearchBox.KdData_ADRESSEN
            Dim KD = KdSearchBox.KdData_KUNDE
            init()

        End If
    End Sub

    Private Sub cbVMTypen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbVMTypen.SelectedIndexChanged

        vollmachtartId = cbVMTypen._value

        initDGVKundenvollmachten(vollmachtartId)

    End Sub

    Private Sub dgvKundenvollmachten_RowValidated(sender As Object, e As DataGridViewCellEventArgs) Handles dgvKundenvollmachten.RowValidated

    End Sub

    Private Sub dgvKundenvollmachten_SelectionChanged(sender As Object, e As EventArgs) Handles dgvKundenvollmachten.SelectionChanged
        If KdNr > 0 And vollmachtartId > 0 AndAlso dgvKundenvollmachten.SelectedRows.Count > 0 Then
            btnSaveAttachments.Enabled = True
            btnSaveMail.Enabled = True
            btnOK.Enabled = True
        End If
    End Sub

    Private Sub dgvKundenvollmachten_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvKundenvollmachten.CellContentClick
        dgvKundenvollmachten_SelectionChanged(sender, e)
    End Sub
End Class