AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS_22062016

Browse Source
This commit is contained in:
SchreiberM
2016-06-22 13:12:45 +02:00
parent fd8e85146a
commit 41e7886a6b
11 changed files with 521 additions and 186 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
app/DD-Record-Organiser/ClassDragDrop.vb
View File

@@ -5,7 +5,6 @@ Public Class ClassDragDrop
Public Shared files_dropped As String() Public Shared files_dropped As String()
Public Shared Function Drop_File(e As DragEventArgs) Public Shared Function Drop_File(e As DragEventArgs)
Try Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> In Drop_File....", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> In Drop_File....", False)
files_dropped = Nothing files_dropped = Nothing
@@ -168,6 +167,6 @@ Public Class ClassDragDrop
Catch ex As Exception Catch ex As Exception
End Try End Try
End Sub End Sub
End Class End Class

14
app/DD-Record-Organiser/ClassHelper.vb
View File

@@ -92,4 +92,18 @@ Public Class ClassHelper
Return System.Text.RegularExpressions.Regex.Replace( _ Return System.Text.RegularExpressions.Regex.Replace( _
sFilename, "[?*^""<>|]", REPLACEChar) sFilename, "[?*^""<>|]", REPLACEChar)
End Function End Function
Public Shared Sub File_open(ByVal RESULT_DOC_PATH)
If RESULT_DOC_PATH <> Nothing Then
Try
Dim Proc As New System.Diagnostics.Process
Dim psi As New ProcessStartInfo(RESULT_DOC_PATH)
Proc.EnableRaisingEvents = True
Proc.StartInfo = psi
Proc.Start()
Catch ex As Exception
MsgBox("Unexpected Error in Open file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Error in Open_File: " & ex.Message, True)
End Try
End If
End Sub
End Class End Class

4
app/DD-Record-Organiser/ClassImport_Windream.vb
View File

@@ -382,8 +382,8 @@ Public Class ClassImport_Windream
End If End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(" - Unvorhergesehener Fehler bei Name_Generieren - Fehler: " & vbNewLine & ex.Message) ClassLogger.Add(" - Unexpected Error in FileName-Creating: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Allgemeiner Fehler bei Name_Generieren:") MsgBox(" - Unexpected Error in FileName-Creating: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False Return False
End Try End Try

10
app/DD-Record-Organiser/ClassSAP.vb
View File

@@ -1,6 +1,7 @@
Imports ERPConnect Imports ERPConnect
Public Class ClassSAP Public Class ClassSAP
Public Shared SAPConnectionString Public Shared SAPConnectionString
Public Shared SAP_CONNECTION As New R3Connection()
Public Shared Function ConnectionInit(Host As String, SysNumber As String, Username As String, PW As String, Client As String, Lang As String) Public Shared Function ConnectionInit(Host As String, SysNumber As String, Username As String, PW As String, Client As String, Lang As String)
Try Try
If LogErrorsOnly = False Then ClassLogger.Add("", False) If LogErrorsOnly = False Then ClassLogger.Add("", False)
@@ -10,6 +11,7 @@ Public Class ClassSAP
ERPConnect.LIC.SetLic("W86DWC992C") ERPConnect.LIC.SetLic("W86DWC992C")
If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP Connectionstring: " & SAPConnectionString, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP Connectionstring: " & SAPConnectionString, False)
con.Open(SAPConnectionString) con.Open(SAPConnectionString)
SAP_CONNECTION.Open(SAPConnectionString)
If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP-Connection created!", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP-Connection created!", False)
If LogErrorsOnly = False Then ClassLogger.Add("", False) If LogErrorsOnly = False Then ClassLogger.Add("", False)
Return True Return True
@@ -21,14 +23,12 @@ Public Class ClassSAP
End Function End Function
Public Shared Function FuBa_Returndatatable_Seperated(FuBaName As String, SplitCharacter As String, Optional RowLimit As Integer = 0) Public Shared Function FuBa_Returndatatable_Seperated(FuBaName As String, SplitCharacter As String, Optional RowLimit As Integer = 0)
Try Try
Dim SAPCon As New R3Connection()
SAPCon.Open(SAPConnectionString)
Dim RESULT_TABLE As DataTable = New DataTable Dim RESULT_TABLE As DataTable = New DataTable
If LogErrorsOnly = False Then ClassLogger.Add(" >> Get data from FuBa-Function", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Get data from FuBa-Function", False)
Dim func As RFCFunction Dim func As RFCFunction
Try Try
func = SAPCon.CreateFunction(FuBaName) func = SAP_CONNECTION.CreateFunction(FuBaName)
If LogErrorsOnly = False Then ClassLogger.Add(" >> func.Execute", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> func.Execute", False)
func.Execute() func.Execute()
If LogErrorsOnly = False Then ClassLogger.Add(" >> function was executed", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> function was executed", False)
@@ -58,7 +58,7 @@ Public Class ClassSAP
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in Checking FunctionExecute: " & ex.Message, False) ClassLogger.Add(">> Unexpected Error in Checking FunctionExecute: " & ex.Message, False)
MsgBox("Error in Checking FunctionExecute: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Checking FunctionExecute: " & ex.Message, MsgBoxStyle.Critical)
SAPCon.Close() SAP_CONNECTION.Close()
Return Nothing Return Nothing
End Try End Try
FUNCT_ROW_COUNT = 1 FUNCT_ROW_COUNT = 1
@@ -118,7 +118,7 @@ Public Class ClassSAP
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in Create Datatable with split-method: " & ex.Message, False) ClassLogger.Add(">> Unexpected Error in Create Datatable with split-method: " & ex.Message, False)
MsgBox("Unexpected Error in Create Datatable with split-method: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Create Datatable with split-method: " & ex.Message, MsgBoxStyle.Critical)
SAPCon.Close() SAP_CONNECTION.Close()
Return Nothing Return Nothing
End Try End Try
Else Else

1
app/DD-Record-Organiser/frmConstructor_Main.Designer.vb generated
View File

@@ -432,6 +432,7 @@ Partial Class frmConstructor_Main
' '
'GridControlDocSearch 'GridControlDocSearch
' '
Me.GridControlDocSearch.AllowDrop = True
Me.GridControlDocSearch.ContextMenuStrip = Me.ContextMenuStripResultFiles Me.GridControlDocSearch.ContextMenuStrip = Me.ContextMenuStripResultFiles
resources.ApplyResources(Me.GridControlDocSearch, "GridControlDocSearch") resources.ApplyResources(Me.GridControlDocSearch, "GridControlDocSearch")
Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search

21
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -5016,7 +5016,7 @@ Public Class frmConstructor_Main
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
If RESULT_DOC_PATH <> Nothing Then If RESULT_DOC_PATH <> Nothing Then
Dim msg = "Sind Sie sicher, dass Sie diese Dateien löschen wollen?" Dim msg = "Sind Sie sicher, dass Sie diese Datei löschen wollen?"
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = "Are You sure You want to delete this file?" msg = "Are You sure You want to delete this file?"
End If End If
@@ -5057,22 +5057,7 @@ Public Class frmConstructor_Main
End Sub End Sub
Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
File_open() ClassHelper.File_open(RESULT_DOC_PATH)
End Sub
Sub File_open()
If RESULT_DOC_PATH <> Nothing Then
Try
Dim Proc As New System.Diagnostics.Process
Dim psi As New ProcessStartInfo(RESULT_DOC_PATH)
Proc.EnableRaisingEvents = True
Proc.StartInfo = psi
Proc.Start()
Catch ex As Exception
MsgBox("Unexpected Error in Open file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Fehler bei Datei öffnen: " & ex.Message, True)
End Try
End If
End Sub End Sub
Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick
Try Try
@@ -5080,7 +5065,7 @@ Public Class frmConstructor_Main
Catch ex As Exception Catch ex As Exception
RESULT_DOC_PATH = Nothing RESULT_DOC_PATH = Nothing
End Try End Try
File_open() ClassHelper.File_open(RESULT_DOC_PATH)
End Sub End Sub
Private Sub TabWindream_Leave(sender As Object, e As EventArgs) Handles TabWindream.Leave Private Sub TabWindream_Leave(sender As Object, e As EventArgs) Handles TabWindream.Leave

328
app/DD-Record-Organiser/frmRecordView.Designer.vb generated
View File

@@ -28,10 +28,11 @@ Partial Class frmRecordView
Dim COMMENTLabel As System.Windows.Forms.Label Dim COMMENTLabel As System.Windows.Forms.Label
Dim STATE_IDLabel As System.Windows.Forms.Label Dim STATE_IDLabel As System.Windows.Forms.Label
Dim DUE_DATELabel As System.Windows.Forms.Label Dim DUE_DATELabel As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRecordView))
Dim WF_TASK_IDLabel As System.Windows.Forms.Label Dim WF_TASK_IDLabel As System.Windows.Forms.Label
Dim CHANGED_WHOLabel As System.Windows.Forms.Label Dim CHANGED_WHOLabel As System.Windows.Forms.Label
Dim CHANGED_WHENLabel As System.Windows.Forms.Label Dim CHANGED_WHENLabel As System.Windows.Forms.Label
Dim WF_IDLabel As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRecordView))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TCDetails = New DevExpress.XtraTab.XtraTabControl() Me.TCDetails = New DevExpress.XtraTab.XtraTabControl()
Me.TabDetails = New DevExpress.XtraTab.XtraTabPage() Me.TabDetails = New DevExpress.XtraTab.XtraTabPage()
@@ -78,24 +79,33 @@ Partial Class frmRecordView
Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton() Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
Me.WF_IDTextBox = New System.Windows.Forms.TextBox()
Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet()
Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
Me.WF_TASK_IDTextBox = New System.Windows.Forms.TextBox()
Me.btnSaveWorkflow = New System.Windows.Forms.Button()
Me.lblnoTasks = New System.Windows.Forms.Label()
Me.TITLETextBox = New System.Windows.Forms.TextBox() Me.TITLETextBox = New System.Windows.Forms.TextBox()
Me.DateTimePickerTASK_DATE = New System.Windows.Forms.DateTimePicker() Me.DateTimePickerTASK_DATE = New System.Windows.Forms.DateTimePicker()
Me.COMMENTTextBox = New System.Windows.Forms.TextBox() Me.COMMENTTextBox = New System.Windows.Forms.TextBox()
Me.DUE_DATEDateTimePicker = New System.Windows.Forms.DateTimePicker() Me.DUE_DATEDateTimePicker = New System.Windows.Forms.DateTimePicker()
Me.STATE_IDComboBox = New System.Windows.Forms.ComboBox() Me.STATE_IDComboBox = New System.Windows.Forms.ComboBox()
Me.TBPMO_WORKFLOW_TASK_STATEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet()
Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager()
Me.lblnoTasks = New System.Windows.Forms.Label()
Me.TBPMO_WORKFLOW_TASK_STATEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter() Me.TBPMO_WORKFLOW_TASK_STATETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter()
Me.btnSaveWorkflow = New System.Windows.Forms.Button() Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.WF_TASK_IDTextBox = New System.Windows.Forms.TextBox() Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
Me.DeleteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
Me.PropertiesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Label4 = New System.Windows.Forms.Label() Label4 = New System.Windows.Forms.Label()
TITLELabel = New System.Windows.Forms.Label() TITLELabel = New System.Windows.Forms.Label()
COMMENTLabel = New System.Windows.Forms.Label() COMMENTLabel = New System.Windows.Forms.Label()
@@ -104,6 +114,7 @@ Partial Class frmRecordView
WF_TASK_IDLabel = New System.Windows.Forms.Label() WF_TASK_IDLabel = New System.Windows.Forms.Label()
CHANGED_WHOLabel = New System.Windows.Forms.Label() CHANGED_WHOLabel = New System.Windows.Forms.Label()
CHANGED_WHENLabel = New System.Windows.Forms.Label() CHANGED_WHENLabel = New System.Windows.Forms.Label()
WF_IDLabel = New System.Windows.Forms.Label()
CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TCDetails.SuspendLayout() Me.TCDetails.SuspendLayout()
Me.TabDetails.SuspendLayout() Me.TabDetails.SuspendLayout()
@@ -123,15 +134,16 @@ Partial Class frmRecordView
CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip2.SuspendLayout() Me.ToolStrip2.SuspendLayout()
Me.XtraTabPage1.SuspendLayout() Me.XtraTabPage1.SuspendLayout()
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl1.SuspendLayout() Me.SplitContainerControl1.SuspendLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout() Me.SplitContainer1.SuspendLayout()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStripResultFiles.SuspendLayout()
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'Label4 'Label4
@@ -185,6 +197,46 @@ Partial Class frmRecordView
DUE_DATELabel.TabIndex = 8 DUE_DATELabel.TabIndex = 8
DUE_DATELabel.Text = "Fälligkeit:" DUE_DATELabel.Text = "Fälligkeit:"
' '
'WF_TASK_IDLabel
'
WF_TASK_IDLabel.AutoSize = True
WF_TASK_IDLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
WF_TASK_IDLabel.Location = New System.Drawing.Point(348, 138)
WF_TASK_IDLabel.Name = "WF_TASK_IDLabel"
WF_TASK_IDLabel.Size = New System.Drawing.Size(22, 13)
WF_TASK_IDLabel.TabIndex = 23
WF_TASK_IDLabel.Text = "ID:"
'
'CHANGED_WHOLabel
'
CHANGED_WHOLabel.AutoSize = True
CHANGED_WHOLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
CHANGED_WHOLabel.Location = New System.Drawing.Point(12, 218)
CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
CHANGED_WHOLabel.Size = New System.Drawing.Size(77, 13)
CHANGED_WHOLabel.TabIndex = 24
CHANGED_WHOLabel.Text = "Changed who:"
'
'CHANGED_WHENLabel
'
CHANGED_WHENLabel.AutoSize = True
CHANGED_WHENLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
CHANGED_WHENLabel.Location = New System.Drawing.Point(129, 218)
CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
CHANGED_WHENLabel.Size = New System.Drawing.Size(83, 13)
CHANGED_WHENLabel.TabIndex = 25
CHANGED_WHENLabel.Text = "Changed when:"
'
'WF_IDLabel
'
WF_IDLabel.AutoSize = True
WF_IDLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
WF_IDLabel.Location = New System.Drawing.Point(407, 138)
WF_IDLabel.Name = "WF_IDLabel"
WF_IDLabel.Size = New System.Drawing.Size(41, 13)
WF_IDLabel.TabIndex = 26
WF_IDLabel.Text = "WF ID:"
'
'ToolStrip1 'ToolStrip1
' '
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
@@ -204,7 +256,7 @@ Partial Class frmRecordView
Me.TCDetails.Location = New System.Drawing.Point(0, 0) Me.TCDetails.Location = New System.Drawing.Point(0, 0)
Me.TCDetails.Name = "TCDetails" Me.TCDetails.Name = "TCDetails"
Me.TCDetails.SelectedTabPage = Me.TabDetails Me.TCDetails.SelectedTabPage = Me.TabDetails
Me.TCDetails.Size = New System.Drawing.Size(793, 355) Me.TCDetails.Size = New System.Drawing.Size(801, 386)
Me.TCDetails.TabIndex = 2 Me.TCDetails.TabIndex = 2
Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabFollowUp, Me.TabPos}) Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabFollowUp, Me.TabPos})
' '
@@ -213,7 +265,7 @@ Partial Class frmRecordView
Me.TabDetails.Controls.Add(Me.pnlDetails) Me.TabDetails.Controls.Add(Me.pnlDetails)
Me.TabDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD Me.TabDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD
Me.TabDetails.Name = "TabDetails" Me.TabDetails.Name = "TabDetails"
Me.TabDetails.Size = New System.Drawing.Size(791, 327) Me.TabDetails.Size = New System.Drawing.Size(799, 358)
Me.TabDetails.Text = "Detailansicht" Me.TabDetails.Text = "Detailansicht"
' '
'pnlDetails 'pnlDetails
@@ -223,7 +275,7 @@ Partial Class frmRecordView
Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlDetails.Location = New System.Drawing.Point(0, 0) Me.pnlDetails.Location = New System.Drawing.Point(0, 0)
Me.pnlDetails.Name = "pnlDetails" Me.pnlDetails.Name = "pnlDetails"
Me.pnlDetails.Size = New System.Drawing.Size(791, 327) Me.pnlDetails.Size = New System.Drawing.Size(799, 358)
Me.pnlDetails.TabIndex = 0 Me.pnlDetails.TabIndex = 0
' '
'TabFollowUp 'TabFollowUp
@@ -233,7 +285,7 @@ Partial Class frmRecordView
Me.TabFollowUp.Controls.Add(Me.Label5) Me.TabFollowUp.Controls.Add(Me.Label5)
Me.TabFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD Me.TabFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD
Me.TabFollowUp.Name = "TabFollowUp" Me.TabFollowUp.Name = "TabFollowUp"
Me.TabFollowUp.Size = New System.Drawing.Size(791, 327) Me.TabFollowUp.Size = New System.Drawing.Size(791, 315)
Me.TabFollowUp.Text = "Wiedervorlage" Me.TabFollowUp.Text = "Wiedervorlage"
' '
'ListViewFollowUps 'ListViewFollowUps
@@ -245,7 +297,7 @@ Partial Class frmRecordView
Me.ListViewFollowUps.HideSelection = False Me.ListViewFollowUps.HideSelection = False
Me.ListViewFollowUps.Location = New System.Drawing.Point(14, 36) Me.ListViewFollowUps.Location = New System.Drawing.Point(14, 36)
Me.ListViewFollowUps.Name = "ListViewFollowUps" Me.ListViewFollowUps.Name = "ListViewFollowUps"
Me.ListViewFollowUps.Size = New System.Drawing.Size(263, 152) Me.ListViewFollowUps.Size = New System.Drawing.Size(263, 140)
Me.ListViewFollowUps.TabIndex = 5 Me.ListViewFollowUps.TabIndex = 5
Me.ListViewFollowUps.UseCompatibleStateImageBehavior = False Me.ListViewFollowUps.UseCompatibleStateImageBehavior = False
Me.ListViewFollowUps.View = System.Windows.Forms.View.Details Me.ListViewFollowUps.View = System.Windows.Forms.View.Details
@@ -271,7 +323,7 @@ Partial Class frmRecordView
Me.grpbxFU_Profile.Controls.Add(Me.lblWiedervorlage_Control) Me.grpbxFU_Profile.Controls.Add(Me.lblWiedervorlage_Control)
Me.grpbxFU_Profile.Location = New System.Drawing.Point(283, 28) Me.grpbxFU_Profile.Location = New System.Drawing.Point(283, 28)
Me.grpbxFU_Profile.Name = "grpbxFU_Profile" Me.grpbxFU_Profile.Name = "grpbxFU_Profile"
Me.grpbxFU_Profile.Size = New System.Drawing.Size(774, 160) Me.grpbxFU_Profile.Size = New System.Drawing.Size(774, 148)
Me.grpbxFU_Profile.TabIndex = 4 Me.grpbxFU_Profile.TabIndex = 4
Me.grpbxFU_Profile.TabStop = False Me.grpbxFU_Profile.TabStop = False
' '
@@ -288,7 +340,7 @@ Partial Class frmRecordView
Me.GroupBox4.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold) Me.GroupBox4.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold)
Me.GroupBox4.Location = New System.Drawing.Point(177, 20) Me.GroupBox4.Location = New System.Drawing.Point(177, 20)
Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(594, 134) Me.GroupBox4.Size = New System.Drawing.Size(594, 122)
Me.GroupBox4.TabIndex = 4 Me.GroupBox4.TabIndex = 4
Me.GroupBox4.TabStop = False Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Individuelle Empfänger für diesen Datensatz:" Me.GroupBox4.Text = "Individuelle Empfänger für diesen Datensatz:"
@@ -347,7 +399,7 @@ Partial Class frmRecordView
Me.ListBoxUser2Profile.FormattingEnabled = True Me.ListBoxUser2Profile.FormattingEnabled = True
Me.ListBoxUser2Profile.Location = New System.Drawing.Point(9, 50) Me.ListBoxUser2Profile.Location = New System.Drawing.Point(9, 50)
Me.ListBoxUser2Profile.Name = "ListBoxUser2Profile" Me.ListBoxUser2Profile.Name = "ListBoxUser2Profile"
Me.ListBoxUser2Profile.Size = New System.Drawing.Size(230, 56) Me.ListBoxUser2Profile.Size = New System.Drawing.Size(230, 43)
Me.ListBoxUser2Profile.TabIndex = 1 Me.ListBoxUser2Profile.TabIndex = 1
' '
'Label7 'Label7
@@ -420,7 +472,7 @@ Partial Class frmRecordView
Me.TabPos.Image = CType(resources.GetObject("TabPos.Image"), System.Drawing.Image) Me.TabPos.Image = CType(resources.GetObject("TabPos.Image"), System.Drawing.Image)
Me.TabPos.Name = "TabPos" Me.TabPos.Name = "TabPos"
Me.TabPos.PageVisible = False Me.TabPos.PageVisible = False
Me.TabPos.Size = New System.Drawing.Size(791, 327) Me.TabPos.Size = New System.Drawing.Size(791, 315)
Me.TabPos.Text = "Positionen" Me.TabPos.Text = "Positionen"
' '
'Panel1 'Panel1
@@ -429,7 +481,7 @@ Partial Class frmRecordView
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 25) Me.Panel1.Location = New System.Drawing.Point(0, 25)
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(791, 302) Me.Panel1.Size = New System.Drawing.Size(791, 290)
Me.Panel1.TabIndex = 2 Me.Panel1.TabIndex = 2
' '
'GridControlPos 'GridControlPos
@@ -438,7 +490,7 @@ Partial Class frmRecordView
Me.GridControlPos.Location = New System.Drawing.Point(0, 0) Me.GridControlPos.Location = New System.Drawing.Point(0, 0)
Me.GridControlPos.MainView = Me.grvwGridPos Me.GridControlPos.MainView = Me.grvwGridPos
Me.GridControlPos.Name = "GridControlPos" Me.GridControlPos.Name = "GridControlPos"
Me.GridControlPos.Size = New System.Drawing.Size(791, 302) Me.GridControlPos.Size = New System.Drawing.Size(791, 290)
Me.GridControlPos.TabIndex = 0 Me.GridControlPos.TabIndex = 0
Me.GridControlPos.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGridPos}) Me.GridControlPos.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGridPos})
' '
@@ -565,7 +617,7 @@ Partial Class frmRecordView
Me.TabControl1.Location = New System.Drawing.Point(0, 0) Me.TabControl1.Location = New System.Drawing.Point(0, 0)
Me.TabControl1.Name = "TabControl1" Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedTabPage = Me.XtraTabPage2 Me.TabControl1.SelectedTabPage = Me.XtraTabPage2
Me.TabControl1.Size = New System.Drawing.Size(793, 351) Me.TabControl1.Size = New System.Drawing.Size(801, 346)
Me.TabControl1.TabIndex = 3 Me.TabControl1.TabIndex = 3
Me.TabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage2, Me.XtraTabPage1}) Me.TabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage2, Me.XtraTabPage1})
' '
@@ -576,16 +628,18 @@ Partial Class frmRecordView
Me.XtraTabPage2.Controls.Add(Me.ToolStrip2) Me.XtraTabPage2.Controls.Add(Me.ToolStrip2)
Me.XtraTabPage2.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954 Me.XtraTabPage2.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954
Me.XtraTabPage2.Name = "XtraTabPage2" Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(791, 323) Me.XtraTabPage2.Size = New System.Drawing.Size(799, 318)
Me.XtraTabPage2.Text = "windream-Dateien" Me.XtraTabPage2.Text = "windream-Dateien"
' '
'GridControlDocSearch 'GridControlDocSearch
' '
Me.GridControlDocSearch.AllowDrop = True
Me.GridControlDocSearch.ContextMenuStrip = Me.ContextMenuStripResultFiles
Me.GridControlDocSearch.Dock = System.Windows.Forms.DockStyle.Fill Me.GridControlDocSearch.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlDocSearch.Location = New System.Drawing.Point(0, 25) Me.GridControlDocSearch.Location = New System.Drawing.Point(0, 25)
Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
Me.GridControlDocSearch.Name = "GridControlDocSearch" Me.GridControlDocSearch.Name = "GridControlDocSearch"
Me.GridControlDocSearch.Size = New System.Drawing.Size(791, 298) Me.GridControlDocSearch.Size = New System.Drawing.Size(799, 293)
Me.GridControlDocSearch.TabIndex = 7 Me.GridControlDocSearch.TabIndex = 7
Me.GridControlDocSearch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoc_Search}) Me.GridControlDocSearch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoc_Search})
' '
@@ -609,7 +663,7 @@ Partial Class frmRecordView
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWindreamView, Me.ToolStripDropDownButton1}) Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWindreamView, Me.ToolStripDropDownButton1})
Me.ToolStrip2.Location = New System.Drawing.Point(0, 0) Me.ToolStrip2.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip2.Name = "ToolStrip2" Me.ToolStrip2.Name = "ToolStrip2"
Me.ToolStrip2.Size = New System.Drawing.Size(791, 25) Me.ToolStrip2.Size = New System.Drawing.Size(799, 25)
Me.ToolStrip2.TabIndex = 2 Me.ToolStrip2.TabIndex = 2
Me.ToolStrip2.Text = "ToolStrip2" Me.ToolStrip2.Text = "ToolStrip2"
' '
@@ -638,6 +692,8 @@ Partial Class frmRecordView
' '
'XtraTabPage1 'XtraTabPage1
' '
Me.XtraTabPage1.Controls.Add(WF_IDLabel)
Me.XtraTabPage1.Controls.Add(Me.WF_IDTextBox)
Me.XtraTabPage1.Controls.Add(CHANGED_WHENLabel) Me.XtraTabPage1.Controls.Add(CHANGED_WHENLabel)
Me.XtraTabPage1.Controls.Add(Me.CHANGED_WHENTextBox) Me.XtraTabPage1.Controls.Add(Me.CHANGED_WHENTextBox)
Me.XtraTabPage1.Controls.Add(CHANGED_WHOLabel) Me.XtraTabPage1.Controls.Add(CHANGED_WHOLabel)
@@ -657,9 +713,83 @@ Partial Class frmRecordView
Me.XtraTabPage1.Controls.Add(STATE_IDLabel) Me.XtraTabPage1.Controls.Add(STATE_IDLabel)
Me.XtraTabPage1.Controls.Add(Me.STATE_IDComboBox) Me.XtraTabPage1.Controls.Add(Me.STATE_IDComboBox)
Me.XtraTabPage1.Name = "XtraTabPage1" Me.XtraTabPage1.Name = "XtraTabPage1"
Me.XtraTabPage1.Size = New System.Drawing.Size(791, 323) Me.XtraTabPage1.Size = New System.Drawing.Size(791, 335)
Me.XtraTabPage1.Text = "Workflows/Tasks" Me.XtraTabPage1.Text = "Workflows/Tasks"
' '
'WF_IDTextBox
'
Me.WF_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "WF_ID", True))
Me.WF_IDTextBox.Enabled = False
Me.WF_IDTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.WF_IDTextBox.Location = New System.Drawing.Point(410, 154)
Me.WF_IDTextBox.Name = "WF_IDTextBox"
Me.WF_IDTextBox.Size = New System.Drawing.Size(52, 21)
Me.WF_IDTextBox.TabIndex = 27
'
'VWPMO_WF_ACTIVEBindingSource
'
Me.VWPMO_WF_ACTIVEBindingSource.DataMember = "VWPMO_WF_ACTIVE"
Me.VWPMO_WF_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet
'
'DD_DMSDataSet
'
Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet"
Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'CHANGED_WHENTextBox
'
Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "CHANGED_WHEN", True))
Me.CHANGED_WHENTextBox.Enabled = False
Me.CHANGED_WHENTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(132, 234)
Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(142, 21)
Me.CHANGED_WHENTextBox.TabIndex = 26
'
'CHANGED_WHOTextBox
'
Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "CHANGED_WHO", True))
Me.CHANGED_WHOTextBox.Enabled = False
Me.CHANGED_WHOTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(15, 234)
Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(108, 21)
Me.CHANGED_WHOTextBox.TabIndex = 25
'
'WF_TASK_IDTextBox
'
Me.WF_TASK_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "WF_TASK_ID", True))
Me.WF_TASK_IDTextBox.Enabled = False
Me.WF_TASK_IDTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.WF_TASK_IDTextBox.Location = New System.Drawing.Point(351, 154)
Me.WF_TASK_IDTextBox.Name = "WF_TASK_IDTextBox"
Me.WF_TASK_IDTextBox.Size = New System.Drawing.Size(53, 21)
Me.WF_TASK_IDTextBox.TabIndex = 24
'
'btnSaveWorkflow
'
Me.btnSaveWorkflow.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG
Me.btnSaveWorkflow.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSaveWorkflow.Location = New System.Drawing.Point(375, 192)
Me.btnSaveWorkflow.Name = "btnSaveWorkflow"
Me.btnSaveWorkflow.Size = New System.Drawing.Size(87, 23)
Me.btnSaveWorkflow.TabIndex = 23
Me.btnSaveWorkflow.Text = "Speichern"
Me.btnSaveWorkflow.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSaveWorkflow.UseVisualStyleBackColor = True
'
'lblnoTasks
'
Me.lblnoTasks.AutoSize = True
Me.lblnoTasks.BackColor = System.Drawing.Color.Yellow
Me.lblnoTasks.Font = New System.Drawing.Font("Tahoma", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblnoTasks.Location = New System.Drawing.Point(354, 6)
Me.lblnoTasks.Name = "lblnoTasks"
Me.lblnoTasks.Size = New System.Drawing.Size(108, 16)
Me.lblnoTasks.TabIndex = 22
Me.lblnoTasks.Text = "No active Tasks"
Me.lblnoTasks.Visible = False
'
'TITLETextBox 'TITLETextBox
' '
Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "WF_TITLE", True)) Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "WF_TITLE", True))
@@ -709,6 +839,11 @@ Partial Class frmRecordView
Me.STATE_IDComboBox.TabIndex = 11 Me.STATE_IDComboBox.TabIndex = 11
Me.STATE_IDComboBox.ValueMember = "GUID" Me.STATE_IDComboBox.ValueMember = "GUID"
' '
'TBPMO_WORKFLOW_TASK_STATEBindingSource
'
Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.DataMember = "TBPMO_WORKFLOW_TASK_STATE"
Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.DataSource = Me.DD_DMSDataSet
'
'SplitContainerControl1 'SplitContainerControl1
' '
Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
@@ -717,8 +852,8 @@ Partial Class frmRecordView
Me.SplitContainerControl1.Panel1.Controls.Add(Me.SplitContainer1) Me.SplitContainerControl1.Panel1.Controls.Add(Me.SplitContainer1)
Me.SplitContainerControl1.Panel1.Text = "Panel1" Me.SplitContainerControl1.Panel1.Text = "Panel1"
Me.SplitContainerControl1.Panel2.Text = "Panel2" Me.SplitContainerControl1.Panel2.Text = "Panel2"
Me.SplitContainerControl1.Size = New System.Drawing.Size(1175, 710) Me.SplitContainerControl1.Size = New System.Drawing.Size(1175, 736)
Me.SplitContainerControl1.SplitterPosition = 793 Me.SplitContainerControl1.SplitterPosition = 801
Me.SplitContainerControl1.TabIndex = 4 Me.SplitContainerControl1.TabIndex = 4
Me.SplitContainerControl1.Text = "SplitContainerControl1" Me.SplitContainerControl1.Text = "SplitContainerControl1"
' '
@@ -736,20 +871,10 @@ Partial Class frmRecordView
'SplitContainer1.Panel2 'SplitContainer1.Panel2
' '
Me.SplitContainer1.Panel2.Controls.Add(Me.TabControl1) Me.SplitContainer1.Panel2.Controls.Add(Me.TabControl1)
Me.SplitContainer1.Size = New System.Drawing.Size(793, 710) Me.SplitContainer1.Size = New System.Drawing.Size(801, 736)
Me.SplitContainer1.SplitterDistance = 355 Me.SplitContainer1.SplitterDistance = 386
Me.SplitContainer1.TabIndex = 4 Me.SplitContainer1.TabIndex = 4
' '
'DD_DMSDataSet
'
Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet"
Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'VWPMO_WF_ACTIVEBindingSource
'
Me.VWPMO_WF_ACTIVEBindingSource.DataMember = "VWPMO_WF_ACTIVE"
Me.VWPMO_WF_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet
'
'VWPMO_WF_ACTIVETableAdapter 'VWPMO_WF_ACTIVETableAdapter
' '
Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = True Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = True
@@ -792,96 +917,63 @@ Partial Class frmRecordView
Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
' '
'lblnoTasks
'
Me.lblnoTasks.AutoSize = True
Me.lblnoTasks.BackColor = System.Drawing.Color.Yellow
Me.lblnoTasks.Font = New System.Drawing.Font("Tahoma", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblnoTasks.Location = New System.Drawing.Point(354, 6)
Me.lblnoTasks.Name = "lblnoTasks"
Me.lblnoTasks.Size = New System.Drawing.Size(108, 16)
Me.lblnoTasks.TabIndex = 22
Me.lblnoTasks.Text = "No active Tasks"
Me.lblnoTasks.Visible = False
'
'TBPMO_WORKFLOW_TASK_STATEBindingSource
'
Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.DataMember = "TBPMO_WORKFLOW_TASK_STATE"
Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.DataSource = Me.DD_DMSDataSet
'
'TBPMO_WORKFLOW_TASK_STATETableAdapter 'TBPMO_WORKFLOW_TASK_STATETableAdapter
' '
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.ClearBeforeFill = True Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.ClearBeforeFill = True
' '
'btnSaveWorkflow 'ContextMenuStripResultFiles
' '
Me.btnSaveWorkflow.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.ToolStripSeparator7, Me.CopyToolStripMenuItem, Me.ToolStripSeparator8, Me.DeleteToolStripMenuItem, Me.ToolStripSeparator9, Me.PropertiesToolStripMenuItem})
Me.btnSaveWorkflow.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles"
Me.btnSaveWorkflow.Location = New System.Drawing.Point(375, 192) Me.ContextMenuStripResultFiles.Size = New System.Drawing.Size(149, 110)
Me.btnSaveWorkflow.Name = "btnSaveWorkflow"
Me.btnSaveWorkflow.Size = New System.Drawing.Size(87, 23)
Me.btnSaveWorkflow.TabIndex = 23
Me.btnSaveWorkflow.Text = "Speichern"
Me.btnSaveWorkflow.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSaveWorkflow.UseVisualStyleBackColor = True
' '
'WF_TASK_IDLabel 'DateiÖffnenToolStripMenuItem
' '
WF_TASK_IDLabel.AutoSize = True Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem"
WF_TASK_IDLabel.Location = New System.Drawing.Point(393, 138) Me.DateiÖffnenToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
WF_TASK_IDLabel.Name = "WF_TASK_IDLabel" Me.DateiÖffnenToolStripMenuItem.Text = "Datei Öffnen"
WF_TASK_IDLabel.Size = New System.Drawing.Size(22, 13)
WF_TASK_IDLabel.TabIndex = 23
WF_TASK_IDLabel.Text = "ID:"
' '
'WF_TASK_IDTextBox 'ToolStripSeparator7
' '
Me.WF_TASK_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "WF_TASK_ID", True)) Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
Me.WF_TASK_IDTextBox.Enabled = False Me.ToolStripSeparator7.Size = New System.Drawing.Size(145, 6)
Me.WF_TASK_IDTextBox.Location = New System.Drawing.Point(396, 154)
Me.WF_TASK_IDTextBox.Name = "WF_TASK_IDTextBox"
Me.WF_TASK_IDTextBox.Size = New System.Drawing.Size(66, 21)
Me.WF_TASK_IDTextBox.TabIndex = 24
' '
'CHANGED_WHOLabel 'CopyToolStripMenuItem
' '
CHANGED_WHOLabel.AutoSize = True Me.CopyToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.Copy_6524
CHANGED_WHOLabel.Location = New System.Drawing.Point(12, 218) Me.CopyToolStripMenuItem.Name = "CopyToolStripMenuItem"
CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" Me.CopyToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
CHANGED_WHOLabel.Size = New System.Drawing.Size(77, 13) Me.CopyToolStripMenuItem.Text = "Kopieren"
CHANGED_WHOLabel.TabIndex = 24
CHANGED_WHOLabel.Text = "Changed who:"
' '
'CHANGED_WHOTextBox 'ToolStripSeparator8
' '
Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "CHANGED_WHO", True)) Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(15, 234) Me.ToolStripSeparator8.Size = New System.Drawing.Size(145, 6)
Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(108, 21)
Me.CHANGED_WHOTextBox.TabIndex = 25
' '
'CHANGED_WHENLabel 'DeleteToolStripMenuItem
' '
CHANGED_WHENLabel.AutoSize = True Me.DeleteToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete
CHANGED_WHENLabel.Location = New System.Drawing.Point(129, 218) Me.DeleteToolStripMenuItem.Name = "DeleteToolStripMenuItem"
CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" Me.DeleteToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
CHANGED_WHENLabel.Size = New System.Drawing.Size(83, 13) Me.DeleteToolStripMenuItem.Text = "Löschen"
CHANGED_WHENLabel.TabIndex = 25
CHANGED_WHENLabel.Text = "Changed when:"
' '
'CHANGED_WHENTextBox 'ToolStripSeparator9
' '
Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "CHANGED_WHEN", True)) Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(132, 234) Me.ToolStripSeparator9.Size = New System.Drawing.Size(145, 6)
Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" '
Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(142, 21) 'PropertiesToolStripMenuItem
Me.CHANGED_WHENTextBox.TabIndex = 26 '
Me.PropertiesToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.PropertyGridEditorPart_6041
Me.PropertiesToolStripMenuItem.Name = "PropertiesToolStripMenuItem"
Me.PropertiesToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.PropertiesToolStripMenuItem.Text = "Eigenschaften"
' '
'frmRecordView 'frmRecordView
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1175, 735) Me.ClientSize = New System.Drawing.Size(1175, 761)
Me.Controls.Add(Me.SplitContainerControl1) Me.Controls.Add(Me.SplitContainerControl1)
Me.Controls.Add(Me.ToolStrip1) Me.Controls.Add(Me.ToolStrip1)
Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -915,15 +1007,16 @@ Partial Class frmRecordView
Me.ToolStrip2.PerformLayout() Me.ToolStrip2.PerformLayout()
Me.XtraTabPage1.ResumeLayout(False) Me.XtraTabPage1.ResumeLayout(False)
Me.XtraTabPage1.PerformLayout() Me.XtraTabPage1.PerformLayout()
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl1.ResumeLayout(False) Me.SplitContainerControl1.ResumeLayout(False)
Me.SplitContainer1.Panel1.ResumeLayout(False) Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel2.ResumeLayout(False) Me.SplitContainer1.Panel2.ResumeLayout(False)
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False) Me.SplitContainer1.ResumeLayout(False)
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() Me.ContextMenuStripResultFiles.ResumeLayout(False)
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -992,4 +1085,13 @@ Partial Class frmRecordView
Friend WithEvents WF_TASK_IDTextBox As System.Windows.Forms.TextBox Friend WithEvents WF_TASK_IDTextBox As System.Windows.Forms.TextBox
Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox
Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox
Friend WithEvents WF_IDTextBox As System.Windows.Forms.TextBox
Friend WithEvents ContextMenuStripResultFiles As System.Windows.Forms.ContextMenuStrip
Friend WithEvents DateiÖffnenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents CopyToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents DeleteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator9 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents PropertiesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
End Class End Class

46
app/DD-Record-Organiser/frmRecordView.resx
View File

@@ -132,6 +132,18 @@
<metadata name="DUE_DATELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="DUE_DATELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value> <value>False</value>
</metadata> </metadata>
<metadata name="WF_TASK_IDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="CHANGED_WHOLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="CHANGED_WHENLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="WF_IDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
@@ -231,6 +243,9 @@
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<metadata name="ContextMenuStripResultFiles.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>328, 212</value>
</metadata>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>821, 134</value> <value>821, 134</value>
</metadata> </metadata>
@@ -247,35 +262,23 @@
DwcIdDRYJUwiAB0yTe/NNUuIXy/etxLLTTpKAAAAAElFTkSuQmCC DwcIdDRYJUwiAB0yTe/NNUuIXy/etxLLTTpKAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<metadata name="CHANGED_WHENLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="VWPMO_WF_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value>
</metadata>
<metadata name="CHANGED_WHOLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="WF_TASK_IDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="VWPMO_WF_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="VWPMO_WF_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value> <value>17, 173</value>
</metadata> </metadata>
<metadata name="VWPMO_WF_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="VWPMO_WF_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value> <value>17, 173</value>
</metadata> </metadata>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>928, 134</value>
</metadata>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>928, 134</value>
</metadata>
<metadata name="TBPMO_WORKFLOW_TASK_STATEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPMO_WORKFLOW_TASK_STATEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>672, 173</value> <value>672, 173</value>
</metadata> </metadata>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPMO_WORKFLOW_TASK_STATEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>928, 134</value> <value>672, 173</value>
</metadata>
<metadata name="VWPMO_WF_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value>
</metadata>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>928, 134</value>
</metadata> </metadata>
<metadata name="VWPMO_WF_ACTIVETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="VWPMO_WF_ACTIVETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>261, 173</value> <value>261, 173</value>
@@ -286,9 +289,6 @@
<metadata name="TBPMO_WORKFLOW_TASK_STATETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPMO_WORKFLOW_TASK_STATETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 212</value> <value>17, 212</value>
</metadata> </metadata>
<metadata name="TBPMO_WORKFLOW_TASK_STATEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>672, 173</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAABAAYAICAQAAEABADoAgAAZgAAABAQEAABAAQAKAEAAE4DAAAgIAAAAQAIAKgIAAB2BAAAEBAAAAEA AAABAAYAICAQAAEABADoAgAAZgAAABAQEAABAAQAKAEAAE4DAAAgIAAAAQAIAKgIAAB2BAAAEBAAAAEA

245
app/DD-Record-Organiser/frmRecordView.vb
View File

@@ -1,8 +1,35 @@
Imports System.IO Imports System.IO
Imports System.Runtime.InteropServices
Public Class frmRecordView Public Class frmRecordView
Private recordView As ClassRecordView Private recordView As ClassRecordView
Private ENTITY_ID, FORMVIEW_ID, PARENT_ENTITY_ID As Integer
Private RESULT_DOC_PATH As String
Private Const SEE_MASK_INVOKEIDLIST = &HC
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
Private Const SEE_MASK_FLAG_NO_UI = &H400
Public Const SW_SHOW As Short = 5
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)> _
Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
End Function
Public Structure SHELLEXECUTEINFO
Public cbSize As Integer
Public fMask As Integer
Public hwnd As IntPtr
<MarshalAs(UnmanagedType.LPTStr)> Public lpVerb As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpFile As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpParameters As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpDirectory As String
Dim nShow As Integer
Dim hInstApp As IntPtr
Dim lpIDList As IntPtr
<MarshalAs(UnmanagedType.LPTStr)> Public lpClass As String
Public hkeyClass As IntPtr
Public dwHotKey As Integer
Public hIcon As IntPtr
Public hProcess As IntPtr
End Structure
Private Sub frmRecordView_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmRecordView_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
Me.Text = "Detailview Record" Me.Text = "Detailview Record"
@@ -228,17 +255,22 @@ Public Class frmRecordView
Private Sub Load_Tasks() Private Sub Load_Tasks()
Try Try
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Connection.ConnectionString = MyConnectionString Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE, USER_LANGUAGE)
Me.VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString Me.VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, Environment.UserName, JUMP_RECORD_ID) Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, Environment.UserName, JUMP_RECORD_ID)
Dim sql = "SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & JUMP_RECORD_ID
ENTITY_ID = ClassDatabase.Execute_Scalar(sql)
sql = "SELECT GUID FROM TBPMO_FORM_VIEW WHERE SCREEN_ID = 1 AND FORM_ID = " & ENTITY_ID
FORMVIEW_ID = ClassDatabase.Execute_Scalar(sql)
sql = "SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID
PARENT_ENTITY_ID = ClassDatabase.Execute_Scalar(sql)
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Load_Tasks:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Load_Tasks:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Private Sub TabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles TabControl1.SelectedPageChanged Private Sub TabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles TabControl1.SelectedPageChanged
If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count = 0 Then If TabControl1.SelectedTabPageIndex = 1 Then
If TabControl1.SelectedTabPageIndex = 1 Then If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count = 0 Then
COMMENTTextBox.Enabled = False COMMENTTextBox.Enabled = False
DUE_DATEDateTimePicker.Enabled = False DUE_DATEDateTimePicker.Enabled = False
DateTimePickerTASK_DATE.Enabled = False DateTimePickerTASK_DATE.Enabled = False
@@ -246,6 +278,13 @@ Public Class frmRecordView
lblnoTasks.Visible = True lblnoTasks.Visible = True
btnSaveWorkflow.Enabled = False btnSaveWorkflow.Enabled = False
Else Else
Try
If WF_IDTextBox.Text <> "" Then
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.FillBy(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE, USER_LANGUAGE, WF_IDTextBox.Text, ENTITY_ID)
End If
Catch ex As Exception
MsgBox("Error in load States:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
COMMENTTextBox.Enabled = True COMMENTTextBox.Enabled = True
DUE_DATEDateTimePicker.Enabled = True DUE_DATEDateTimePicker.Enabled = True
DateTimePickerTASK_DATE.Enabled = True DateTimePickerTASK_DATE.Enabled = True
@@ -254,6 +293,7 @@ Public Class frmRecordView
btnSaveWorkflow.Enabled = True btnSaveWorkflow.Enabled = True
End If End If
End If End If
End Sub End Sub
Private Sub btnSaveWorkflow_Click(sender As Object, e As EventArgs) Handles btnSaveWorkflow.Click Private Sub btnSaveWorkflow_Click(sender As Object, e As EventArgs) Handles btnSaveWorkflow.Click
@@ -267,7 +307,204 @@ Public Class frmRecordView
End If End If
' Me.TBPMO_WORKFLOW_TASKTableAdapter.cmdUpdate(COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, STATE_IDComboBox.SelectedValue, 1, Environment.UserName, DateTimePicker1.Value, Me.GUIDTextBox.Text) ' Me.TBPMO_WORKFLOW_TASKTableAdapter.cmdUpdate(COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, STATE_IDComboBox.SelectedValue, 1, Environment.UserName, DateTimePicker1.Value, Me.GUIDTextBox.Text)
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Exit:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in save Workflow:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Private Sub frmRecordView_Shown(sender As Object, e As EventArgs) Handles Me.Shown
End Sub
Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged
Try
RESULT_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
Catch ex As Exception
RESULT_DOC_PATH = Nothing
End Try
End Sub
Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick
Try
RESULT_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
Catch ex As Exception
RESULT_DOC_PATH = Nothing
End Try
ClassHelper.File_open(RESULT_DOC_PATH)
End Sub
Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
ClassHelper.File_open(RESULT_DOC_PATH)
End Sub
Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click
If RESULT_DOC_PATH <> Nothing Then
Try
Dim selectedfile(0) As String
selectedfile(0) = RESULT_DOC_PATH
Dim dataobj As New DataObject
dataobj.SetData(DataFormats.FileDrop, True, selectedfile)
Clipboard.Clear()
Clipboard.SetDataObject(dataobj, True)
Catch ex As Exception
MsgBox("Unexpected Error in Copy file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Cursor = Cursors.Default
End If
End Sub
Private Sub DeleteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
If RESULT_DOC_PATH <> Nothing Then
Dim msg = "Sind Sie sicher, dass Sie diese Datei löschen wollen?"
If USER_LANGUAGE <> "de-DE" Then
msg = "Are You sure You want to delete this file?"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
Dim FileToDelete As String
FileToDelete = RESULT_DOC_PATH
If System.IO.File.Exists(FileToDelete) = True Then
System.IO.File.Delete(FileToDelete)
RUN_WDSEARCH_GRID()
End If
Catch ex As Exception
MsgBox("Unexpected Error in Delete file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End If
End Sub
Private Sub PropertiesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertiesToolStripMenuItem.Click
If RESULT_DOC_PATH <> Nothing Then
Cursor = Cursors.WaitCursor
Dim sei As New SHELLEXECUTEINFO
sei.cbSize = Marshal.SizeOf(sei)
sei.lpVerb = "properties"
sei.lpFile = RESULT_DOC_PATH
sei.nShow = SW_SHOW
sei.fMask = SEE_MASK_INVOKEIDLIST
If Not ShellExecuteEx(sei) Then
Dim ex As New System.ComponentModel.Win32Exception(System.Runtime.InteropServices.Marshal.GetLastWin32Error())
MsgBox("Unexpected Error in Open file propertys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End If
End If
Cursor = Cursors.Default
End Sub
Private Sub pnlDetails_DragDrop(sender As Object, e As DragEventArgs) Handles pnlDetails.DragDrop
Drag_Drop(e)
End Sub
Private Sub GridControlDocSearch_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlDocSearch.DragDrop
Drag_Drop(e)
End Sub
Private Sub pnlDetails_DragEnter(sender As Object, e As DragEventArgs) Handles pnlDetails.DragEnter
Drag_Enter(e)
End Sub
Private Sub GridControlDocSearch_DragEnter(sender As Object, e As DragEventArgs) Handles GridControlDocSearch.DragEnter
Drag_Enter(e)
End Sub
Sub Drag_Enter(e As DragEventArgs)
If FORMVIEW_ID <> 0 Then
ClassDragDrop.Drag_enter(e)
End If
End Sub
Sub Drag_Drop(e As DragEventArgs)
If FORMVIEW_ID <> 0 Then
Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
If ClassDatabase.Execute_Scalar(sql, True) = 0 Then
MsgBox("No documenttypes for this entity configured! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
Exit Sub
End If
CURRENT_FORMVIEW_ID = FORMVIEW_ID
CURRENT_CONTROL_DOCTYPE_MATCH = 0
If e.Data.GetDataPresent(DataFormats.StringFormat) Then
Dim Wert As String = CType(e.Data.GetData(DataFormats.StringFormat), Object)
Console.WriteLine("DragDrop-Wert: " & Wert)
If Wert.Contains("SCAN") Then
Exit Sub
'Dim split() = Wert.Split(";")
'If IsNumeric(split(1)) Then
' CURRENT_FILEID = split(1)
' CURRENT_PARENT_ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
' CURRENT_RECORD_ID = JUMP_RECORD_ID
' CURRENT_FORMVIEW_ID = FORMVIEW_ID
' frmWD_Index_Dokart.ShowDialog()
' RUN_WDSEARCH_GRID()
'End If
ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
CURRENT_RECORD_ID = JUMP_RECORD_ID
If ClassDragDrop.Drop_File(e) = True Then
Check_Dropped_Files()
End If
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
CURRENT_RECORD_ID = JUMP_RECORD_ID
If ClassDragDrop.Drop_File(e) = True Then
Check_Dropped_Files()
End If
End If
Else
CURRENT_RECORD_ID = JUMP_RECORD_ID
If ClassDragDrop.Drop_File(e) = True Then
Check_Dropped_Files()
End If
End If
End If
End Sub
Sub Check_Dropped_Files()
Try
For Each Str As Object In ClassDragDrop.files_dropped
If Not IsNothing(Str) Then
Dim DropType = Str.Substring(0, Str.LastIndexOf("@") + 1)
If DropType.ToString.Contains("SCAN") = False Then
ClassLogger.Add(">> Check_Dropped_Files:" & Str.ToString, False)
Dim CURRENT_WORKFILE = Str.Substring(Str.LastIndexOf("@") + 1)
Dim insert = String.Format("INSERT INTO TBPMO_FILES_USER(FILENAME2WORK, USER_WORK, HANDLE_TYPE) VALUES('{0}','{1}','{2}')", CURRENT_WORKFILE, Environment.UserName, DropType)
If ClassDatabase.Execute_non_Query(insert) = False Then
Exit Sub
End If
End If
End If
Next
Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
If ClassDatabase.Execute_Scalar(sql, True) >= 1 Then
Dim sql1 = String.Format("SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN FROM TBPMO_FILES_USER WHERE (UPPER(USER_WORK) = UPPER('{0}')) AND WORKED = 0", Environment.UserName)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql1)
If Not IsNothing(DT) Then
If DT.Rows.Count > 0 Then
For Each Filerow As DataRow In DT.Rows
'Dim datei = Str.ToString.Replace("@DROPFROMFSYSTEM@", "")
CURRENT_FILEID = Filerow.Item(0)
CURRENT_PARENT_ENTITY_ID = PARENT_ENTITY_ID
CURRENT_RECORD_ID = JUMP_RECORD_ID
CURRENT_FORM_ID = ENTITY_ID
CURRENT_FORMVIEW_ID = FORMVIEW_ID
If ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_FILES_USER WHERE GUID = " & CURRENT_FILEID & " AND WORKED = 0") = 1 Then
frmWD_Index_Dokart.ShowDialog()
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> File was deleted or worked meanwhile!")
End If
Next
RUN_WDSEARCH_GRID()
End If
End If
Else
MsgBox("No documenttypes for this entity configured! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
Exit Sub
End If
Catch ex As Exception
MsgBox("Check_Dropped_Files: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
End Class End Class

14
app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb generated
View File

@@ -199,7 +199,7 @@ Partial Class frmSAP_FuBa
'TempTableNameLabel 'TempTableNameLabel
' '
TempTableNameLabel.AutoSize = True TempTableNameLabel.AutoSize = True
TempTableNameLabel.Location = New System.Drawing.Point(276, 149) TempTableNameLabel.Location = New System.Drawing.Point(252, 149)
TempTableNameLabel.Name = "TempTableNameLabel" TempTableNameLabel.Name = "TempTableNameLabel"
TempTableNameLabel.Size = New System.Drawing.Size(97, 13) TempTableNameLabel.Size = New System.Drawing.Size(97, 13)
TempTableNameLabel.TabIndex = 21 TempTableNameLabel.TabIndex = 21
@@ -472,9 +472,9 @@ Partial Class frmSAP_FuBa
'TempTableNameTextBox 'TempTableNameTextBox
' '
Me.TempTableNameTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "TempTableName", True)) Me.TempTableNameTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "TempTableName", True))
Me.TempTableNameTextBox.Location = New System.Drawing.Point(279, 164) Me.TempTableNameTextBox.Location = New System.Drawing.Point(255, 164)
Me.TempTableNameTextBox.Name = "TempTableNameTextBox" Me.TempTableNameTextBox.Name = "TempTableNameTextBox"
Me.TempTableNameTextBox.Size = New System.Drawing.Size(90, 22) Me.TempTableNameTextBox.Size = New System.Drawing.Size(223, 22)
Me.TempTableNameTextBox.TabIndex = 22 Me.TempTableNameTextBox.TabIndex = 22
' '
'ACTIVECheckBox 'ACTIVECheckBox
@@ -635,7 +635,7 @@ Partial Class frmSAP_FuBa
Me.btnInsertData.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnInsertData.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnInsertData.Image = Global.DD_Record_Organiser.My.Resources.Resources.InsertColumn_5626 Me.btnInsertData.Image = Global.DD_Record_Organiser.My.Resources.Resources.InsertColumn_5626
Me.btnInsertData.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnInsertData.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnInsertData.Location = New System.Drawing.Point(463, 161) Me.btnInsertData.Location = New System.Drawing.Point(487, 161)
Me.btnInsertData.Name = "btnInsertData" Me.btnInsertData.Name = "btnInsertData"
Me.btnInsertData.Size = New System.Drawing.Size(176, 24) Me.btnInsertData.Size = New System.Drawing.Size(176, 24)
Me.btnInsertData.TabIndex = 88 Me.btnInsertData.TabIndex = 88
@@ -711,7 +711,7 @@ Partial Class frmSAP_FuBa
Me.btnGetResult.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnGetResult.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnGetResult.Image = Global.DD_Record_Organiser.My.Resources.Resources.TableView_nameonly_263 Me.btnGetResult.Image = Global.DD_Record_Organiser.My.Resources.Resources.TableView_nameonly_263
Me.btnGetResult.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnGetResult.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnGetResult.Location = New System.Drawing.Point(463, 203) Me.btnGetResult.Location = New System.Drawing.Point(487, 203)
Me.btnGetResult.Name = "btnGetResult" Me.btnGetResult.Name = "btnGetResult"
Me.btnGetResult.Size = New System.Drawing.Size(176, 23) Me.btnGetResult.Size = New System.Drawing.Size(176, 23)
Me.btnGetResult.TabIndex = 95 Me.btnGetResult.TabIndex = 95
@@ -743,9 +743,9 @@ Partial Class frmSAP_FuBa
Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(184, 167) Me.Label2.Location = New System.Drawing.Point(184, 167)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(96, 13) Me.Label2.Size = New System.Drawing.Size(70, 13)
Me.Label2.TabIndex = 98 Me.Label2.TabIndex = 98
Me.Label2.Text = "TBPMO_SAPFUBA_" Me.Label2.Text = "TBPMO_SAP_"
' '
'frmSAP_FuBa 'frmSAP_FuBa
' '

21
app/DD-Record-Organiser/frmSAP_FuBa.vb
View File

@@ -50,7 +50,6 @@ Public Class frmSAP_FuBa
End Sub End Sub
Private Sub btnERPConnect_Click(sender As Object, e As EventArgs) Handles btnERPConnect.Click Private Sub btnERPConnect_Click(sender As Object, e As EventArgs) Handles btnERPConnect.Click
Dim con As New R3Connection
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
If ClassSAP.ConnectionInit(HostTextBox.Text, SystemNumberTextBox.Text, UserNameTextBox.Text, PasswordTextBox.Text, ClientTextBox.Text, LanguageTextBox.Text) = True Then If ClassSAP.ConnectionInit(HostTextBox.Text, SystemNumberTextBox.Text, UserNameTextBox.Text, PasswordTextBox.Text, ClientTextBox.Text, LanguageTextBox.Text) = True Then
lblConnectionopen.Text = "SAP Connection successfull" lblConnectionopen.Text = "SAP Connection successfull"
@@ -110,8 +109,6 @@ Public Class frmSAP_FuBa
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnInsertData.Click Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnInsertData.Click
If TempTableNameTextBox.Text <> "" Then If TempTableNameTextBox.Text <> "" Then
Dim SAPCon As New R3Connection
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
If ClassSAP.ConnectionInit(HostTextBox.Text, SystemNumberTextBox.Text, UserNameTextBox.Text, PasswordTextBox.Text, ClientTextBox.Text, LanguageTextBox.Text) = True Then If ClassSAP.ConnectionInit(HostTextBox.Text, SystemNumberTextBox.Text, UserNameTextBox.Text, PasswordTextBox.Text, ClientTextBox.Text, LanguageTextBox.Text) = True Then
lblConnectionopen.Visible = True lblConnectionopen.Visible = True
@@ -135,7 +132,7 @@ Public Class frmSAP_FuBa
End If End If
End If End If
If SAPResulttable Is Nothing Then If SAPResulttable Is Nothing Then
SAPCon.Close() ClassSAP.SAP_CONNECTION.Close()
lblResult.Visible = False lblResult.Visible = False
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
lblSave.Visible = False lblSave.Visible = False
@@ -145,8 +142,8 @@ Public Class frmSAP_FuBa
End If End If
'###### '######
Dim i = 0 Dim i = 0
Dim tablename = "[TBPMO_SAPFUBA_" & TempTableNameTextBox.Text & "]" Dim tablename = "[TBPMO_SAP_" & TempTableNameTextBox.Text & "]"
Dim createtablesql = "CREATE TABLE TBPMO_SAPFUBA_" & TempTableNameTextBox.Text & " (" Dim createtablesql = "CREATE TABLE TBPMO_SAP_" & TempTableNameTextBox.Text & " ("
For Each col As System.Data.DataColumn In SAPResulttable.Columns For Each col As System.Data.DataColumn In SAPResulttable.Columns
@@ -248,7 +245,7 @@ Public Class frmSAP_FuBa
End Sub End Sub
Private Sub btnGetResult_Click(sender As Object, e As EventArgs) Handles btnGetResult.Click Private Sub btnGetResult_Click(sender As Object, e As EventArgs) Handles btnGetResult.Click
Dim SAPCon As New R3Connection
Dim sw As New Stopwatch Dim sw As New Stopwatch
sw.Start() sw.Start()
m_CountTo = 100 m_CountTo = 100
@@ -270,7 +267,7 @@ Public Class frmSAP_FuBa
If rbTable.Checked = True Then If rbTable.Checked = True Then
Try Try
If LogErrorsOnly = False Then ClassLogger.Add(">> Get data from SAP Table", False) If LogErrorsOnly = False Then ClassLogger.Add(">> Get data from SAP Table", False)
Dim table As New ERPConnect.Utils.ReadTable(SAPCon) Dim table As New ERPConnect.Utils.ReadTable(ClassSAP.SAP_CONNECTION)
'Dim cWhereClause = "SAP_OBJECT EQ '<ObjectType>' AND AR_DATE GE '<AR_DATE>'" 'Dim cWhereClause = "SAP_OBJECT EQ '<ObjectType>' AND AR_DATE GE '<AR_DATE>'"
'Dim sSearchDate1 = "20160101" 'Dim sSearchDate1 = "20160101"
'cWhereClause = Replace(cWhereClause, "<ObjectType>", Objekttyp.Text) 'cWhereClause = Replace(cWhereClause, "<ObjectType>", Objekttyp.Text)
@@ -309,7 +306,7 @@ Public Class frmSAP_FuBa
'For Each row As DataRow In resulttable.Rows 'For Each row As DataRow In resulttable.Rows
' ClassLogger.Add(">> " & row.Item(0).ToString & "|" & row.Item(1).ToString & "|" & row.Item(2).ToString) ' ClassLogger.Add(">> " & row.Item(0).ToString & "|" & row.Item(1).ToString & "|" & row.Item(2).ToString)
'Next 'Next
SAPCon.Close() ClassSAP.SAP_CONNECTION.Close()
If txtLimitRows.Text <> "" Then If txtLimitRows.Text <> "" Then
lblResult.Text = "Result of SAP Table (limited to " & txtLimitRows.Text & " rows)" lblResult.Text = "Result of SAP Table (limited to " & txtLimitRows.Text & " rows)"
Else Else
@@ -495,7 +492,7 @@ Public Class frmSAP_FuBa
' End Try ' End Try
End If End If
If SAPResulttable Is Nothing Then If SAPResulttable Is Nothing Then
SAPCon.Close() ClassSAP.SAP_CONNECTION.Close()
lblResult.Visible = False lblResult.Visible = False
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
lblSave.Visible = False lblSave.Visible = False
@@ -511,7 +508,7 @@ Public Class frmSAP_FuBa
If SAPResulttable.Rows.Count > 0 Then If SAPResulttable.Rows.Count > 0 Then
GridControl2.DataSource = SAPResulttable GridControl2.DataSource = SAPResulttable
End If End If
SAPCon.Close() ClassSAP.SAP_CONNECTION.Close()
Dim elapsed As Double Dim elapsed As Double
elapsed = sw.Elapsed.TotalSeconds elapsed = sw.Elapsed.TotalSeconds
sw.Stop() sw.Stop()
@@ -525,7 +522,7 @@ Public Class frmSAP_FuBa
lblSave.Visible = False lblSave.Visible = False
Catch ex As Exception Catch ex As Exception
SAPCon.Close() ClassSAP.SAP_CONNECTION.Close()
lblResult.Visible = False lblResult.Visible = False
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
lblSave.Visible = False lblSave.Visible = False