You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
97 lines
4.0 KiB
97 lines
4.0 KiB
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 |