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


    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)

        If PDF_MAIL Then
            pbAnhaenge.Visible = True
        Else
            pbAnhaenge.Visible = False
        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 PDF_MAIL Then
            'Sicherheitsabfrage: Mail besitzt keinen Anhang, soll VM gespeichert werden?
        End If


        UsrCntlKundenZollVollmachten1.btnNeu_Click(sender, e)

        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & UsrCntlKundenZollVollmachten1.vollmachtartId, "", "", Bezeichnung, KdNr)
        Dim path = DS.uploadDataToDATENSERVER("")

        Close()
    End Sub

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