MS

app/DD-Record-Organiser/frmGeodataNavigation.vb

@@ -88,7 +88,7 @@ Public Class frmGeodataNavigation
             dataProvider.BingKey = BING_KEY
             ImageLayer.DataProvider = dataProvider
 
-            EntitySql = Get_Grid_Sql(CURRENT_CONSTRUCTOR_ID, CURRENT_FORM_ID, CURRENT_CONSTRUCTOR_DETAIL_ID, frmConstructor_Main.GridType.Grid, USER_GUID, String.Empty, False, 1, 0, GridControlGeo, grvwMain, True)
+            EntitySql = Get_Grid_Sql(CURRENT_CONSTRUCTOR_ID, CURRENT_ENTITY_ID, CURRENT_CONSTRUCTOR_DETAIL_ID, frmConstructor_Main.GridType.Grid, USER_GUID, String.Empty, False, 1, 0, GridControlGeo, grvwMain, True)
             LoadData()
 
         Catch ex As Exception
@@ -121,8 +121,8 @@ Public Class frmGeodataNavigation
             GridControlGeo.DataSource = EntityDataTable
         End If
 
-        Dim listcheck As List(Of String) = ClassHelper.Return_listcheck(CURRENT_FORM_ID)
+        Dim listcheck As List(Of String) = ClassHelper.Return_listcheck(CURRENT_ENTITY_ID)
-        Dim listdate As List(Of String) = ClassHelper.Return_listdate(CURRENT_FORM_ID)
+        Dim listdate As List(Of String) = ClassHelper.Return_listdate(CURRENT_ENTITY_ID)
 
         Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
         CheckBoxEditorForDisplay.ValueChecked = 1

app/DD-Record-Organiser/frmWDChangeDoctype.vb

@@ -0,0 +1,80 @@
+Imports System.Windows.Forms
+Imports DD_LIB_Standards
+Public Class frmWDChangeDoctype
+
+    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+        Me.DialogResult = System.Windows.Forms.DialogResult.OK
+        Dim NewDoctype As String
+        Dim DOCTYPE_ID
+        Dim OBJECTTYPE As String
+        Dim sql
+        If TextBox1.Text <> String.Empty Then
+            NewDoctype = TextBox1.Text
+            sql = "SELECT Objecttype FROM TBPMO_DOCRESULT_LIST WHERE DocID = " & CURRENT_DOC_ID
+            OBJECTTYPE = clsDatabase.Execute_Scalar(sql, True)
+            If OBJECTTYPE = String.Empty Then Me.Close()
+        Else
+            NewDoctype = cmbDokumentart.Text
+            DOCTYPE_ID = cmbDokumentart.SelectedValue
+            sql = "SELECT OBJEKTTYP FROM TBDD_DOKUMENTART WHERE GUID = " & DOCTYPE_ID
+            OBJECTTYPE = clsDatabase.Execute_Scalar(sql, True)
+            If OBJECTTYPE = String.Empty Then Me.Close()
+        End If
+        If NewDoctype = String.Empty Then
+            MsgBox("Please choose a new doctype!", MsgBoxStyle.Exclamation)
+            Exit Sub
+        End If
+        sql = "Select IDXNAME_DOCTYPE from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & OBJECTTYPE & "')"
+        Dim IDXNAME_DOCTYPE = ClassDatabase.Execute_Scalar(sql, True)
+        If clsWindream.Create_Session = False Then
+            MsgBox("Could not create a windream-session. Olease check the log!", MsgBoxStyle.Critical)
+            Exit Sub
+        End If
+        If Not IsNothing(IDXNAME_DOCTYPE) Then
+            sql = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Doctype = '{0}' WHERE DocID = {1}", NewDoctype, CURRENT_DOC_ID)
+            If clsDatabase.Execute_non_Query(sql, True) = True Then
+                If clsWD_SET.IndexFile(CURRENT_FILEIN_WD, IDXNAME_DOCTYPE, NewDoctype, OBJECTTYPE) = True Then
+                    MsgBox("Doctype was changed successfully!", MsgBoxStyle.Information)
+                Else
+                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error while setting Doctype: ", "Check the logfile")
+                End If
+                Me.Close()
+            End If
+        End If
+
+       
+
+
+    End Sub
+
+    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Close()
+    End Sub
+
+    Private Sub frmWDChangeDoctype_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Try
+            txtFilepath.Text = CURRENT_FILEIN_WD
+            Dim sql = String.Format("SELECT T.GUID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'DOCTYPE_TITLE' + CONVERT(VARCHAR(5), T.GUID), 1) AS BEZEICHNUNG" & _
+                                    " FROM TBDD_DOKUMENTART T, TBPMO_WD_FORMVIEW_DOKTYPES T1 WHERE T.GUID = T1.DOCTYPE_ID AND T.AKTIV = 1 AND T1.FORMVIEW_ID = {1} ORDER BY BEZEICHNUNG", USER_LANGUAGE, CURRENT_FORMVIEW_ID)
+            Dim DT As DataTable = clsDatabase.Return_Datatable(sql, True)
+            If Not IsNothing(DT) Then
+                cmbDokumentart.DataSource = DT
+                cmbDokumentart.DisplayMember = DT.Columns(1).ColumnName
+                cmbDokumentart.ValueMember = DT.Columns(0).ColumnName
+            Else
+
+            End If
+
+        Catch ex As Exception
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Load ChangeDoctype: ", ex.Message)
+            Me.Close()
+        End Try
+    End Sub
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
+        If TextBox1.Text <> String.Empty Then
+            cmbDokumentart.SelectedIndex = -1
+        End If
+    End Sub
+End Class

app/DD-Record-Organiser/frmWD_CreateVersion.designer.vb

@@ -0,0 +1,97 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmWD_CreateVersion
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.txtComment = New System.Windows.Forms.TextBox()
+        Me.btnOK = New System.Windows.Forms.Button()
+        Me.btncancel = New System.Windows.Forms.Button()
+        Me.SuspendLayout
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = true
+        Me.Label1.Location = New System.Drawing.Point(12, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(359, 26)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Vom ausgewählten Dokument wird in windream eine neue Version erstellt!"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Bitte geb"& _ 
+    "en Sie einen Kommentar ein:"
+        '
+        'txtComment
+        '
+        Me.txtComment.Location = New System.Drawing.Point(15, 38)
+        Me.txtComment.Multiline = true
+        Me.txtComment.Name = "txtComment"
+        Me.txtComment.Size = New System.Drawing.Size(551, 87)
+        Me.txtComment.TabIndex = 1
+        '
+        'btnOK
+        '
+        Me.btnOK.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.btnOK.Image = Global.DD_Record_Organiser.My.Resources.Resources.key_go
+        Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnOK.Location = New System.Drawing.Point(15, 131)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.Size = New System.Drawing.Size(269, 33)
+        Me.btnOK.TabIndex = 2
+        Me.btnOK.Text = "Neue Version erstellen"
+        Me.btnOK.UseVisualStyleBackColor = true
+        '
+        'btncancel
+        '
+        Me.btncancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.btncancel.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.btncancel.Location = New System.Drawing.Point(403, 131)
+        Me.btncancel.Name = "btncancel"
+        Me.btncancel.Size = New System.Drawing.Size(163, 33)
+        Me.btncancel.TabIndex = 3
+        Me.btncancel.Text = "Abbruch"
+        Me.btncancel.UseVisualStyleBackColor = true
+        '
+        'frmWD_CreateVersion
+        '
+        Me.AcceptButton = Me.btnOK
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.CancelButton = Me.btncancel
+        Me.ClientSize = New System.Drawing.Size(574, 172)
+        Me.Controls.Add(Me.btncancel)
+        Me.Controls.Add(Me.btnOK)
+        Me.Controls.Add(Me.txtComment)
+        Me.Controls.Add(Me.Label1)
+        Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
+        Me.MaximizeBox = false
+        Me.MinimizeBox = false
+        Me.Name = "frmWD_CreateVersion"
+        Me.Text = "Neue version erstellen"
+        Me.ResumeLayout(false)
+        Me.PerformLayout
+
+End Sub
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents txtComment As System.Windows.Forms.TextBox
+    Friend WithEvents btnOK As System.Windows.Forms.Button
+    Friend WithEvents btncancel As System.Windows.Forms.Button
+End Class

app/DD-Record-Organiser/frmWD_CreateVersion.vb

@@ -0,0 +1,30 @@
+Imports DD_LIB_Standards
+Public Class frmWD_CreateVersion
+
+    Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
+        Me.Close()
+    End Sub
+
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+        If clsWindream.Create_Session = True Then
+            If clsWD_SET.Create_Version(CURRENT_FILEIN_WD, txtComment.Text) Then
+                MsgBox("Version was created successfully!", MsgBoxStyle.Information)
+                Dim sql = "SELECT Version from TBPMO_DOCRESULT_LIST Where DocID = " & CURRENT_DOC_ID
+                Dim VERSION = clsDatabase.Execute_Scalar(sql, True)
+                If Not IsNothing(VERSION) Then
+                    VERSION = VERSION + 1
+                    Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Version = {0} WHERE DocID = {1}", VERSION, CURRENT_DOC_ID)
+                    clsDatabase.Execute_non_Query(upd, True)
+                Else
+
+                End If
+                Me.Close()
+            Else
+                MsgBox("Could not create a version! Check log", MsgBoxStyle.Exclamation)
+            End If
+        Else
+            MsgBox("Could not create a windream session! Check log", MsgBoxStyle.Exclamation)
+        End If
+        Me.Close()
+    End Sub
+End Class