This commit is contained in:
SchreiberM
2017-02-15 13:40:11 +01:00
parent 110434ea04
commit 670f5a795a
6 changed files with 244 additions and 27 deletions

View File

@@ -225,6 +225,7 @@ Partial Class frmConstructor_Main
Me.ToolTipController = New DevExpress.Utils.ToolTipController(Me.components)
Me.TBPMO_RECORD_VARIANTTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_RECORD_VARIANTTableAdapter()
Me.TimerClearResultfiles = New System.Windows.Forms.Timer(Me.components)
Me.tsbtnPos_Refresh = New System.Windows.Forms.ToolStripButton()
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerMain.SuspendLayout()
CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -839,7 +840,7 @@ Partial Class frmConstructor_Main
Me.BindingNavigatorPOS.CountItem = Me.BindingNavigatorCountItem
Me.BindingNavigatorPOS.CountItemFormat = "von {0} positions"
Me.BindingNavigatorPOS.DeleteItem = Nothing
Me.BindingNavigatorPOS.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.tsbtnWork, Me.tslblPoslocked})
Me.BindingNavigatorPOS.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.tsbtnPos_Refresh, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.tsbtnWork, Me.tslblPoslocked})
resources.ApplyResources(Me.BindingNavigatorPOS, "BindingNavigatorPOS")
Me.BindingNavigatorPOS.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
Me.BindingNavigatorPOS.MoveLastItem = Me.BindingNavigatorMoveLastItem
@@ -1575,6 +1576,12 @@ Partial Class frmConstructor_Main
'
Me.TimerClearResultfiles.Interval = 3000
'
'tsbtnPos_Refresh
'
Me.tsbtnPos_Refresh.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG
resources.ApplyResources(Me.tsbtnPos_Refresh, "tsbtnPos_Refresh")
Me.tsbtnPos_Refresh.Name = "tsbtnPos_Refresh"
'
'frmConstructor_Main
'
resources.ApplyResources(Me, "$this")
@@ -1846,4 +1853,5 @@ Partial Class frmConstructor_Main
Friend WithEvents tsbtnStartFulltext As System.Windows.Forms.ToolStripButton
Friend WithEvents OrdnerÖffnenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TimerClearResultfiles As System.Windows.Forms.Timer
Friend WithEvents tsbtnPos_Refresh As System.Windows.Forms.ToolStripButton
End Class

View File

@@ -1256,6 +1256,15 @@
<data name="BindingNavigatorSeparator2.Size" type="System.Drawing.Size, System.Drawing">
<value>6, 25</value>
</data>
<data name="tsbtnPos_Refresh.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="tsbtnPos_Refresh.Size" type="System.Drawing.Size, System.Drawing">
<value>66, 22</value>
</data>
<data name="tsbtnPos_Refresh.Text" xml:space="preserve">
<value>Refresh</value>
</data>
<data name="BindingNavigatorDeleteItem.Enabled" type="System.Boolean, mscorlib">
<value>False</value>
</data>
@@ -4002,6 +4011,12 @@
<data name="&gt;&gt;TimerClearResultfiles.Type" xml:space="preserve">
<value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;tsbtnPos_Refresh.Name" xml:space="preserve">
<value>tsbtnPos_Refresh</value>
</data>
<data name="&gt;&gt;tsbtnPos_Refresh.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmConstructor_Main</value>
</data>

View File

@@ -4282,7 +4282,7 @@ Public Class frmConstructor_Main
Dim SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0} AND SCREEN_ID = {1}", DR.Item("DEPENDENT_DONE_CTRL_ID"), CURRENT_SCREEN_ID)
Dim ctrl_screen_id = ClassDatabase.Execute_Scalar(SQL, True)
If ctrl_screen_id > 0 Then
SQL = String.Format("SELECT CAPTION FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID = {0} AND LANGUAGE_TYPE = '{2}'", ctrl_screen_id, USER_LANGUAGE)
SQL = String.Format("SELECT CAPTION FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID = {0} AND LANGUAGE_TYPE = '{1}'", ctrl_screen_id, USER_LANGUAGE)
Dim captionCheck = ClassDatabase.Execute_Scalar(SQL, True)
If Not IsNothing(captionCheck) Then
chkFollowUp.Text = CStr(captionCheck)
@@ -4715,6 +4715,7 @@ Public Class frmConstructor_Main
If ClassRecordCommands.ConnectRecord(PARENT_RECORDID, POS_RECORD_ID, "POS_LINK for Entity " & POS_ENTITY.ToString) = True Then
ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, POS_RECORD_ID)
End If
Load_Pos_Data()
Else
MsgBox("Unexpected Error in Creating POS", MsgBoxStyle.Exclamation)
End If
@@ -6571,4 +6572,8 @@ Public Class frmConstructor_Main
TimerClearResultfiles.Stop()
End Try
End Sub
Private Sub tsbtnPos_Refresh_Click(sender As Object, e As EventArgs) Handles tsbtnPos_Refresh.Click
Load_Pos_Data()
End Sub
End Class

View File

@@ -37,6 +37,7 @@ Partial Class frmMain
Me.MainMenu = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components)
Me.itemSettings = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem19 = New DevExpress.XtraBars.BarButtonItem()
Me.itemScanInbox = New DevExpress.XtraBars.BarButtonItem()
Me.itemRefreshProxy = New DevExpress.XtraBars.BarButtonItem()
Me.itemInfo = New DevExpress.XtraBars.BarButtonItem()
Me.itemAbout = New DevExpress.XtraBars.BarButtonItem()
@@ -194,9 +195,9 @@ Partial Class frmMain
Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu
Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray
Me.ribbonMain.ExpandCollapseItem.Id = 0
Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItemConnections, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItemSAPConnect, Me.BarButtonItemStructureNOdes, Me.BarSubItem1, Me.BarButtonItem14, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemAbout, Me.BarButtonItem19, Me.btnGlobalSearch, Me.LabelUser, Me.bbtnItemViewsUser, Me.BarButtonItem23, Me.itemRefreshProxy, Me.LabelProxyServer, Me.BarSubItem2, Me.BarButtonItem24, Me.BarButtonItem25, Me.StatusPersonifiedLogin})
Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItemConnections, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItemSAPConnect, Me.BarButtonItemStructureNOdes, Me.BarSubItem1, Me.BarButtonItem14, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemAbout, Me.BarButtonItem19, Me.btnGlobalSearch, Me.LabelUser, Me.bbtnItemViewsUser, Me.BarButtonItem23, Me.itemRefreshProxy, Me.LabelProxyServer, Me.BarSubItem2, Me.BarButtonItem24, Me.BarButtonItem25, Me.StatusPersonifiedLogin, Me.itemScanInbox})
resources.ApplyResources(Me.ribbonMain, "ribbonMain")
Me.ribbonMain.MaxItemId = 6
Me.ribbonMain.MaxItemId = 7
Me.ribbonMain.Name = "ribbonMain"
Me.ribbonMain.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategory1})
Me.ribbonMain.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.pageHome, Me.pageForms, Me.pageAdmin})
@@ -207,6 +208,7 @@ Partial Class frmMain
'MainMenu
'
Me.MainMenu.ItemLinks.Add(Me.itemSettings)
Me.MainMenu.ItemLinks.Add(Me.itemScanInbox)
Me.MainMenu.ItemLinks.Add(Me.BarButtonItem19)
Me.MainMenu.ItemLinks.Add(Me.itemRefreshProxy)
Me.MainMenu.ItemLinks.Add(Me.itemInfo)
@@ -229,6 +231,14 @@ Partial Class frmMain
Me.BarButtonItem19.Id = 47
Me.BarButtonItem19.Name = "BarButtonItem19"
'
'itemScanInbox
'
resources.ApplyResources(Me.itemScanInbox, "itemScanInbox")
Me.itemScanInbox.Glyph = CType(resources.GetObject("itemScanInbox.Glyph"), System.Drawing.Image)
Me.itemScanInbox.Id = 6
Me.itemScanInbox.Name = "itemScanInbox"
Me.itemScanInbox.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
'
'itemRefreshProxy
'
resources.ApplyResources(Me.itemRefreshProxy, "itemRefreshProxy")
@@ -794,6 +804,7 @@ Partial Class frmMain
Friend WithEvents StatusPersonifiedLogin As DevExpress.XtraBars.BarStaticItem
Friend WithEvents TimerInformation As System.Windows.Forms.Timer
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents itemScanInbox As DevExpress.XtraBars.BarButtonItem
End Class

View File

@@ -1117,6 +1117,175 @@
gxXhBTzyM4OT531dfdMT3r8GiY4Xirjbybxo0lSDU/jGHY6bjGo+r+c1Q/vgxiQx3lBgickmSU/fQtLV
N5fmzFsjzZ5vJqAzz1Rg1tzVPE2llBpcvWDBYiuaD8xbbEnzDC1JfYL2QnwT8eW5ugYWGIYUES7/T/we
UVnFoWBr+TznI5VPNdUJyXP+R5GkfwMPT3OfchuhBQAAAABJRU5ErkJggg==
</value>
</data>
<data name="itemScanInbox.Caption" xml:space="preserve">
<value>Scan - Inbox</value>
</data>
<data name="itemScanInbox.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAABGdBTUEAALGPC/xhBQAAJYhJREFUeF7t
XQl4TtfapW5L9fb2rx8dcPvrYCiq2oort2iJui01VJVUqZDGFFFEg0hNkZiHqrGUxky1aFExJpGJJIh5
rNLBPCeCsv+19nf25+Rkf0Gv4XxJ3udZT0i+4Zx3rf2+7x5PPne1gQMHVhk0aBB+DBzUr1+/UCIkJCQ0
ODhYonfv3hJBQUESPXv2DO3Ro4dEt27dJD799NPQgIAACX9//9BOnTpJdOjQQcLPzy/U19dXom3btqFt
2rRphq9+EHhAXkSe3Xvr1avX42FhYVFDhgwR06ZNE7NmzRIzZ84UERER4ptvvhEzZsyQmD59uvj666/l
a6ZOnSq++uorMWXKFDF58mSJSZMmiYkTJ4oJEyaI8ePHS4wbN0588cUXYuzYsWLMmDFi9OjRYtSoURIj
R44Un3zyifDx8dlev379GriUQkCeEO6lodUWCQ8P30piz549K+61paWliS+//FIgEpx/880338Il/R0o
IC8uz+665WfLJ/kZGRkGJffHGFFatmz5B66pNEAR5EWCu23I73XR+u9Ly7caIwFqBPHGG2+E49JKAkwH
+XmdeWYx5NTSyK9v4mdt5NU6w4YN81IAoVmAwk4CRZ0Vc7799luDgvtvrD2aNWv2i4eHR/u33nqr8bvv
vlu3YcOGXgqoE5yoV6+eE3Xq1HGiVq1aXhBRHU9Pz+fgKkaRnCEiEPk4Cq6BKKIOBQYGiubNm4sGDRpI
wCES77zzjnj77bcl/vOf/0jAQRJwqKhbt66El5eXBBwmizy7WFRUlKhUqZJExYoVRYUKFSRefPFFUb58
eYly5cpJlC1bVpQpU0bihRdekHj++efFc889J//26quviho1apwFZlepUqU8XMiehnuKAZX0K2jphz78
8ENZRf/888+Gy/LMldFH7LW0aNFCIBqcq1q1agBcydrib4D7CIHk9+3b92zHjh2NW8uz2zV2RREFROXK
lT+DS/8HcI9ogP75/6JKzyP/DhjHNVBbiGeeeaYxXEsRMBLY2vJPnDhxJvN3nt0Z8/HxYSRIhW9fAB4F
7NvV7NKlS7Hg4OCzzGN5dmeMdQHSgChevLgvXFwCKCidbUPLP3z48Bas0v+KcVAnN+CvGHtK6Dksgo9f
Ah6jr+lwu1mBESNGDPPz8zMu+9bs3Llz4rfffhNHjhzJFeC98p5vx1BQszvJNPAG8BTAgtB29uDQoUNH
3o4ATp8+LX799ddciWPHjolr164Znsje0LAogIPwcSPgWYAjjrazgv379x/EPuyt2OXLl8WBAwfk7Btq
BznDlhvAe+U9895PnTpleCN7a9u2LQeLtsLHLYByQGE63G5WEMXKy4wAmzdvNi7dtf3xxx8iJCRE9OjR
Q07P/vDDDzke3333nbxXdJWlEFJSUmRDyM7OnDnDbiCLwB/h4w+BFwEODtnOHgJKIQrE3coYwPz580VA
QIDguP6SJUtyHQYMGCAbwM0mtWbPns3wfxm+HQhwIUoZwJYRgPPhxdu3bz+YY/g3s549e8rRru+//z5X
YsGCBaJTp04iNjbW8Ije2rVrxwiwG77tBfwH+CfAxmY7Y9fkH+iu/BtpII036co4jcp8yCiwaNGiXIvB
gwfL1UiujGMAnCgqUqTIUvi2E1AdKArYdvEJBylKBwUFre7WrZuscnXYtWuXFADDf24Gl5wNGzZM6yOC
q47KlSvH8D8Y8AZU/rftnACVWaxVq1a93n33XXHy5Enx559/ZsHOnTtl/mcYzM0gwcOHD9f6iKhdu7bb
hH9lVCbHqyt07tw5jUumrly5kgUsfCgAhr958+blWvTp00fMmTNH66N9+/bJ8P/3v/99FvzZEagGMPzb
ftkZ08AzgYGBkR9//LHs5uhAcbAKZpWbG8FVykyDv//+u9Y/jA6opy7Al4OA5gAXiNiy+2c1KrSol5dX
K678YX//0qVLWUCFs7vIiSNOe+Y2hIaGiqFDh2p9Q3BGtWTJkhz86QnUBbjm0JZDwDqjUsv7+/sf58BH
enq6FigWZQ7kEq/cBoo/ISFB6xcWyVw2hvAfAT/6AVWBIoDbrDqmUkuiDlhEJV+8eFGLZcuWCa4VZBTI
TWDLp/h1PiE4OmqEf9sP/rgyKrVInTp1WjZp0kRs375dXLhwIQt++eUXmQe5K4c5MbeABLMbqPMJUa1a
NfHkk09ugA8DAS+A6wDcJvwro2LLoNr/mdu3OAWqA/vC/fv3l1u2cgN4vxQ9B3l0/tiwYYMM/4UKFZoC
/3ERyKvA44D91wNajIot0apVqwkcGmbXT4fVq1cL1ApykiQ3oHfv3nJPos4XBFPiCy+8cBK+6wc0AZ4H
HgbczqjYx1955ZUGDRs2lOvnOf+vA8cEWAxyo2ZOBrt23EmUlJSk9QNRvXp1hv8Y+K4boBaA2H4xqCuj
cp9HyNvWtWtXOf+tA53Dooi1QE7GoEGDxGeffab1AcFZQm4gKVCgwFj4zQd4GeBqYLcL/8qo3Cc/+OCD
cO4COnHihBapqakyLzI/spXkVKBXJFauXKn1AcG1FKVLl/4ZPvsc4OofbhWz5eqfWzUq97FSpUrVaNq0
qZwGPX78uBZsGZwj5778nIiwsDC5CIQ9H939E9xOVqxYsVXwWVeAZw88Abj9tnMq+Nn27dvHc2j46NGj
WlAcdBAPZMiJ4PoHpgHdvRM8zMII/6Phr9YAVwD/A3Db8K+MCn4CESDM09NTDg3rcPDgQZkGOEiiTuPI
KeA98d44C6q7dwINRIX/vkADgGcO2HYPwO0YFUwlV/L29k7jwQ5cGq0DF0gEBwfLVbA5Cbwn3pvunhW4
s7hIkSJc99cFeB0oDrh9+FdGJf9fmzZtVvn6+mqXSRMcHeOYABdJ5CRw6dePP/6ovWeCw8PGwo8w4COg
IpAjwr8yuVCkdu3anV9++WVx+PBhLfbu3SvrAE4Tc/QwJ4Ctn/lfd78KPDfBWPjRG3gHeAbIEeFfGZXM
GcIXq1SpkrZt2zZZDevAlTLMh5wuDQ8Pd2sMHDhQ3ktkZKT2XhU4UGas++PCD9uv+/urJpeNe3h4RM6d
O1eOhbsCVwtzulTlTncEoxjvgfeiu0czypQpo1v3l+NMLhSpV6/eZzw1hFV/duCcOdMBq2f+dCew1fMn
70F3b2ZwSRha/yb4Jghwi3V//43JNFC9evXj3D20f//+m2Lt2rVuCd296MD1EoUKFfoKfmkPeAD/C7jN
wo/bNZkGUAf05zoBLgvLzeAE2BNPPJEMn3Dmryngdgs/btfkQhHg1ddffz2ZG0n37NmTK0HyS5QocapA
gQIT4I/OgBr6dbuFH7drHBr+P+S9pqgFfuPad06U7N69O1eAQ96cFOLRd9WqVUuCLzjxw9bPXb9MkTmm
7+/KCuDmSw8bNmwpl4Zzx+zixYvlqiBum+akUE4E740HTXPMn4NC/Pnpp5+K1q1bn0LPiEu/WPzl/JNG
eYrYlClTUtkSuCY+Nxv3SC5dulRwdLRhw4bc/cPjX5gCcqYI+vXrVwTkbyX53PyQZw7jOkAeAtGgQQOK
gOv/cqQI8k+aNGkcdwTfjPzU3X+IOUtScgwOHL75SSAcLWzVqtXFSpUqcRWwW5wJeFsWFhb2PHN+dmGf
juo9dLlo0HZajgPv69iJC8ad6o3Dx40bN46Eu7gSKEcVhPlR6Y9nwefKSH5z/5nSWU16LBYfjkwWrSfu
lPh40k7RZtIu4TN5l2g7xYF2X+0Svl/tlvhkqgN+0xxoT3y9W3SwYvpu0dEF+Dfza/l+CeMzCfU96nvb
GdfC6yJ4jbxWXnOrCTvFR4D3yCTRqNMceV+8v+yiQXJysvD29k6Hv/4N5Kgu4YOogrdzEkhnF9MuO8lv
PjhGtJt3TPjOPyb8FhwTYatPi8lx58SUeAe+SjgnpiacF1MTz4tpwNcbb2D6JgdmEEnEBYlvFJIdiLBA
/V69zvE+4zOMzyTU90wj8N28Bl4Lr4nXNpnAtU4CQiNPC1/cR7u5x4TPnKPi/eCV8v4C+rk+OIOGNMBT
w4fBZ2WBR6T3coA9zDXxrsI/8ySd06xvpHTaJyC/97KTYu2+dLHpcIYDRzJEkgnJv2ZGCvHbZSc2E79n
xpZsYH2tfL/p8yQs35lEmK6J18hr3Whgxa400W3xCSnothACIxvvc/WGvcadZzVOJNWqVYsLQ7gdPGcM
Czdq1KgUN0O4Kv7Y+hv6RYh2s39Fqz8u+iw7JWIOXnI6UisCJxGXRbKVKEARmIXYW4Xxfuvnyu+TMF0L
YCV/4y8ZIhFYvTdd+C86LiNam+mHpADafjbfuPOsxiVkNWrUYB3gtlvCrJY/JCTkXa791xkrfjrlg5BI
0X7hcdHh2+Ni8bY0kWA4MNHkVOlk6fDLEIADTkJIjoUsCZCpoCXaBPNrzZ+hPlt9l/puQl3TRsK4Tl4z
r533kHAoQ8xESqGwGdmadF0o79dVQchVUfXr1+faQFsfCnk79sBwGDc96Cw+xdEqPgzfIDqC/L4rTol4
OE06zxCAUwQgnthEWIhIMhNlQiZSbxWazyHM38fvlzCuiVDXqq49nsC9xAEB35+QAvcOi5H3S+HrbNOm
TXKFEPxm60Mhb8ceHDt2bBwHO3Sm8r/P+FTR+bsTspCKO3TJ4Tw6kg41HJuoWhpbHUKwghKAQibishB8
xQVuvCbT+wHnZzvJv/HdvBZel5N8QpEP8F5igfA1Z6TAKXTer6s6gKODH3zwgfjnP//JGcLKANcGurU9
zPXwXPygM9Xv95uxX7aSKaiq2WLiTE50isBwthLBRtUKsxMAQVItkES7gum95s91tnqA3+0kH1DXSEji
DcTiXiiASRA2Bc6uI+939LRowwNZjZNFHh4e38J3/wK4PMx9xwMCAwP/zYkQV0elywKwfYQIQLX86ZKT
4vvtaQ6nmZwYT6fSuU6HI9wy7BpEOImxEJakI/cWYf4cfq6E8T3qe9V18Lok8QYyk58hNgAz0c2kwP0h
Agogu0KQs6NeXl7b4b46wNOA244K8iGPwTwRS2ccFKEzmgcvl+R3/+GkiDEcRigR3BAAnW043kSEFIGJ
KBJvRTLCfPIf2UP3PqsAnOQTxvVIHL6cmXxA3UfMzxnipz2X5D1S6O91+1beN8c/dLZu3TrOC5yB/9x+
f+DfRowYsYJnAOhsSeR26Qif0YmS/PB1Z6WzlAicUQDOJeIBqwikEEAOIUkCaZtANpGkQHJNyEK8Fcb7
HJ9jfKbxHYT6XnUt8YRxjXG/XJbXrQTAe4nGPRFB6N5SBC1DQTDumwWwzrhQlCumihcv/il8WAFw20Wi
hcaMGXOOhx7pLHTcaukI/1kHRCCcMxH5n45yRgHpTMOxhgDo7AQ63yAh0UnMFbHRSdqdFIAD8vNJvoJx
DUoA6hpjCVzzBgiA96EEEAWMiDorhf7J5G3yvqfMTTA8kdU++ugjPirmG/hQHRDlfnVAly5dXuSyaB59
ojPm/0bI/z1B/mfLT4kFqWmO1iIdRyc6nEmnSgcbzlYCSJBkKHIsArCQaiXdFczvySQAAt/B7yPUNcQT
FIAhAl4rr5vgPfBelACmJ10QgT8iCnznGPvIbliYu4k9PT2j4MZawJOA2+0TyN+/f//O3PakM5X/vfsu
F0Egv9dPp8Xq/ZekoxwigAMNR8pWZQhAikA6HySYCJEEGbghgKtaJFuge40UgCEC52ebvk9+P8BrUdcl
yTcEwGvnPSjy1x/MEEt3pkuhUwRN/OfK+3dl3DtRt27d3+HH+oBb7hQqMGTIkHl8UILOVP73/WKj6A3y
w9eflU6is6LYahhCDQHQqbFO8ul0gwAt+VcdUEQevYHkbGB+nRIBP0N9nvr8RALfGXkgQyzYkS4itqaJ
yUkXxZeJF0R49DkxOOqcCMW9jI49L8bGnReTOEmVfFF8j9euw/31WnFaiqDlgFXy/l0NCHHijOctFy5c
uC186ZYDQgVHjhx5hE/F0JnK/wERe0XwytNi8sYLYh1bCsi/IQDUAUarij1yBQJwkC8FwFZoCCBREgQo
0gwCzQLQka6DWQTqs4j4366KZfvRnduWLsbiWseA8FEJF8TI+PNiBIgeBsKHbjgnhsScE2GGCAahqB2w
9qzot+aM+HzVGdE38rTog3ulCNpP3CzvnwNhrownrZYuXZozg1UA9zoqpkWLFk/zYASefKEz9oPpAJIf
EnlGLNiW5hCAigBGCohxCsAQgSGAeCmAq5J8nQAIJ5mAJPhY9jC/nuBnxOK7Fu6+JKZsThPj0ZK/RGsf
t+mi+GLjRTEWInAKASIYDhEM23DeIQIZDVyLoMeiX+X9cyDMlfHRMq+++uoKuJPrA4oBbjMzmD84OLgl
B4B0xokQ3nyLXkvgEDhm9RkRifyvBLAe5EcxhyoBGOSTDCkAEE8kGORLAYAsJQAziVbiUzQw/10C70nE
5yzZlyG+QoifsgVhHgKYBExMSRMTMgnBIYLR1mgAEaiUoETQ3yKC97pkXwdwBrVWrVoH4M+3gFKA28wM
Fhg0aNBk7vTVGcfBeeO+o+Ik+cPhrDXIj2tB/jqQ7xQAyKcAYkD+BqcAroo4qwAU+SCOkOSDSCL52J8O
HHcgRQP1Nwm8dh2+K2LHJfE1wv00YGpqOoSQLqYw30MMSgjmiMC0QBGMir8gRcBowJTgFAFSgjUStAxx
DIO7qgPi4uJYCF6CP7lvwK3OC3xo6NChO3gDOuM4OG+8++x9slVMhPMcAricSQBRID/68BWLABwRgORL
AYB4KQCD/E2S+D8lzMTqiLdiE97zw8HLImLnJfENARHMAKZvT3eIAUKYSiEwIhhCYDQYb4kGTAlaEZjS
QQhE0P7LTdIPLIh1xnODecjm008/HQKfqjOD3MIKcxMEDz/Qmcr/JH8gHDIH/f/VcPwaCGAtyJcikAK4
ckMAIF4KALnfKQAT+RuPOggkkkAm4ST/xM2RiPct2n9ZzN6TIWbvzhCzgJm7LjnFYBWCjAiaaGAWgaoL
tCJA5Atc4JgKZ0HsyrhErGLFigvhU7VCyP6FYFBQUH3ufdOZyv/evZdKRzA0/rg3QyOAKw4BgHynAEC+
FIBBvhQAiNeSD1IJK9GbT2ZFAqLGQpA/bx+RIebieuZCCHOcYrgkxWAVgiM1OKKBuTZggeisC7KIwFQY
QgSNOkTIATFXRj++9tpr3D5eG3CLiaEH+vXrN8zVBJDK/+3HxEtHjEDVHHngslgFAaxWAgD5LgUA8uNN
5EsBkHyQTpjJTwa5KRayrUjE67/Ddy/ENRALIARivkkMN4TgiApKCOZoYE4JUgRICVkigdE7YBdxIO6d
EZANgf5wtVqYB0vWrFmTE0MNAbdYIfTg4MGD49asWWPcQmbj+DdvuHvETjEYjuAgSmYBXHEIAOQ7BQDy
N4D8WJDvEABaLcCwLck3BJCp5Wci+prYcsrA6RvYiNctwfd99/MNLDp4RXxrEQTFYBaCSg0qGrBQNKcE
ayRQNQF7B6qLKEWAKOA3Jk76w9UCEZ4hwA20RYoU4eGRbnF6SKEhQ4ac44FPOuP4N294QOQJ6Yg56P9H
wuEOAVyRAlirBADyo0F+DMjfgLwvBYCWH49Wn8DWrwRA8lWrN8hPAdmbDSjit5rA369Aj2LJYeAX4opY
TOD7vzdEYRYDhcAUoYTgjAYmEagCMbMIjJrA6B2ocQJVDwTO3Sf9kd0CEY4IPvvssxPgW/sfHe/v7/9v
9Swcq3H+mzfbPHCRdAAdsRQOXQkHR8LhFMAaQwDrMgngqkMAIN8hAKQAa+gn+SQerV2Rn4n4M5mx6vc/
xY8QgMSRq+IHA0spCCkKhxisQphPIViiAVOCsy7IRgQcJ8hUDxipgD5xtUDk+vXr8vHxL730EieGagK2
Pj42Py42mI+D44VbTS0A/WREtHQAHTEVxdNKODcSTpYCgONlBAD5DgFcdQgArZ8CUORnaf0k3kw+SJfk
G4SnmhCD96yAABSW/+bAMnzPMpMgpBisQrBEA6sIVDpQhSF7B+ZxAiUCcyr40KgDdCuF6Ucervmvf/2L
E0PqCDnbniH0twEDBqzgBJBOACr/B87aJR3AnMgCaSpaywo4dhUcLQWA1s/BmPUgIxqkUABZwj9I3MjW
D/KTTlxzCIDkG8Qr8iXpZx3Ydu6aSMRrVuL9mYB64ifCJAiKgdHBLASVGhgNzLXBTUWAKEARZKoHkArC
jVTQYWy89IurOoDPF0AhyJXCHwDcMWTbiaFCoaGhR3gAlE4AKv+Hrj4pHUBH0CF0DMfaf4RTVzsFcFVE
KQEYrd8Z/tHypQBAfBKITwaphFMAIH0rCCccxF+X2HT6ulh97JoDxw0Y/19FHL0mIpUgTGJQQmBqUNHA
mRKsIlA1geoiMhWkuEgFRhToMXOn9IurBSJXr17lZhEeKTMUPuYzBHiOgP3Mx8fnRS5k4Nn3VjPnf7Z+
OoCOYFikY+gg5swFcKQSgDMCKAGA/HiQnyBb/zWxCeQrAaSA+M0gXpHvaPUO4redB/lnrou1EMzaE9fF
OuKkAfzb8ftrYo0hCIohEmJwCoERwRQNWCxmJwLVReQ4gbkeMKcCc0E4cJVjoairBSJ8jCxXCpcrV245
3OwJ2HJiKH9QUFBnjgBeuXLFuPQbpvK/H/K/ufVzRo2OYa6chHBJh83Yfkksg3PXg3ynAEB+HFonBZAI
otj6pQC05F8XqQbxqUA8Wv56kL3+1HURpYDfOf8N8G98jRIExWAWgjMaaESgagLVO1BdRIrAmgpU19Bc
EDIKsGHQP7qFonyQNP368ssvq4khWz5EskBISMg8DgBRsVZTG0C6T0+90frhCNX66SCGSzqMjqMDF6BV
rYCjY9D6Y0F+HMiPBzGJIEgKgKEf5DsFAPK3gngH+UKknBMiBkRHg9xo/Iw5I8QGDfj7mNNCvkaKwYgO
FALTBIWgokG2IsD1ShGY6wFGAaSC7KIAawEWxvSPq4WiXFjr4eHBiaH3AE4M2W5AqODnn3++gzuAqFir
qQ0gA3/6Q9/64SC2fjqMjqMDGU7pUA7TLoez14OEBCUAo/VLAUjyr0vytwBJ+Lck3kR67FkH4jRQfyOk
IMxCQES4EQ00IlA1gdFF1KaCm0QBpgEWxvSPqzrg0KFD8nmCRYsWtefEUMOGDZ/mAc+8UJ3x5t4PmOes
/M25fyKKJGvrj4AD6Ug6lI6lg+lotrqfQMAqiCEKpMRADLEQQzR+RjPMAySPLVoRr4iOR0RI0IC/jze9
TglBRQRGA1ciYGHI3gG7iKoeMKcCl1EAAlA9gqGIAv2XOxaKulogwp3VPFT62WefteXEUP7u3bu35OnY
ugEgtQO4XfgaqfhRUD5bgGr9bBls/SyaVOtnGKUjmVvpWDqYjmaro+NJAIlgjmbhxnBN8lWrV8STWJKc
aGAjsAnpQYH/J/g3JQanCAAKySoCVROowpBdRGsq4KyiqyigegRyXIBpwIgCTdFA6CedsSfAA6jLly9v
y4mhAr169ZrMAQtdAajyfw/kf2f4hwMoALYItgx2mdh/lq0fAlCtnw5VrZ+OpsPpeBLA1mgl39zqSaaZ
9CQgGUgxgf8n+DclCKsQKCitCBgFcC0qFSzCNVqjQKZaAAJgoasGh9gI2BhUGmgbtkb6SbdAhN1qrrBG
IWjLiaGHgoOD4zlzlV3+H4T8nzX8O6ZT2frZUtiPVrnf3PrpYNn6ST4cTwJIBAkhMSz0zOSrVk9SFemb
LwixBdgKpBrgv/k7/o2vkUIw3ptJBCoSGDUBI49KBY4ogFRgigKqFmAqo6gdg0PZpYFzotvXqdJPrhaK
btmyhWsExaOPPmq7iaHCfOQbHxKtMyUAVf1T+ZwuNXf9VPHH1s+WI3M/BJCl9aNb6Az9JB+EyJxvIZ8t
mWSSVEX6totCbAd2WMDfKTFQCBQMhWMWAdMBIwwjjewdWFKBMwoYtYDqFlLMFLVMA7hHXRpQvYHeC/dn
KwBuHeeI4FNPPWWviaGAgIB3+vXrJ598rTO1BKzvogNyVkxV/9rwD4ex5TCPsiUtQoty5n44mi1Otf5M
od8F+Yp4Er0zTYjdwB4LdgE7TUKgYKwioLhkYWhKBTIK4FpuRAFTjwACoIjNxaAaGHL2Bow0oHoDncZl
PyTMHdY+Pj7iueees9XE0AOBgYHDuKVZVwDS1CKQDqOipeKZ/9kCOETKFqGqf234h0NV+M+U+02tX4V+
lfOt5JNcEr8X2J8uxAHgoPGT/98HKCFQKFYRUFTmVMBBo0xRwFQLUKxZ0gAEYE0DujqAvST6ydXxMRxf
GT16tChbtuxB+N02E0MP9unTJ47Hv7JS1RlHt7jsqXGHCBG+6qg2/zurfziMAtCFf1n5s/Wj5bEFqtZv
Dv0q55NART7JJckk/RA0+gtwOAMw/v0zQDHwNRSKEgHTAcWkCkOZCkwFIUVIMbpOA457MfcG5Migpg7o
NdcxDuCqG6iMD6OoVKkSJ4aaAbZ4vkChvn37nktMTNT2AJSpnoB3z0Vi1IbTMgRSAK7yv6z+jfDPvrbq
+rHFqcrfnPvNrZ/EkUASSfLZykkyCf8VxP8G/H7ZAf77CEAhUCAUASMB0wEjCCOJNQqoWkD2CCxpQI0O
mnsDzjrASAMUvZogYjQcuOyIbBz0j6sl4sq40ZbPGCxatCgnhmxxhMyjXLDAGcDsBEBTxWCzrvNEn9nb
ZCjkAImr7l+mvn824d+c+9n6SRwJJJEkVJJvEH8UpB/HZZ4wcAz//wOgMCgCRgKmCkYORhAVBcy1gOoW
UoSqS0gByIEh9AZ0dYDqDpoLwTGxZ0TXCQlO8l0Vf2bjRFujRo1EqVKlODGknjB2XyeG/ocC4B5AVzWA
MqYCVRDmITNc7Q0wG2sAbrVr2bIlD5HiQ6ZtcZZgET7ejefcnj2L5nELxjBHIaj1AbkRrIkYETn276ro
sxob2LFjxwSfulayZMm18P27wH1/xnCR3r17y1UrfAiybiYwz+6MsfXTxxRAiRIl1sP3TYD7PjMoBcAD
DnkW8MmTJ43LzbM7adwmRv8SJgHYYs9gEW5j3rhxo1BPwj5zBlVSnt0xY3FtftK47QQQFBQk2A00PxH7
9OnT2nmBPLs94+iq2a+Et7e3vQTAp2LFx8eLI0eOZIKKBunp6XIY807DDsbBL921/bdgf5/h3upTwnYC
4OPRuRXc+lj0uw07GHs+umu7m7CdAAIDA0VsbKz20eh3E3awo0ePaq/tVrEicYWYv36+2Lbb9SP1reAT
V20nAK4F5HKwewlXs4/3yhj+ddd1K/h84eei4sCKouakmqLm1Jqiclhl8dbgt0TqrlTt682wnQC6d+8u
YmJisjwa/W6Dzrifzx9kQaa7rpuh6zddRePJjcXmC5vFwUv4nYGZm2eKEl1KiC07t2jfp2BLAURHR4sD
Bw7cc/Bc3XstAvZuSL7uem6G6ORoUX5AebHo1CIthm4dKpqOaKp9r4LtBNCtWzcRFRWV6bn49xr3qtt5
/vx52Qp113ArCJgaIBovbyyCDgVlge9eX+GZ4inydcmnfa8CnyhiKwF07dpVrF+/XvuM/HsJtg7Olt1s
VvJ2jcJit4zRRve9twOvQV6ickplUXMbcr+B6luri6Ibiop8a/I5MCKf9r0KthNAQECAPOOeh0LYBayW
OXbOQvGvRAaOXXBYm/1u3ef/VXSZ0kUUXFlQFI4vLPFw/MPigegHRL5oEK8QnE/7XgXbCaBLly5ypcqe
PXtsDdWP5oQKyVXgDJv6G8O77r13CuOXjBcPfPmAeCj5IS0ejHtQlO9dXvteBT5TyFYC8Pf3FzwTaPfu
3Xm4BZTrXk6UWlNKlN1RNgsKDygsIlZGaN+nYDsBcOsyNy/ywRB5uDkSNycKjz4eouS4kqLqqqrCM8ZT
VFhYQTzV5ykRNi9M+x4zbCeATp06ycef79ixIw+3gS++/0J0ntRZoteMXiIhJUH7OitsJ4COHTvK8+y4
MSQPdx8VKlQQjz322Az43h4LQnx9fX+fNWuWfMhBHu4uWGxTAA8//PBI+N4WS8Ieb9my5Q9DhgwRqamp
ebjL4BF8ZcqUOQ+/9wJscVrIP2rVquXr5+cn5wO2bt2ah7uIN954g6eHJ8Lv3CBaAygO3NftYdyZUsbb
23s79wdyB2se7g4YZcuVK3e5QIECX8DnfJYQTwy774+S4d60EqVLl2758ccfp/N0a24SycOdxeLFi2Xu
L1as2Dr4uy+gnip6X3sANO5KoQpfQm7q1bp160vMU1wixs0iefjvER4eLqpWrcrNIPvg5+GAH8BdQTwu
zhanhLAKfQqogUgwqHnz5mdZE4waNUosWbJEzhNw40gebg2cWmevig/devvtt2XYL1q0aAz8OwboAXBn
MFs/068tzgliFHgEYJek9iOPPNKtWrVqq5o0aXKCj0DlViYuZSY4l83JDA5mNGvWTLz//vsSTZs2Fe+9
9558Zm7jxo3l/jeCByPxtGw+Qq1+/frinXfekaBj6tWrJx+pQnh5eUnUqVNHHq/+5ptvSqBAleDBCjxt
8/XXX5fw9PQU1atX5xm88vQtDw8PCba01157TZ7E8corr4gqVapIVK5cmQc2y5253JzJcHy3gYh6sWTJ
kjsLFiw4F34dAZB89v0rAjwcwlaHRvNiHgV4ds0bQBuAXZVwYDTAwmVcHm4Z9NdYgM8N5NFwHQC2fJLP
DaGsvWx3bDxFwHNr+Iiz14AGQGugI9AFYNclD7cG+qsT4AOw1fPZgRz144OkbUm+MoqAQ5NUKVMCFcvz
bDwAnm+Xh1sHGxEPhSTxPA6GaZZFn23JV8YLVEJgWmAvgcrNw+2BeZ4HQLCrx9E+2xOfZ3mWZ+5n+fL9
P2tkH2rU/ce+AAAAAElFTkSuQmCC
</value>
</data>
<data name="BarButtonItem19.Caption" xml:space="preserve">
@@ -3539,6 +3708,12 @@ Konfiguration</value>
<data name="&gt;&gt;BarButtonItem19.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;itemScanInbox.Name" xml:space="preserve">
<value>itemScanInbox</value>
</data>
<data name="&gt;&gt;itemScanInbox.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;itemRefreshProxy.Name" xml:space="preserve">
<value>itemRefreshProxy</value>
</data>

View File

@@ -15,29 +15,6 @@ Public Class frmMain
Dim strIPAddress As String
Public Shared TIMER_SCAN As New System.Windows.Forms.Timer
Public Shared Sub RUN_TIMER()
Try
If TIMER_SCAN.Enabled = False And CURRENT_SCAN_FOLDERWATCH <> "" And FWSCAN_started = True Then
If System.IO.Directory.Exists(CURRENT_SCAN_FOLDERWATCH) = False Then
ClassLogger.Add(">> SCAN PATH '" & CURRENT_SCAN_FOLDERWATCH & "'not accessable!", False)
Exit Sub
End If
TIMER_SCAN.Interval = 30000
TIMER_SCAN.Enabled = True
AddHandler TIMER_SCAN.Tick, AddressOf Scan_TickHandler
Else
If TIMER_SCAN.Enabled = True And CURRENT_SCAN_FOLDERWATCH <> "" And FWSCAN_started = True Then
TIMER_SCAN.Enabled = False
RUN_TIMER()
Else
TIMER_SCAN.Enabled = False
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in RUN_TIMER:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Shared Sub Scan_TickHandler(sender As Object, e As EventArgs)
Try
If ClassFolderWatcher.NEW_FILES = False Then Exit Sub
@@ -139,6 +116,32 @@ Public Class frmMain
LabelProxyServer.Visibility = BarItemVisibility.Never
End If
End Sub
Public Shared Sub RUN_TIMER()
Try
If TIMER_SCAN.Enabled = False And CURRENT_SCAN_FOLDERWATCH <> "" And FWSCAN_started = True Then
If System.IO.Directory.Exists(CURRENT_SCAN_FOLDERWATCH) = False Then
ClassLogger.Add(">> SCAN PATH '" & CURRENT_SCAN_FOLDERWATCH & "'not accessable!", False)
Exit Sub
End If
TIMER_SCAN.Interval = 30000
TIMER_SCAN.Enabled = True
AddHandler TIMER_SCAN.Tick, AddressOf Scan_TickHandler
Else
If TIMER_SCAN.Enabled = True And CURRENT_SCAN_FOLDERWATCH <> "" And FWSCAN_started = True Then
TIMER_SCAN.Enabled = False
itemRefreshProxy.Visibility = BarItemVisibility.Always
BarButtonItemScan.visibility = always
RUN_TIMER()
Else
TIMER_SCAN.Enabled = False
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in RUN_TIMER:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Load_Connection_Dep_Data()
SetBackground()
If ERROR_INIT = "NONE" Then