Imports System.Data.Sql
Imports System.Data.SqlTypes
Imports System.Data.SqlClient

Public Class FrmBarcodeDefinition

    Dim m_officevorlagenr As Integer
    Property Office_Voralgenr As Integer
        Get
            Return m_officevorlagenr
        End Get
        Set(value As Integer)
            m_officevorlagenr = value
        End Set
    End Property

    Dim BarcodeType As Integer = 0
    Dim DatamatrixContent As String
    Dim DatamatrixDelimiter As String
    Dim datamatrixformat As Integer = 0
    Dim datamatrixbeschriftung As String
    Dim vorlagenfeldregeln As New DataTable
    Dim DatamatrixFontname As String
    Dim Datamatrixfontsize As String
    Dim BarcodeKantenlaenge As String

    Sub New()

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

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Sub New(ByVal officevorlagenr As Integer)
        Me.InitializeComponent()
        Me.Office_Voralgenr = officevorlagenr
    End Sub

    Private Sub FrmBarcodeDefinition_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Get_BarcodeData()
        If Me.BarcodeType = 0 Then
            Me.ComboBox1.SelectedIndex = 0
            Me.TextBox1.Text = ""
            Me.TextBox1.Enabled = False
            Me.TextBox2.Text = "&Dokumentid"
            Me.TextBox2.Enabled = False
            Me.TextBox3.Text = ""
            Me.TextBox4.Text = ""
            Me.TextBox3.Enabled = False
            Me.ComboBox2.Enabled = False
            Me.ComboBox3.Enabled = False
            Me.txtFontname.Enabled = False
        Else
            Me.ComboBox1.SelectedIndex = 1
            Me.TextBox1.Text = Me.DatamatrixDelimiter
            Me.TextBox1.Enabled = True
            Me.TextBox2.Text = DatamatrixContent
            Me.TextBox2.Enabled = True
            Me.TextBox3.Enabled = True
            Me.TextBox3.Text = Me.datamatrixbeschriftung
            Me.ComboBox2.SelectedIndex = Me.datamatrixformat
            Me.ComboBox2.Enabled = True
            Me.ComboBox3.Enabled = True
            Me.txtFontname.Enabled = True
            Me.txtFontname.Text = Me.DatamatrixFontname
            Me.ComboBox3.Text = Me.Datamatrixfontsize
            Me.TextBox4.Text = Me.BarcodeKantenlaenge
        End If
        vorlagenfeldregeln = get_vorlagenfeldregeln()
        ListView1.Columns.Clear()
        ListView1.Columns.Add("Bezeichnung", 100)
        ListView1.Columns.Add("Datenherkunft", 100)
        ListView1.Columns.Add("Userinterface", 50)
        Dim tmpstr(2) As String

        For Each r As DataRow In vorlagenfeldregeln.Rows
            tmpstr(0) = r.Item("Bezeichnung")
            tmpstr(1) = r.Item("Datenherkunft")
            tmpstr(2) = r.Item("UserInterface")
            Dim TempNode = New ListViewItem(tmpstr)
            ListView1.Items.Add(TempNode)
        Next

    End Sub

    Sub Get_BarcodeData()
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.CommandText = "dbo.sp_get_barcodedefinition"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            scmCmdToExecute.Parameters.Add(New SqlParameter("@officevorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Office_Voralgenr))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@Barcodetype", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@DatamatrixContent", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@DatamatrixDelimiter", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@Datamatrixformat", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@datamatrixbeschriftung", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@datamatrixfontname", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@datamatrixfontsize", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@datamatrixkantenlaenge", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))

            conn.OpenConnection()
            scmCmdToExecute.ExecuteNonQuery()
            Me.BarcodeType = scmCmdToExecute.Parameters("@barcodetype").Value.ToString
            Me.DatamatrixContent = scmCmdToExecute.Parameters("@datamatrixcontent").Value.ToString
            Me.DatamatrixDelimiter = scmCmdToExecute.Parameters("@datamatrixdelimiter").Value.ToString
            Me.datamatrixformat = scmCmdToExecute.Parameters("@datamatrixformat").Value.ToString
            Me.datamatrixbeschriftung = scmCmdToExecute.Parameters("@datamatrixbeschriftung").Value.ToString
            Me.DatamatrixFontname = scmCmdToExecute.Parameters("@datamatrixfontname").Value.ToString
            Me.Datamatrixfontsize = scmCmdToExecute.Parameters("@datamatrixfontsize").Value.ToString
            Me.BarcodeKantenlaenge = scmCmdToExecute.Parameters("@datamatrixkantenlaenge").Value.ToString
        Catch ex As Exception
            ' // some error occured. Bubble it to caller and encapsulate Exception object
            Throw New Exception(".sp_get_barcodedefinitioN::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
        Finally
            conn.CloseConnection(True)
            scmCmdToExecute.Dispose()

        End Try
    End Sub

    Function get_vorlagenfeldregeln() As DataTable
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim da As New SqlDataAdapter(scmCmdToExecute)
        Dim dt As New DataTable
        scmCmdToExecute.CommandText = "dbo.sp_get_vorlagenfledregel"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            conn.OpenConnection()
            da.Fill(dt)
            Return dt
        Catch ex As Exception
            ' // some error occured. Bubble it to caller and encapsulate Exception object
            Throw New Exception(".sp_get_barcodedefinitioN::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
        Finally
            conn.CloseConnection(True)
            scmCmdToExecute.Dispose()
            da.Dispose()
        End Try
    End Function

    Private Sub ToolBar1_ButtonClick(sender As Object, e As ToolBarButtonClickEventArgs)
        Me.Close()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If Me.ComboBox1.SelectedIndex = 0 Then
            Me.TextBox1.Text = ""
            Me.TextBox1.Enabled = False
            Me.TextBox2.Text = "Dokumentid"
            Me.TextBox2.Enabled = False
            Me.PictureBox1.Visible = True
            Me.PictureBox2.Visible = False
            Me.TextBox2.Enabled = False
            Me.TextBox3.Text = ""
            Me.TextBox3.Enabled = False
            Me.ComboBox2.Enabled = False
            Me.txtFontname.Enabled = False
            Me.ComboBox3.Enabled = False
        Else
            If Me.TextBox1.Text = "" Then Me.TextBox1.Text = ";"
            Me.TextBox1.Text = Me.DatamatrixDelimiter
            Me.TextBox1.Enabled = True
            Me.TextBox2.Text = DatamatrixContent
            Me.TextBox2.Enabled = True
            Me.PictureBox1.Visible = False
            Me.PictureBox2.Visible = True
            Me.TextBox3.Enabled = True
            Me.ComboBox2.SelectedIndex = Me.datamatrixformat
            Me.ComboBox2.Enabled = True
            Me.txtFontname.Enabled = True
            Me.ComboBox3.Enabled = True
        End If
    End Sub

    Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick
        If Me.TextBox2.Text <> "" Then Me.TextBox2.Text = Me.TextBox2.Text + Me.TextBox1.Text
        Me.TextBox2.Text = Me.TextBox2.Text + "&" + Me.ListBox1.SelectedItem
    End Sub

   
    Private Sub ListView1_DoubleClick(sender As Object, e As EventArgs) Handles ListView1.DoubleClick
        Dim tmpstr(2) As String
        tmpstr(0) = ListView1.SelectedItems(0).SubItems(0).Text
        tmpstr(1) = ListView1.SelectedItems(0).SubItems(1).Text()
        tmpstr(2) = ListView1.SelectedItems(0).SubItems(2).Text()
        If tmpstr(2) = "True" Then
            If Me.TextBox2.Text <> "" Then Me.TextBox2.Text = Me.TextBox2.Text + Me.TextBox1.Text
            Me.TextBox2.Text = Me.TextBox2.Text + tmpstr(1) & "_UI"

        Else
            If Me.TextBox2.Text <> "" Then Me.TextBox2.Text = Me.TextBox2.Text + Me.TextBox1.Text
            Me.TextBox2.Text = Me.TextBox2.Text + tmpstr(1)
        End If


    End Sub

    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub

    Private Sub TSBtnSave_Click(sender As Object, e As EventArgs) Handles TSBtnSave.Click
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.CommandText = "dbo.sp_save_barcodedefinition"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            scmCmdToExecute.Parameters.Add(New SqlParameter("@officevorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Office_Voralgenr))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@Barcodetype", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.ComboBox1.SelectedIndex))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@DatamatrixContent", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.TextBox2.Text))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@DatamatrixDelimiter", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.TextBox1.Text))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@Datamatrixformat", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.ComboBox2.SelectedIndex))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@Datamatrixbeschriftung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.TextBox3.Text))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@DatamatrixFontName", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtFontname.Text))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@DatamatrixFontSize", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.ComboBox3.Text))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@datamatrixkantenlaenge", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.TextBox4.Text))
            conn.OpenConnection()
            scmCmdToExecute.ExecuteNonQuery()
        Catch ex As Exception
            Throw New Exception("sp_save_barcodedefinitioN::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
        Finally
            conn.CloseConnection(True)
            scmCmdToExecute.Dispose()
        End Try
    End Sub
End Class