MS
This commit is contained in:
parent
962daff669
commit
ce87ce9376
@ -187,9 +187,9 @@
|
||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="ObjectPropertyDialog\ctrlObjectPropertyDialog.resx">
|
||||
<DependentUpon>ctrlObjectPropertyDialog.vb</DependentUpon>
|
||||
@ -386,5 +386,17 @@
|
||||
<ItemGroup>
|
||||
<None Include="Resources\business_world.svg" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\ZooFlow_Sidebar_TOP_Drop.svg" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\ZooFlow_Sidebar_TOP_Drop_HOT.svg" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\ZooFlow_Sidebar_TOP_Drop.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\ZooFlow_Sidebar_TOP_Drop_HOT.png" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
</Project>
|
||||
@ -145,9 +145,6 @@
|
||||
<data name="ZooFlow-Vergroessern" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ZooFlow-Vergroessern.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name="Open_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Open_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@ -160,8 +157,11 @@
|
||||
<data name="jpg" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\jpg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="editcolors" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\editcolors.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
<data name="xls" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="insertpagecount" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\insertpagecount.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name="ppt" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ppt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@ -169,12 +169,15 @@
|
||||
<data name="copy" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\copy.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name="zoom_more" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\zoom_more.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="_page" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\_page.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="refreshallpivottable" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\refreshallpivottable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name="insertpagecount" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\insertpagecount.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name="enablescrolling" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\enablescrolling.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
@ -202,17 +205,14 @@
|
||||
<data name="tiff" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\tiff.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="open" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\open.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name="columnheaders" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\columnheaders.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name="_page" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\_page.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="editcolors" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\editcolors.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name="xls" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name="dwg" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\dwg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@ -232,13 +232,13 @@
|
||||
<data name="save1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\save1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name="zoom_more" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\zoom_more.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Article_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Article_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="open" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\open.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name="business_world" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\business_world.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name="Article_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Article_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
</root>
|
||||
@ -1,12 +1,13 @@
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemDateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemDateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
|
||||
@ -12,12 +12,14 @@ Public Class frmWorkflow_Adhoc_start
|
||||
Private ReadOnly Property Logger As Logger
|
||||
Private Property OperationMode As OperationMode
|
||||
Private ReadOnly Environment As Environment
|
||||
Private ReadOnly AdHocWorkflow As AdHocWorkflow
|
||||
Private Client As Client
|
||||
Private IsLoading As Boolean = True
|
||||
Public Sub New(pLogConfig As LogConfig, pEnvironment As Environment, pObjectID As Long)
|
||||
Public Sub New(pLogConfig As LogConfig, pEnvironment As Environment, pAdhocWorkflow As AdHocWorkflow)
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
Environment = pEnvironment
|
||||
AdHocWorkflow = pAdhocWorkflow
|
||||
LogConfig = pLogConfig
|
||||
Logger = pLogConfig.GetLogger()
|
||||
End Sub
|
||||
|
||||
@ -40,6 +40,7 @@ Public Class ClassInit
|
||||
_Loader.AddStep("Initializing EDMI Service", AddressOf InitializeService, True)
|
||||
_Loader.AddStep("Initializing Database", AddressOf InitializeDatabaseWithFallback, True)
|
||||
_Loader.AddStep("Initializing User", AddressOf InitializeUser, True)
|
||||
_Loader.AddStep("Initializing BasicCatalogues", AddressOf InitializeBasicsfromDB, True)
|
||||
_Loader.AddStep("Initializing Language", AddressOf InitializeLanguage, False)
|
||||
_Loader.AddStep("Initializing 3rd-party licenses", AddressOf Initialize3rdParty, False)
|
||||
_Loader.AddStep("Initializing Basic Config", AddressOf InitBasicConfig, False)
|
||||
@ -193,6 +194,31 @@ Public Class ClassInit
|
||||
Throw New InitException($"Unexpected error while initializing user!", ex)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub InitializeBasicsfromDB(MyApplication As My.MyApplication)
|
||||
Try
|
||||
Dim oSql As String = My.Queries.Common.IDB_CATALOG()
|
||||
Dim oDatatable As DataTable = My.Database.GetDatatableIDB(oSql)
|
||||
For Each oRow As DataRow In oDatatable.Rows
|
||||
Dim oCAT_TITLE As String = oRow.Item("CAT_TITLE")
|
||||
|
||||
Select Case oCAT_TITLE
|
||||
Case "AHWF_CMD_USR_SELECT"
|
||||
AHWF_CMD_USR_SELECT = oRow.Item("CAT_STRING")
|
||||
Case "AHWF_CMD_LAYOUT_SELECT"
|
||||
AHWF_CMD_LAYOUT_SELECT = oRow.Item("CAT_STRING")
|
||||
|
||||
End Select
|
||||
Next
|
||||
|
||||
Catch ex As InitException
|
||||
Logger.Error(ex)
|
||||
Throw ex
|
||||
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Throw New InitException($"Unexpected error while initializing basics from DB!", ex)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub InitializeLanguage(MyApplication As My.MyApplication)
|
||||
Dim oLanguage = MyApplication.User.Language
|
||||
Dim oDateFormat = MyApplication.User.DateFormat
|
||||
|
||||
@ -72,6 +72,13 @@ Namespace My
|
||||
.User = My.Application.User
|
||||
}
|
||||
End Function
|
||||
Public Function GetAdHocWorkflow(pObjectID As Long) As AdHocWorkflow
|
||||
Return New AdHocWorkflow With {
|
||||
.AHWF_CMD_LAYOUT_SELECT = AHWF_CMD_LAYOUT_SELECT,
|
||||
.AHWF_CMD_USR_SELECT = AHWF_CMD_USR_SELECT,
|
||||
.OBJECT_ID = pObjectID
|
||||
}
|
||||
End Function
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
|
||||
@ -10,4 +10,7 @@
|
||||
Public Function FNIDB_GET_SEARCH_PROFILES(UserId As Integer, UserLanguage As String) As String
|
||||
Return String.Format("SELECT * FROM [dbo].[FNIDB_GET_SEARCH_PROFILES] ({0},'{1}')", UserId, UserLanguage)
|
||||
End Function
|
||||
Public Function IDB_CATALOG() As String
|
||||
Return String.Format("SELECT * FROM TBIDB_CATALOG")
|
||||
End Function
|
||||
End Class
|
||||
|
||||
@ -770,12 +770,6 @@
|
||||
<ItemGroup>
|
||||
<None Include="Resources\1_LOGO_ZOO_FLOW1.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\1_LOGO_ZOO_FLOW_DROP2.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\1_LOGO_ZOO_FLOW_DROP3.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\2_ZOO_FLOW_Abo.png" />
|
||||
</ItemGroup>
|
||||
|
||||
34
GUIs.ZooFlow/frmFlowForm.Designer.vb
generated
34
GUIs.ZooFlow/frmFlowForm.Designer.vb
generated
@ -38,7 +38,7 @@ Partial Class frmFlowForm
|
||||
Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.ZooFlowBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TimerRefreshData = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.TimerRefreshSidebarData = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
|
||||
Me.PictureBoxPM = New DevExpress.XtraEditors.SvgImageBox()
|
||||
Me.PictureBoxSearch = New DevExpress.XtraEditors.SvgImageBox()
|
||||
@ -73,9 +73,9 @@ Partial Class frmFlowForm
|
||||
Me.GridBand1 = New DevExpress.XtraGrid.Views.BandedGrid.GridBand()
|
||||
Me.colPrimary = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn()
|
||||
Me.colSecondary = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn()
|
||||
Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
|
||||
Me.AdornerUIManager1 = New DevExpress.Utils.VisualEffects.AdornerUIManager(Me.components)
|
||||
Me.TaskBadge = New DevExpress.Utils.VisualEffects.Badge()
|
||||
Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
|
||||
Me.ContextMenuSystray.SuspendLayout()
|
||||
CType(Me.PictureBoxPM, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBoxSearch, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@ -156,6 +156,10 @@ Partial Class frmFlowForm
|
||||
Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
|
||||
Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden"
|
||||
'
|
||||
'TimerRefreshSidebarData
|
||||
'
|
||||
Me.TimerRefreshSidebarData.Interval = 10000
|
||||
'
|
||||
'PictureBoxPM
|
||||
'
|
||||
Me.PictureBoxPM.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
@ -481,6 +485,18 @@ Partial Class frmFlowForm
|
||||
Me.colSecondary.RowIndex = 1
|
||||
Me.colSecondary.Visible = True
|
||||
'
|
||||
'LabelControl1
|
||||
'
|
||||
Me.LabelControl1.Anchor = System.Windows.Forms.AnchorStyles.Bottom
|
||||
Me.LabelControl1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.LabelControl1.Appearance.Options.UseFont = True
|
||||
Me.LabelControl1.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None
|
||||
Me.LabelControl1.Location = New System.Drawing.Point(21, 222)
|
||||
Me.LabelControl1.Name = "LabelControl1"
|
||||
Me.LabelControl1.Size = New System.Drawing.Size(158, 18)
|
||||
Me.LabelControl1.TabIndex = 0
|
||||
Me.LabelControl1.Text = "Zuletzt bearbeitet"
|
||||
'
|
||||
'AdornerUIManager1
|
||||
'
|
||||
Me.AdornerUIManager1.Elements.Add(Me.TaskBadge)
|
||||
@ -497,18 +513,6 @@ Partial Class frmFlowForm
|
||||
Me.TaskBadge.TargetElement = Me.PictureBoxPM
|
||||
Me.TaskBadge.TargetElementRegion = DevExpress.Utils.VisualEffects.TargetElementRegion.Control
|
||||
'
|
||||
'LabelControl1
|
||||
'
|
||||
Me.LabelControl1.Anchor = System.Windows.Forms.AnchorStyles.Bottom
|
||||
Me.LabelControl1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.LabelControl1.Appearance.Options.UseFont = True
|
||||
Me.LabelControl1.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None
|
||||
Me.LabelControl1.Location = New System.Drawing.Point(21, 222)
|
||||
Me.LabelControl1.Name = "LabelControl1"
|
||||
Me.LabelControl1.Size = New System.Drawing.Size(158, 18)
|
||||
Me.LabelControl1.TabIndex = 0
|
||||
Me.LabelControl1.Text = "Zuletzt bearbeitet"
|
||||
'
|
||||
'frmFlowForm
|
||||
'
|
||||
Me.AllowDrop = True
|
||||
@ -553,7 +557,7 @@ Partial Class frmFlowForm
|
||||
Friend WithEvents ContextMenuSystray As ContextMenuStrip
|
||||
Friend WithEvents VerwaltungToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ZooFlowBeendenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents TimerRefreshData As Timer
|
||||
Friend WithEvents TimerRefreshSidebarData As Timer
|
||||
Friend WithEvents ToolTip1 As ToolTip
|
||||
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
|
||||
Friend WithEvents TimerFolderwatch As Timer
|
||||
|
||||
@ -1956,17 +1956,17 @@
|
||||
AMADAADwDwAA
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="TimerRefreshData.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<metadata name="TimerRefreshSidebarData.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>468, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>617, 17</value>
|
||||
<value>658, 17</value>
|
||||
</metadata>
|
||||
<metadata name="TimerFolderwatch.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>716, 17</value>
|
||||
<value>757, 17</value>
|
||||
</metadata>
|
||||
<metadata name="BarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>865, 17</value>
|
||||
<value>906, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<data name="BarSubItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
@ -2042,6 +2042,6 @@
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="AdornerUIManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>990, 17</value>
|
||||
<value>1031, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@ -72,6 +72,7 @@ Public Class frmFlowForm
|
||||
ABN_FULLSCREENAPP
|
||||
ABN_WINDOWARRANGE
|
||||
End Enum
|
||||
Public LOAD_SIDEBAR_DATA As Boolean = False
|
||||
#End Region
|
||||
#Region "Sidebar Enum Properties Register"
|
||||
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
|
||||
@ -242,8 +243,8 @@ Public Class frmFlowForm
|
||||
End If
|
||||
|
||||
' === Setup Timers ===
|
||||
AddHandler TimerRefreshData.Tick, AddressOf TimerRefreshData_Tick
|
||||
TimerRefreshData.Enabled = True
|
||||
AddHandler TimerRefreshSidebarData.Tick, AddressOf TimerRefreshSidebarData_Tick
|
||||
TimerRefreshSidebarData.Enabled = True
|
||||
|
||||
' === Setup Event Handlers ===
|
||||
AddHandler KeyDown, AddressOf frmFlowForm_KeyDown
|
||||
@ -259,12 +260,7 @@ Public Class frmFlowForm
|
||||
End If
|
||||
Next
|
||||
|
||||
Dim oSql = $"SELECT TOP 10 * FROM VWIDB_DOCRESULT_DE WHERE [Changed who] = '{My.Application.User.UserName}' ORDER BY [Changed when] DESC"
|
||||
Dim AccessedFilesTable = Await My.Database.GetDatatableIDBAsync(oSql)
|
||||
|
||||
GridControl1.DataSource = AccessedFilesTable
|
||||
colPrimary.FieldName = "DisplayFileName"
|
||||
colSecondary.FieldName = "Changed when"
|
||||
Load_Recent_Files
|
||||
|
||||
If My.Application.ModulesActive.Contains(MODULE_CLIPBOARDWATCHER) Then
|
||||
Try
|
||||
@ -395,7 +391,18 @@ Public Class frmFlowForm
|
||||
SHAppBarMessage(ABMsg.ABM_REMOVE, AppDeskData)
|
||||
End If
|
||||
End Sub
|
||||
Async Sub Load_Recent_Files()
|
||||
Try
|
||||
Dim oSql = $"SELECT TOP 10 * FROM VWIDB_DOCRESULT_DE WHERE [Changed who] = '{My.Application.User.UserName}' ORDER BY [Changed when] DESC"
|
||||
Dim AccessedFilesTable = Await My.Database.GetDatatableIDBAsync(oSql)
|
||||
|
||||
GridControl1.DataSource = AccessedFilesTable
|
||||
colPrimary.FieldName = "DisplayFileName"
|
||||
colSecondary.FieldName = "Changed when"
|
||||
Catch ex As Exception
|
||||
ShowErrorMessage(ex)
|
||||
End Try
|
||||
End Sub
|
||||
Public Sub Init_Folderwatch()
|
||||
Try
|
||||
Dim oSql As String = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & My.Application.User.UserId
|
||||
@ -463,10 +470,6 @@ Public Class frmFlowForm
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TimerRefreshData_Tick(sender As Object, e As EventArgs)
|
||||
'TODO: Refresh Data
|
||||
End Sub
|
||||
|
||||
Private Sub frmFlowForm_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
|
||||
If e.KeyCode = Keys.Escape Then
|
||||
If RunningTask IsNot Nothing Then
|
||||
@ -542,8 +545,8 @@ Public Class frmFlowForm
|
||||
|
||||
Private Sub frmFlowForm_DragEnter(sender As Object, e As DragEventArgs) Handles MyBase.DragEnter
|
||||
If My.Application.GlobixDropAreaStyle = "PROGRESSIVE" Then
|
||||
'PictureBoxDragDrop.Image = My.Resources._1_LOGO_ZOO_FLOW_DROP3
|
||||
PictureEdit2.Image = My.Resources.ZooFlow_drop_drag
|
||||
PictureEdit2.Image = My.Resources._1_LOGO_ZOO_FLOW_DROP3
|
||||
'PictureEdit2.Image = My.Resources.ZooFlow_drop_drag
|
||||
Else
|
||||
'PictureBoxDragDrop.Image = My.Resources._1_LOGO_ZOO_FLOW_DROP2
|
||||
PictureEdit2.Image = My.Resources.ZooFlow_drop_drag
|
||||
@ -1242,5 +1245,12 @@ Public Class frmFlowForm
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub TimerRefreshSidebarData_Tick(sender As Object, e As EventArgs) Handles TimerRefreshSidebarData.Tick
|
||||
If LOAD_SIDEBAR_DATA = True Then
|
||||
Load_Recent_Files()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
10
GUIs.ZooFlow/frmtest.Designer.vb
generated
10
GUIs.ZooFlow/frmtest.Designer.vb
generated
@ -39,6 +39,7 @@ Partial Class frmtest
|
||||
Me.txtDoctypeID = New System.Windows.Forms.TextBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.txtObjectID = New System.Windows.Forms.TextBox()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label2
|
||||
@ -182,11 +183,19 @@ Partial Class frmtest
|
||||
Me.Button1.Text = "AdhocWorkflow"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtObjectID
|
||||
'
|
||||
Me.txtObjectID.Location = New System.Drawing.Point(174, 193)
|
||||
Me.txtObjectID.Name = "txtObjectID"
|
||||
Me.txtObjectID.Size = New System.Drawing.Size(118, 20)
|
||||
Me.txtObjectID.TabIndex = 25
|
||||
'
|
||||
'frmtest
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(865, 450)
|
||||
Me.Controls.Add(Me.txtObjectID)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.txtDoctypeID)
|
||||
@ -226,4 +235,5 @@ Partial Class frmtest
|
||||
Friend WithEvents txtDoctypeID As TextBox
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents Button1 As Button
|
||||
Friend WithEvents txtObjectID As TextBox
|
||||
End Class
|
||||
|
||||
@ -5,10 +5,12 @@ Imports DigitalData.Modules.ZooFlow
|
||||
|
||||
Public Class frmtest
|
||||
Private Property Environment As Environment
|
||||
Private Property AdHoc_Workflow As AdHocWorkflow
|
||||
|
||||
Private Sub frmtest_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
cmbObjectStoreType.SelectedIndex = 0
|
||||
Environment = My.Application.GetEnvironment()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnOpenFile_Click(sender As Object, e As EventArgs) Handles btnOpenFile.Click
|
||||
@ -73,7 +75,8 @@ Public Class frmtest
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Dim oForm As New frmWorkflow_Adhoc_start(My.LogConfig, Environment, 4711)
|
||||
AdHoc_Workflow = My.Application.GetAdHocWorkflow(txtObjectID.Text)
|
||||
Dim oForm As New frmWorkflow_Adhoc_start(My.LogConfig, Environment, AdHoc_Workflow)
|
||||
oForm.Show()
|
||||
oForm.BringToFront()
|
||||
oForm.Focus()
|
||||
|
||||
@ -11,5 +11,7 @@ Module modCurrent
|
||||
Public Property NI_TYPE As String = "INFO"
|
||||
Public Property GLOBIX_JUMP_DOCTYPE_ID As Integer
|
||||
|
||||
Public Property AHWF_CMD_USR_SELECT As String
|
||||
Public Property AHWF_CMD_LAYOUT_SELECT As String
|
||||
Public Property DocResultBaseSearch As String
|
||||
End Module
|
||||
|
||||
5
Modules.ZooFlow/AdHocWorkflow.vb
Normal file
5
Modules.ZooFlow/AdHocWorkflow.vb
Normal file
@ -0,0 +1,5 @@
|
||||
Public Class AdHocWorkflow
|
||||
Public Property AHWF_CMD_LAYOUT_SELECT As String
|
||||
Public Property AHWF_CMD_USR_SELECT As String
|
||||
Public Property OBJECT_ID As Long
|
||||
End Class
|
||||
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.1.0.0")>
|
||||
<Assembly: AssemblyVersion("1.2.0.0")>
|
||||
<Assembly: AssemblyFileVersion("1.1.0.0")>
|
||||
|
||||
@ -74,6 +74,7 @@
|
||||
<Import Include="System.Threading.Tasks" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="AdHocWorkflow.vb" />
|
||||
<Compile Include="Constants.vb" />
|
||||
<Compile Include="Environment.vb" />
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user