Initial

2022-12-25 10:09:49 +01:00
commit 406d053e79
3903 changed files with 2127541 additions and 0 deletions
--- a/EDOKA/Systemadministration/Diverses/frmDokumentversion.vb
+++ b/EDOKA/Systemadministration/Diverses/frmDokumentversion.vb
@@ -0,0 +1,97 @@
+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