Imports System.Data.SqlClient
Imports System.Data.SqlDbType
Imports System.Data.SqlTypes
Public Class frmDokumentversion

    Dim yy As String
    Dim mm As String
    Dim version As String
    Dim ovnr As Integer
    Dim Versionsstring As String = ""
    Dim month As String
    Dim year As String

    Sub New(ByVal officevorlagenr As Integer)

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

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        Me.ovnr = officevorlagenr
    End Sub

    Private Sub frmDokumentversion_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FillJahr()
        Fillversion()
        Get_Set_Version(1, Me.ovnr)
    End Sub


    Sub FillJahr()
        Me.cbboxJahr.Items.Clear()
        Dim y As Integer = Now.Year
        y = y - 2
        For i As Integer = 0 To 10
            Me.cbboxJahr.Items.Add(y + i.ToString)
        Next
    End Sub

    Sub Fillversion()
        FillJahr()
        'If Versionsstring <> "" Then
        '    yy = Microsoft.VisualBasic.Right(Versionsstring, 4)

        '    Dim i As Integer
        '    i = Versionsstring.IndexOf("/")
        '    mm = Versionsstring.Substring(i - 3, 2)
        '    version = Versionsstring.Substring(0, i - 4)
        '    Me.txtVersion.Text = Versionsstring
        '    Me.cbboxMonat.Text = mm
        '    Me.cbboxJahr.Text = yy
        'End If

    End Sub

    Public Function Get_Set_Version(ByVal fnkt As Integer, versionstring As String)
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.CommandText = "dbo.sp_get_set_officevorlage_version"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@manr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@ovnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.ovnr))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@versionstring", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, versionstring))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@vstring", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
            conn.OpenConnection()
            scmCmdToExecute.ExecuteNonQuery()
            If fnkt = 1 Then
                Me.Versionsstring = scmCmdToExecute.Parameters("@vstring").Value.ToString
                If Me.Versionsstring <> "" Then
                    Dim i As Integer = Me.Versionsstring.IndexOf("/")
                    year = Me.Versionsstring.Substring(i + 1, 4)
                    month = Me.Versionsstring.Substring(i - 2, 2)
                    Me.cbboxJahr.Text = year
                    Me.cbboxMonat.Text = month
                    Me.txtVersion.Text = Me.Versionsstring.Substring(0, i - 3)

                End If

            End If
            conn.CloseConnection(True)
        Catch ex As Exception
            Throw New Exception("Dokument_Version::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
        Finally
            scmCmdToExecute.Dispose()
        End Try
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Get_Set_Version(2, Me.txtVersion.Text + " " + Me.cbboxMonat.Text + "/" + Me.cbboxJahr.Text)
        Me.Close()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class