Imports System.Data
Imports System.IO
Imports System.Data.SqlTypes
Imports System.Data.SqlClient

Public Class frmDokumentKopieren
    Inherits System.Windows.Forms.Form

#Region " Vom Windows Form Designer generierter Code "

    Public Sub New()
        MyBase.New()

        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()

        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen

    End Sub

    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    ' Für Windows Form-Designer erforderlich
    Private components As System.ComponentModel.IContainer

    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
    'Sie kann mit dem Windows Form-Designer modifiziert werden.
    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
    Friend WithEvents btnPartnerInhaberInfo As System.Windows.Forms.Button
    Friend WithEvents btnPartnerInhaber As System.Windows.Forms.Button
    Friend WithEvents txtPartnerInhaber As System.Windows.Forms.TextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents btnKopieren As System.Windows.Forms.Button
    Friend WithEvents btnAbbrechen As System.Windows.Forms.Button
    Friend WithEvents cbxErsetzten As System.Windows.Forms.CheckBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDokumentKopieren))
        Me.btnPartnerInhaberInfo = New System.Windows.Forms.Button()
        Me.btnPartnerInhaber = New System.Windows.Forms.Button()
        Me.txtPartnerInhaber = New System.Windows.Forms.TextBox()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.btnKopieren = New System.Windows.Forms.Button()
        Me.btnAbbrechen = New System.Windows.Forms.Button()
        Me.cbxErsetzten = New System.Windows.Forms.CheckBox()
        Me.SuspendLayout()
        '
        'btnPartnerInhaberInfo
        '
        Me.btnPartnerInhaberInfo.Image = CType(resources.GetObject("btnPartnerInhaberInfo.Image"), System.Drawing.Bitmap)
        Me.btnPartnerInhaberInfo.Location = New System.Drawing.Point(392, 32)
        Me.btnPartnerInhaberInfo.Name = "btnPartnerInhaberInfo"
        Me.btnPartnerInhaberInfo.Size = New System.Drawing.Size(24, 24)
        Me.btnPartnerInhaberInfo.TabIndex = 36
        '
        'btnPartnerInhaber
        '
        Me.btnPartnerInhaber.Image = CType(resources.GetObject("btnPartnerInhaber.Image"), System.Drawing.Bitmap)
        Me.btnPartnerInhaber.Location = New System.Drawing.Point(368, 32)
        Me.btnPartnerInhaber.Name = "btnPartnerInhaber"
        Me.btnPartnerInhaber.Size = New System.Drawing.Size(24, 24)
        Me.btnPartnerInhaber.TabIndex = 35
        '
        'txtPartnerInhaber
        '
        Me.txtPartnerInhaber.Location = New System.Drawing.Point(128, 32)
        Me.txtPartnerInhaber.Name = "txtPartnerInhaber"
        Me.txtPartnerInhaber.ReadOnly = True
        Me.txtPartnerInhaber.Size = New System.Drawing.Size(240, 20)
        Me.txtPartnerInhaber.TabIndex = 34
        Me.txtPartnerInhaber.Text = ""
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(24, 32)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(100, 16)
        Me.Label1.TabIndex = 37
        Me.Label1.Text = "Partner-Inhaber"
        '
        'btnKopieren
        '
        Me.btnKopieren.Location = New System.Drawing.Point(256, 112)
        Me.btnKopieren.Name = "btnKopieren"
        Me.btnKopieren.Size = New System.Drawing.Size(112, 24)
        Me.btnKopieren.TabIndex = 38
        Me.btnKopieren.Text = "Dokument kopieren"
        '
        'btnAbbrechen
        '
        Me.btnAbbrechen.Location = New System.Drawing.Point(128, 112)
        Me.btnAbbrechen.Name = "btnAbbrechen"
        Me.btnAbbrechen.Size = New System.Drawing.Size(112, 24)
        Me.btnAbbrechen.TabIndex = 39
        Me.btnAbbrechen.Text = "Abbrechen"
        '
        'cbxErsetzten
        '
        Me.cbxErsetzten.Location = New System.Drawing.Point(128, 64)
        Me.cbxErsetzten.Name = "cbxErsetzten"
        Me.cbxErsetzten.Size = New System.Drawing.Size(264, 24)
        Me.cbxErsetzten.TabIndex = 41
        Me.cbxErsetzten.Text = "Original Dokument ersetzen"
        '
        'frmDokumentKopieren
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(504, 158)
        Me.ControlBox = False
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.cbxErsetzten, Me.btnAbbrechen, Me.btnKopieren, Me.btnPartnerInhaberInfo, Me.btnPartnerInhaber, Me.txtPartnerInhaber, Me.Label1})
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frmDokumentKopieren"
        Me.ShowInTaskbar = False
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Dokument kopieren"
        Me.ResumeLayout(False)

    End Sub

#End Region

#Region " Deklarationen "

    Dim m_iPartner As Integer = 0
    Dim m_iAktiverPartner As Integer = 0 'Partner von dem Dokument das kopiert werden soll.
    Dim m_iFunktionType As EnumFunktionType = EnumFunktionType.PartnerSuche
    Dim m_iDokumentTyp As Integer
    Dim m_sDokumentID As String
    Dim m_iProfilNr As Integer
    Dim m_DokumentBez As String
    Dim m_DokumentDatum As String
    Dim m_dtProfil As DataTable

    'Dim propDokumentTyp As Integer

    Public Enum EnumFunktionType
        PartnerSuche = 0
        PartnerAktuell = 1
    End Enum

    Property propDokumentTyp() As Integer
        Get
            Return m_iDokumentTyp
        End Get
        Set(ByVal Value As Integer)
            m_iDokumentTyp = Value
        End Set
    End Property

    Property propProfilNr() As Integer
        Get
            Return m_iProfilNr
        End Get
        Set(ByVal Value As Integer)
            m_iProfilNr = Value
        End Set
    End Property

    Property propProfilDataTable() As DataTable
        Get
            Return m_dtProfil
        End Get
        Set(ByVal Value As DataTable)
            m_dtProfil = Value
        End Set
    End Property

    Property propDokumentID() As String
        Get
            Return m_sDokumentID
        End Get
        Set(ByVal Value As String)
            m_sDokumentID = Value
        End Set
    End Property

    Property propDokumentBez() As String
        Get
            Return m_DokumentBez
        End Get
        Set(ByVal Value As String)
            m_DokumentBez = Value
        End Set
    End Property

    Property propDokumentDatum() As String
        Get
            Return m_DokumentDatum
        End Get
        Set(ByVal Value As String)
            m_DokumentDatum = Value
        End Set
    End Property

#End Region

#Region " Formular Funktionen "
    Public Sub New(ByVal iAktuellerPartner As Integer)
        MyBase.New()
        InitializeComponent()

        m_iPartner = iAktuellerPartner
        m_iAktiverPartner = iAktuellerPartner
        m_iFunktionType = EnumFunktionType.PartnerAktuell

    End Sub

    Private Sub frmDokumentKopieren_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SetFunktionType()

    End Sub

#End Region

#Region " Kontrol Funktionen "

    Private Sub btnPartnerInhaber_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPartnerInhaber.Click
        'Oeffnet den Partnersuch Dialog
        Dim f As New FrmPartnersuche()
        f.NurAbfrage = True
        Me.TopMost = False
        f.ShowDialog()
        Me.TopMost = True
        If f.PartnerNr <> 0 Then
            Me.Cursor = Cursors.WaitCursor
            m_iPartner = f.PartnerNr
            Me.Cursor = Cursors.Default
        End If
        Me.txtPartnerInhaber.Text = CStr(m_iPartner) & " " & genPartnerData(m_iPartner)
        If m_iAktiverPartner = m_iPartner Then
            cbxErsetzten.Enabled = True
        Else
            cbxErsetzten.Checked = False
            cbxErsetzten.Enabled = False
        End If
    End Sub

    Private Sub btnPartnerInhaberInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPartnerInhaberInfo.Click
        Try
            If m_iPartner > 0 Then
                If m_iPartner > 91000000 Then
                    Dim f As New frmInteressent()
                    f.Partnernr = m_iPartner
                    f.Display = True
                    f.ShowDialog()
                    f.Dispose()
                Else
                    Dim f As New frmPartnerDetails()
                    f.Partnernr = m_iPartner
                    f.ShowDialog()
                    f.Dispose()
                End If
            End If
        Catch
        Finally
        End Try
    End Sub

#End Region

#Region " Diverse Funktionen "

    Private Sub SetFunktionType()
        'Setzt je nach Funktion die Objekte Visible oder Unvisible
        Select Case m_iFunktionType
            Case EnumFunktionType.PartnerSuche
                cbxErsetzten.Enabled = False

            Case EnumFunktionType.PartnerAktuell
                Me.txtPartnerInhaber.Text = CStr(m_iPartner) & " " & genPartnerData(m_iPartner)
                cbxErsetzten.Enabled = True
        End Select
    End Sub

    Private Function genPartnerData(ByVal iPartnerNr As Integer) As String
        Dim objPartner As New edokadb.clsPartner()
        Try
            objPartner.cpMainConnectionProvider = Globals.conn
            objPartner.iNRPAR00 = New SqlInt32(CType(iPartnerNr, Int32))
            objPartner.SelectOne()
            Return objPartner.sBKPAR00.Value
        Finally
            objPartner.Dispose()
        End Try
    End Function

#End Region

    Private Sub btnKopieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKopieren.Click
        Dim fI As New frmDokumentbearbeitung()
        Dim bErsetzenError As Boolean = False
        fI.Profilnr = m_iProfilNr
        fI.Profile = m_dtProfil

        If m_iPartner > 91000000 And DivFnkt.EDOKA_Partner_Dokument(3, m_iDokumentTyp) = False Then
            MyMsg.show_standardmessage(110, MsgBoxStyle.Critical)
            fI.Dispose()
            Me.Cursor = System.Windows.Forms.Cursors.Default
            Exit Sub
        End If
        fI.Partnernr = m_iPartner

        fI.Dokumenttypnr = m_iDokumentTyp
        fI.CreateDocument = True
        fI.PropKopyDokID = m_sDokumentID
        fI.BarcodeID = ""
        'Prüfen ob das Dokument erstzt werden kann.
        If cbxErsetzten.Checked = True Then
            If fI.Check_KopyDokumentZuErsetzten(m_iDokumentTyp, m_sDokumentID, m_DokumentBez, m_DokumentDatum) = False Then
                bErsetzenError = True
            End If
        End If
        If bErsetzenError = False Then
            Me.Cursor = Cursors.WaitCursor
            Me.Hide()
            Windows.Forms.Application.DoEvents()
            Me.Cursor = Cursors.WaitCursor
            fI.ShowDialog()
            fI.Hide()
            Windows.Forms.Application.DoEvents()
        Else
            fI.Dispose()
        End If
    End Sub

    Private Sub btnAbbrechen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbrechen.Click
        Me.Close()
    End Sub

End Class