MS_22062016
This commit is contained in:
SchreiberM
parent
fd8e85146a
commit
41e7886a6b
@ -5,7 +5,6 @@ Public Class ClassDragDrop
|
||||
Public Shared files_dropped As String()
|
||||
Public Shared Function Drop_File(e As DragEventArgs)
|
||||
Try
|
||||
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> In Drop_File....", False)
|
||||
files_dropped = Nothing
|
||||
|
||||
@ -168,6 +167,6 @@ Public Class ClassDragDrop
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -92,4 +92,18 @@ Public Class ClassHelper
|
||||
Return System.Text.RegularExpressions.Regex.Replace( _
|
||||
sFilename, "[?*^""<>|]", REPLACEChar)
|
||||
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
|
||||
|
||||
@ -382,8 +382,8 @@ Public Class ClassImport_Windream
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Unvorhergesehener Fehler bei Name_Generieren - Fehler: " & vbNewLine & ex.Message)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Allgemeiner Fehler bei Name_Generieren:")
|
||||
ClassLogger.Add(" - Unexpected Error in FileName-Creating: " & vbNewLine & ex.Message)
|
||||
MsgBox(" - Unexpected Error in FileName-Creating: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
|
||||
@ -1,6 +1,7 @@
|
||||
Imports ERPConnect
|
||||
Public Class ClassSAP
|
||||
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)
|
||||
Try
|
||||
If LogErrorsOnly = False Then ClassLogger.Add("", False)
|
||||
@ -10,6 +11,7 @@ Public Class ClassSAP
|
||||
ERPConnect.LIC.SetLic("W86DWC992C")
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP Connectionstring: " & SAPConnectionString, False)
|
||||
con.Open(SAPConnectionString)
|
||||
SAP_CONNECTION.Open(SAPConnectionString)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP-Connection created!", False)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add("", False)
|
||||
Return True
|
||||
@ -21,14 +23,12 @@ Public Class ClassSAP
|
||||
End Function
|
||||
Public Shared Function FuBa_Returndatatable_Seperated(FuBaName As String, SplitCharacter As String, Optional RowLimit As Integer = 0)
|
||||
Try
|
||||
Dim SAPCon As New R3Connection()
|
||||
SAPCon.Open(SAPConnectionString)
|
||||
Dim RESULT_TABLE As DataTable = New DataTable
|
||||
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Get data from FuBa-Function", False)
|
||||
Dim func As RFCFunction
|
||||
Try
|
||||
func = SAPCon.CreateFunction(FuBaName)
|
||||
func = SAP_CONNECTION.CreateFunction(FuBaName)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> func.Execute", False)
|
||||
func.Execute()
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> function was executed", False)
|
||||
@ -58,7 +58,7 @@ Public Class ClassSAP
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in Checking FunctionExecute: " & ex.Message, False)
|
||||
MsgBox("Error in Checking FunctionExecute: " & ex.Message, MsgBoxStyle.Critical)
|
||||
SAPCon.Close()
|
||||
SAP_CONNECTION.Close()
|
||||
Return Nothing
|
||||
End Try
|
||||
FUNCT_ROW_COUNT = 1
|
||||
@ -118,7 +118,7 @@ Public Class ClassSAP
|
||||
Catch ex As Exception
|
||||
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)
|
||||
SAPCon.Close()
|
||||
SAP_CONNECTION.Close()
|
||||
Return Nothing
|
||||
End Try
|
||||
Else
|
||||
|
||||
@ -432,6 +432,7 @@ Partial Class frmConstructor_Main
|
||||
'
|
||||
'GridControlDocSearch
|
||||
'
|
||||
Me.GridControlDocSearch.AllowDrop = True
|
||||
Me.GridControlDocSearch.ContextMenuStrip = Me.ContextMenuStripResultFiles
|
||||
resources.ApplyResources(Me.GridControlDocSearch, "GridControlDocSearch")
|
||||
Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
|
||||
|
||||
@ -5016,7 +5016,7 @@ Public Class frmConstructor_Main
|
||||
|
||||
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
|
||||
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
|
||||
msg = "Are You sure You want to delete this file?"
|
||||
End If
|
||||
@ -5057,22 +5057,7 @@ Public Class frmConstructor_Main
|
||||
End Sub
|
||||
|
||||
Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
|
||||
File_open()
|
||||
|
||||
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
|
||||
ClassHelper.File_open(RESULT_DOC_PATH)
|
||||
End Sub
|
||||
Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick
|
||||
Try
|
||||
@ -5080,7 +5065,7 @@ Public Class frmConstructor_Main
|
||||
Catch ex As Exception
|
||||
RESULT_DOC_PATH = Nothing
|
||||
End Try
|
||||
File_open()
|
||||
ClassHelper.File_open(RESULT_DOC_PATH)
|
||||
End Sub
|
||||
|
||||
Private Sub TabWindream_Leave(sender As Object, e As EventArgs) Handles TabWindream.Leave
|
||||
|
||||
328
app/DD-Record-Organiser/frmRecordView.Designer.vb
generated
328
app/DD-Record-Organiser/frmRecordView.Designer.vb
generated
@ -28,10 +28,11 @@ Partial Class frmRecordView
|
||||
Dim COMMENTLabel As System.Windows.Forms.Label
|
||||
Dim STATE_IDLabel 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 CHANGED_WHOLabel 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.TCDetails = New DevExpress.XtraTab.XtraTabControl()
|
||||
Me.TabDetails = New DevExpress.XtraTab.XtraTabPage()
|
||||
@ -78,24 +79,33 @@ Partial Class frmRecordView
|
||||
Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton()
|
||||
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
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.DateTimePickerTASK_DATE = New System.Windows.Forms.DateTimePicker()
|
||||
Me.COMMENTTextBox = New System.Windows.Forms.TextBox()
|
||||
Me.DUE_DATEDateTimePicker = New System.Windows.Forms.DateTimePicker()
|
||||
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.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.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.btnSaveWorkflow = New System.Windows.Forms.Button()
|
||||
Me.WF_TASK_IDTextBox = New System.Windows.Forms.TextBox()
|
||||
Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
|
||||
Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
|
||||
Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
|
||||
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()
|
||||
TITLELabel = 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()
|
||||
CHANGED_WHOLabel = 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()
|
||||
Me.TCDetails.SuspendLayout()
|
||||
Me.TabDetails.SuspendLayout()
|
||||
@ -123,15 +134,16 @@ Partial Class frmRecordView
|
||||
CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ToolStrip2.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()
|
||||
Me.SplitContainerControl1.SuspendLayout()
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer1.Panel1.SuspendLayout()
|
||||
Me.SplitContainer1.Panel2.SuspendLayout()
|
||||
Me.SplitContainer1.SuspendLayout()
|
||||
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ContextMenuStripResultFiles.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label4
|
||||
@ -185,6 +197,46 @@ Partial Class frmRecordView
|
||||
DUE_DATELabel.TabIndex = 8
|
||||
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
|
||||
'
|
||||
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.Name = "TCDetails"
|
||||
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.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.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD
|
||||
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"
|
||||
'
|
||||
'pnlDetails
|
||||
@ -223,7 +275,7 @@ Partial Class frmRecordView
|
||||
Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pnlDetails.Location = New System.Drawing.Point(0, 0)
|
||||
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
|
||||
'
|
||||
'TabFollowUp
|
||||
@ -233,7 +285,7 @@ Partial Class frmRecordView
|
||||
Me.TabFollowUp.Controls.Add(Me.Label5)
|
||||
Me.TabFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD
|
||||
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"
|
||||
'
|
||||
'ListViewFollowUps
|
||||
@ -245,7 +297,7 @@ Partial Class frmRecordView
|
||||
Me.ListViewFollowUps.HideSelection = False
|
||||
Me.ListViewFollowUps.Location = New System.Drawing.Point(14, 36)
|
||||
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.UseCompatibleStateImageBehavior = False
|
||||
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.Location = New System.Drawing.Point(283, 28)
|
||||
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.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.Location = New System.Drawing.Point(177, 20)
|
||||
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.TabStop = False
|
||||
Me.GroupBox4.Text = "Individuelle Empfänger für diesen Datensatz:"
|
||||
@ -347,7 +399,7 @@ Partial Class frmRecordView
|
||||
Me.ListBoxUser2Profile.FormattingEnabled = True
|
||||
Me.ListBoxUser2Profile.Location = New System.Drawing.Point(9, 50)
|
||||
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
|
||||
'
|
||||
'Label7
|
||||
@ -420,7 +472,7 @@ Partial Class frmRecordView
|
||||
Me.TabPos.Image = CType(resources.GetObject("TabPos.Image"), System.Drawing.Image)
|
||||
Me.TabPos.Name = "TabPos"
|
||||
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"
|
||||
'
|
||||
'Panel1
|
||||
@ -429,7 +481,7 @@ Partial Class frmRecordView
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 25)
|
||||
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
|
||||
'
|
||||
'GridControlPos
|
||||
@ -438,7 +490,7 @@ Partial Class frmRecordView
|
||||
Me.GridControlPos.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GridControlPos.MainView = Me.grvwGridPos
|
||||
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.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.Name = "TabControl1"
|
||||
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.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.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954
|
||||
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"
|
||||
'
|
||||
'GridControlDocSearch
|
||||
'
|
||||
Me.GridControlDocSearch.AllowDrop = True
|
||||
Me.GridControlDocSearch.ContextMenuStrip = Me.ContextMenuStripResultFiles
|
||||
Me.GridControlDocSearch.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GridControlDocSearch.Location = New System.Drawing.Point(0, 25)
|
||||
Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
|
||||
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.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.Location = New System.Drawing.Point(0, 0)
|
||||
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.Text = "ToolStrip2"
|
||||
'
|
||||
@ -638,6 +692,8 @@ Partial Class frmRecordView
|
||||
'
|
||||
'XtraTabPage1
|
||||
'
|
||||
Me.XtraTabPage1.Controls.Add(WF_IDLabel)
|
||||
Me.XtraTabPage1.Controls.Add(Me.WF_IDTextBox)
|
||||
Me.XtraTabPage1.Controls.Add(CHANGED_WHENLabel)
|
||||
Me.XtraTabPage1.Controls.Add(Me.CHANGED_WHENTextBox)
|
||||
Me.XtraTabPage1.Controls.Add(CHANGED_WHOLabel)
|
||||
@ -657,9 +713,83 @@ Partial Class frmRecordView
|
||||
Me.XtraTabPage1.Controls.Add(STATE_IDLabel)
|
||||
Me.XtraTabPage1.Controls.Add(Me.STATE_IDComboBox)
|
||||
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"
|
||||
'
|
||||
'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
|
||||
'
|
||||
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.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
|
||||
'
|
||||
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.Text = "Panel1"
|
||||
Me.SplitContainerControl1.Panel2.Text = "Panel2"
|
||||
Me.SplitContainerControl1.Size = New System.Drawing.Size(1175, 710)
|
||||
Me.SplitContainerControl1.SplitterPosition = 793
|
||||
Me.SplitContainerControl1.Size = New System.Drawing.Size(1175, 736)
|
||||
Me.SplitContainerControl1.SplitterPosition = 801
|
||||
Me.SplitContainerControl1.TabIndex = 4
|
||||
Me.SplitContainerControl1.Text = "SplitContainerControl1"
|
||||
'
|
||||
@ -736,20 +871,10 @@ Partial Class frmRecordView
|
||||
'SplitContainer1.Panel2
|
||||
'
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.TabControl1)
|
||||
Me.SplitContainer1.Size = New System.Drawing.Size(793, 710)
|
||||
Me.SplitContainer1.SplitterDistance = 355
|
||||
Me.SplitContainer1.Size = New System.Drawing.Size(801, 736)
|
||||
Me.SplitContainer1.SplitterDistance = 386
|
||||
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
|
||||
'
|
||||
Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = True
|
||||
@ -792,96 +917,63 @@ Partial Class frmRecordView
|
||||
Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing
|
||||
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
|
||||
'
|
||||
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.ClearBeforeFill = True
|
||||
'
|
||||
'btnSaveWorkflow
|
||||
'ContextMenuStripResultFiles
|
||||
'
|
||||
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
|
||||
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.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles"
|
||||
Me.ContextMenuStripResultFiles.Size = New System.Drawing.Size(149, 110)
|
||||
'
|
||||
'WF_TASK_IDLabel
|
||||
'DateiÖffnenToolStripMenuItem
|
||||
'
|
||||
WF_TASK_IDLabel.AutoSize = True
|
||||
WF_TASK_IDLabel.Location = New System.Drawing.Point(393, 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:"
|
||||
Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem"
|
||||
Me.DateiÖffnenToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
|
||||
Me.DateiÖffnenToolStripMenuItem.Text = "Datei Öffnen"
|
||||
'
|
||||
'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.WF_TASK_IDTextBox.Enabled = False
|
||||
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
|
||||
Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
|
||||
Me.ToolStripSeparator7.Size = New System.Drawing.Size(145, 6)
|
||||
'
|
||||
'CHANGED_WHOLabel
|
||||
'CopyToolStripMenuItem
|
||||
'
|
||||
CHANGED_WHOLabel.AutoSize = True
|
||||
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:"
|
||||
Me.CopyToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.Copy_6524
|
||||
Me.CopyToolStripMenuItem.Name = "CopyToolStripMenuItem"
|
||||
Me.CopyToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
|
||||
Me.CopyToolStripMenuItem.Text = "Kopieren"
|
||||
'
|
||||
'CHANGED_WHOTextBox
|
||||
'ToolStripSeparator8
|
||||
'
|
||||
Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "CHANGED_WHO", True))
|
||||
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
|
||||
Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
|
||||
Me.ToolStripSeparator8.Size = New System.Drawing.Size(145, 6)
|
||||
'
|
||||
'CHANGED_WHENLabel
|
||||
'DeleteToolStripMenuItem
|
||||
'
|
||||
CHANGED_WHENLabel.AutoSize = True
|
||||
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:"
|
||||
Me.DeleteToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete
|
||||
Me.DeleteToolStripMenuItem.Name = "DeleteToolStripMenuItem"
|
||||
Me.DeleteToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
|
||||
Me.DeleteToolStripMenuItem.Text = "Löschen"
|
||||
'
|
||||
'CHANGED_WHENTextBox
|
||||
'ToolStripSeparator9
|
||||
'
|
||||
Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "CHANGED_WHEN", True))
|
||||
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
|
||||
Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
|
||||
Me.ToolStripSeparator9.Size = New System.Drawing.Size(145, 6)
|
||||
'
|
||||
'PropertiesToolStripMenuItem
|
||||
'
|
||||
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
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
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.ToolStrip1)
|
||||
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.XtraTabPage1.ResumeLayout(False)
|
||||
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()
|
||||
Me.SplitContainerControl1.ResumeLayout(False)
|
||||
Me.SplitContainer1.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer1.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer1.ResumeLayout(False)
|
||||
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ContextMenuStripResultFiles.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
@ -992,4 +1085,13 @@ Partial Class frmRecordView
|
||||
Friend WithEvents WF_TASK_IDTextBox 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 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
|
||||
|
||||
@ -132,6 +132,18 @@
|
||||
<metadata name="DUE_DATELabel.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="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">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
@ -231,6 +243,9 @@
|
||||
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</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">
|
||||
<value>821, 134</value>
|
||||
</metadata>
|
||||
@ -247,35 +262,23 @@
|
||||
DwcIdDRYJUwiAB0yTe/NNUuIXy/etxLLTTpKAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</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">
|
||||
<value>17, 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 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">
|
||||
<value>672, 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 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 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>
|
||||
<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>
|
||||
@ -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">
|
||||
<value>17, 212</value>
|
||||
</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">
|
||||
<value>
|
||||
AAABAAYAICAQAAEABADoAgAAZgAAABAQEAABAAQAKAEAAE4DAAAgIAAAAQAIAKgIAAB2BAAAEBAAAAEA
|
||||
|
||||
@ -1,8 +1,35 @@
|
||||
Imports System.IO
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
Public Class frmRecordView
|
||||
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
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
Me.Text = "Detailview Record"
|
||||
@ -228,17 +255,22 @@ Public Class frmRecordView
|
||||
Private Sub Load_Tasks()
|
||||
Try
|
||||
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.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
|
||||
MsgBox("Error in Load_Tasks:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
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
|
||||
DUE_DATEDateTimePicker.Enabled = False
|
||||
DateTimePickerTASK_DATE.Enabled = False
|
||||
@ -246,6 +278,13 @@ Public Class frmRecordView
|
||||
lblnoTasks.Visible = True
|
||||
btnSaveWorkflow.Enabled = False
|
||||
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
|
||||
DUE_DATEDateTimePicker.Enabled = True
|
||||
DateTimePickerTASK_DATE.Enabled = True
|
||||
@ -254,6 +293,7 @@ Public Class frmRecordView
|
||||
btnSaveWorkflow.Enabled = True
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnSaveWorkflow_Click(sender As Object, e As EventArgs) Handles btnSaveWorkflow.Click
|
||||
@ -267,7 +307,204 @@ Public Class frmRecordView
|
||||
End If
|
||||
' 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
|
||||
MsgBox("Error in Exit:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
MsgBox("Error in save Workflow:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
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
|
||||
14
app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb
generated
14
app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb
generated
@ -199,7 +199,7 @@ Partial Class frmSAP_FuBa
|
||||
'TempTableNameLabel
|
||||
'
|
||||
TempTableNameLabel.AutoSize = True
|
||||
TempTableNameLabel.Location = New System.Drawing.Point(276, 149)
|
||||
TempTableNameLabel.Location = New System.Drawing.Point(252, 149)
|
||||
TempTableNameLabel.Name = "TempTableNameLabel"
|
||||
TempTableNameLabel.Size = New System.Drawing.Size(97, 13)
|
||||
TempTableNameLabel.TabIndex = 21
|
||||
@ -472,9 +472,9 @@ Partial Class frmSAP_FuBa
|
||||
'TempTableNameTextBox
|
||||
'
|
||||
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.Size = New System.Drawing.Size(90, 22)
|
||||
Me.TempTableNameTextBox.Size = New System.Drawing.Size(223, 22)
|
||||
Me.TempTableNameTextBox.TabIndex = 22
|
||||
'
|
||||
'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.Image = Global.DD_Record_Organiser.My.Resources.Resources.InsertColumn_5626
|
||||
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.Size = New System.Drawing.Size(176, 24)
|
||||
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.Image = Global.DD_Record_Organiser.My.Resources.Resources.TableView_nameonly_263
|
||||
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.Size = New System.Drawing.Size(176, 23)
|
||||
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.Location = New System.Drawing.Point(184, 167)
|
||||
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.Text = "TBPMO_SAPFUBA_"
|
||||
Me.Label2.Text = "TBPMO_SAP_"
|
||||
'
|
||||
'frmSAP_FuBa
|
||||
'
|
||||
|
||||
@ -50,7 +50,6 @@ Public Class frmSAP_FuBa
|
||||
End Sub
|
||||
|
||||
Private Sub btnERPConnect_Click(sender As Object, e As EventArgs) Handles btnERPConnect.Click
|
||||
Dim con As New R3Connection
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
If ClassSAP.ConnectionInit(HostTextBox.Text, SystemNumberTextBox.Text, UserNameTextBox.Text, PasswordTextBox.Text, ClientTextBox.Text, LanguageTextBox.Text) = True Then
|
||||
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
|
||||
If TempTableNameTextBox.Text <> "" Then
|
||||
Dim SAPCon As New R3Connection
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
If ClassSAP.ConnectionInit(HostTextBox.Text, SystemNumberTextBox.Text, UserNameTextBox.Text, PasswordTextBox.Text, ClientTextBox.Text, LanguageTextBox.Text) = True Then
|
||||
lblConnectionopen.Visible = True
|
||||
@ -135,7 +132,7 @@ Public Class frmSAP_FuBa
|
||||
End If
|
||||
End If
|
||||
If SAPResulttable Is Nothing Then
|
||||
SAPCon.Close()
|
||||
ClassSAP.SAP_CONNECTION.Close()
|
||||
lblResult.Visible = False
|
||||
Me.Cursor = Cursors.Default
|
||||
lblSave.Visible = False
|
||||
@ -145,8 +142,8 @@ Public Class frmSAP_FuBa
|
||||
End If
|
||||
'######
|
||||
Dim i = 0
|
||||
Dim tablename = "[TBPMO_SAPFUBA_" & TempTableNameTextBox.Text & "]"
|
||||
Dim createtablesql = "CREATE TABLE TBPMO_SAPFUBA_" & TempTableNameTextBox.Text & " ("
|
||||
Dim tablename = "[TBPMO_SAP_" & TempTableNameTextBox.Text & "]"
|
||||
Dim createtablesql = "CREATE TABLE TBPMO_SAP_" & TempTableNameTextBox.Text & " ("
|
||||
|
||||
|
||||
For Each col As System.Data.DataColumn In SAPResulttable.Columns
|
||||
@ -248,7 +245,7 @@ Public Class frmSAP_FuBa
|
||||
End Sub
|
||||
|
||||
Private Sub btnGetResult_Click(sender As Object, e As EventArgs) Handles btnGetResult.Click
|
||||
Dim SAPCon As New R3Connection
|
||||
|
||||
Dim sw As New Stopwatch
|
||||
sw.Start()
|
||||
m_CountTo = 100
|
||||
@ -270,7 +267,7 @@ Public Class frmSAP_FuBa
|
||||
If rbTable.Checked = True Then
|
||||
Try
|
||||
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 sSearchDate1 = "20160101"
|
||||
'cWhereClause = Replace(cWhereClause, "<ObjectType>", Objekttyp.Text)
|
||||
@ -309,7 +306,7 @@ Public Class frmSAP_FuBa
|
||||
'For Each row As DataRow In resulttable.Rows
|
||||
' ClassLogger.Add(">> " & row.Item(0).ToString & "|" & row.Item(1).ToString & "|" & row.Item(2).ToString)
|
||||
'Next
|
||||
SAPCon.Close()
|
||||
ClassSAP.SAP_CONNECTION.Close()
|
||||
If txtLimitRows.Text <> "" Then
|
||||
lblResult.Text = "Result of SAP Table (limited to " & txtLimitRows.Text & " rows)"
|
||||
Else
|
||||
@ -495,7 +492,7 @@ Public Class frmSAP_FuBa
|
||||
' End Try
|
||||
End If
|
||||
If SAPResulttable Is Nothing Then
|
||||
SAPCon.Close()
|
||||
ClassSAP.SAP_CONNECTION.Close()
|
||||
lblResult.Visible = False
|
||||
Me.Cursor = Cursors.Default
|
||||
lblSave.Visible = False
|
||||
@ -511,7 +508,7 @@ Public Class frmSAP_FuBa
|
||||
If SAPResulttable.Rows.Count > 0 Then
|
||||
GridControl2.DataSource = SAPResulttable
|
||||
End If
|
||||
SAPCon.Close()
|
||||
ClassSAP.SAP_CONNECTION.Close()
|
||||
Dim elapsed As Double
|
||||
elapsed = sw.Elapsed.TotalSeconds
|
||||
sw.Stop()
|
||||
@ -525,7 +522,7 @@ Public Class frmSAP_FuBa
|
||||
lblSave.Visible = False
|
||||
|
||||
Catch ex As Exception
|
||||
SAPCon.Close()
|
||||
ClassSAP.SAP_CONNECTION.Close()
|
||||
lblResult.Visible = False
|
||||
Me.Cursor = Cursors.Default
|
||||
lblSave.Visible = False
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user