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
    Public vollmachtId As Integer = -1
    Dim vollmachtartId As Integer = -1
    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
    Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
    Public SendungsId = -1
    Public Bezeichnung = ""
    Public PDF_MAIL = ""
    Public ATT As List(Of String)
    Public hasAnhaenge As Boolean = False


    Sub New()

        InitializeComponent()

    End Sub

    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)
        initAttachment()
        If hasAnhaenge Then
            pbAnhaenge.Visible = True
        End If


    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

    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 art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "FMZOLL", False)
    End Sub


    Sub initUsrCntrlKundenvollmachten(vollmachtartId)

        UsrCntlKundenZollVollmachten1.init(KdNr, vollmachtartId)


    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
        initUsrCntrlKundenvollmachten(vollmachtartId)

    End Sub


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

        If Not hasAnhaenge Then

            If Not vbYes = MsgBox("Die Email besitzt keinen Anhang! Soll die Email denoch gespeichert werden?", vbYesNoCancel) Then Exit Sub

        End If
        UsrCntlKundenZollVollmachten1.btnNeu_Click(sender, e)
        vollmachtId = UsrCntlKundenZollVollmachten1.vmId

        Close()



    End Sub

    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        Close()
    End Sub

    Sub initAttachment()
        dgvAnhaenge.Rows.Clear()
        If ATT.Count = 0 Then
            hasAnhaenge = False
            PDF_MAIL = "ONLYMAIL_DATENSERVER"
        Else
            hasAnhaenge = True
            PDF_MAIL = "PDF_DATENSERVER"
            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
        dgvAnhaenge.ClearSelection()
    End Sub


End Class