diff --git a/app/DD-Record-Organiser/Resources/Error_red_21x20.png b/app/DD-Record-Organiser/Resources/Error_red_21x20.png new file mode 100644 index 0000000..7400d42 Binary files /dev/null and b/app/DD-Record-Organiser/Resources/Error_red_21x20.png differ diff --git a/app/DD-Record-Organiser/Resources/error.ico b/app/DD-Record-Organiser/Resources/error.ico new file mode 100644 index 0000000..cf402c4 Binary files /dev/null and b/app/DD-Record-Organiser/Resources/error.ico differ diff --git a/app/DD-Record-Organiser/Resources/error.png b/app/DD-Record-Organiser/Resources/error.png new file mode 100644 index 0000000..c045294 Binary files /dev/null and b/app/DD-Record-Organiser/Resources/error.png differ diff --git a/app/DD-Record-Organiser/frmGeodataNavigation.vb b/app/DD-Record-Organiser/frmGeodataNavigation.vb index c572570..2e3aba7 100644 --- a/app/DD-Record-Organiser/frmGeodataNavigation.vb +++ b/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 listdate As List(Of String) = ClassHelper.Return_listdate(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_ENTITY_ID) Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit() CheckBoxEditorForDisplay.ValueChecked = 1 diff --git a/app/DD-Record-Organiser/frmWDChangeDoctype.vb b/app/DD-Record-Organiser/frmWDChangeDoctype.vb new file mode 100644 index 0000000..a2297ea --- /dev/null +++ b/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 diff --git a/app/DD-Record-Organiser/frmWD_CreateVersion.designer.vb b/app/DD-Record-Organiser/frmWD_CreateVersion.designer.vb new file mode 100644 index 0000000..81b6e50 --- /dev/null +++ b/app/DD-Record-Organiser/frmWD_CreateVersion.designer.vb @@ -0,0 +1,97 @@ + _ +Partial Class frmWD_CreateVersion + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + 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 diff --git a/app/DD-Record-Organiser/frmWD_CreateVersion.vb b/app/DD-Record-Organiser/frmWD_CreateVersion.vb new file mode 100644 index 0000000..1f27793 --- /dev/null +++ b/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 \ No newline at end of file