AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS: Push Conversations

Browse Source
This commit is contained in:
SchreiberM 2020-06-23 10:39:57 +02:00
parent 671eccc2e9
commit bd518eeff1
9 changed files with 320 additions and 149 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
View File

@ -871,6 +871,7 @@
<ItemGroup> <ItemGroup>
<Content Include="DD_Icons_ICO_PMANAGER_48px.ico" /> <Content Include="DD_Icons_ICO_PMANAGER_48px.ico" />
<Content Include="PM_ohne_slogan_128px.ico" /> <Content Include="PM_ohne_slogan_128px.ico" />
<None Include="Resources\conversation.jpg" />
<None Include="Resources\DeleteFilter_5563.png" /> <None Include="Resources\DeleteFilter_5563.png" />
<None Include="Resources\SQL_Letters.png" /> <None Include="Resources\SQL_Letters.png" />
<None Include="Resources\Link_5762.png" /> <None Include="Resources\Link_5762.png" />

10
app/DD_PM_WINDREAM/My Project/Resources.Designer.vb generated
View File

@ -270,6 +270,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property conversation() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("conversation", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>

67
app/DD_PM_WINDREAM/My Project/Resources.resx
View File

@ -121,18 +121,9 @@
<data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="asterisk_yellow" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="asterisk_yellow" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\asterisk_yellow.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\asterisk_yellow.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hide_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="hide_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\hide_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\hide_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -190,6 +181,9 @@
<data name="Search(Go)_5718" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Search(Go)_5718" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Search(Go)_5718.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Search(Go)_5718.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="ampel-gruen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ampel-gruen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="application_form_edit" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="application_form_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\application_form_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\application_form_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -211,15 +205,15 @@
<data name="database_go" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="database_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="DeleteFilter_5563" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\DeleteFilter_5563.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="database_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\database_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="information" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="information" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\information.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\information.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Image_File" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Image_File.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="key_go" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="key_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -232,6 +226,9 @@
<data name="xls" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="show_16x16" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\show_16x16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="dxf" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="dxf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dxf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\dxf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -250,6 +247,9 @@
<data name="Hammer_Builder_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Hammer_Builder_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Hammer_Builder_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Hammer_Builder_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="magifier_zoom_out" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\magifier_zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="page_copy" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="page_copy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\page_copy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\page_copy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -265,6 +265,9 @@
<data name="properties_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="properties_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\properties_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\properties_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="bullet_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bullet_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="add" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="add" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -274,8 +277,11 @@
<data name="user" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="user" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\user.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\user.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="ampel-gruen" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="shape_square_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ampel-gruen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\shape_square_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="A_1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="A_1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\A_1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\A_1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -307,9 +313,6 @@
<data name="resultset_last" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="resultset_last" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\resultset_last.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\resultset_last.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="shape_square_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\shape_square_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bullet_green" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="bullet_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bullet_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\bullet_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -340,17 +343,20 @@
<data name="ID_FILE_PAGE_SETUP" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="ID_FILE_PAGE_SETUP" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ID_FILE_PAGE_SETUP.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\ID_FILE_PAGE_SETUP.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="flag_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flag_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flag_orange" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="flag_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flag_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\flag_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="bullet_red" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bullet_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="resultset_previous" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="resultset_previous" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\resultset_previous.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\resultset_previous.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="email_go" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Image_File" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Image_File.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Files_7954" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Files_7954" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Files_7954.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Files_7954.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -361,8 +367,8 @@
<data name="Monitor_Screen_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Monitor_Screen_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Monitor_Screen_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Monitor_Screen_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="flag_red" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flag_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="OpenFileDialog_692" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="OpenFileDialog_692" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\OpenFileDialog_692.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\OpenFileDialog_692.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -370,9 +376,6 @@
<data name="doc_text_image" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="doc_text_image" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\doc_text_image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\doc_text_image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -385,8 +388,8 @@
<data name="WorkItem_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="WorkItem_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WorkItem_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\WorkItem_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="show_16x16" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\show_16x16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="resultset_first" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="resultset_first" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\resultset_first.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\resultset_first.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -406,8 +409,8 @@
<data name="Checkbox" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Checkbox" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Checkbox.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Checkbox.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="magifier_zoom_out" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\magifier_zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="key1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="key1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\key1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\key1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -415,7 +418,7 @@
<data name="user_red" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="user_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\user_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\user_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="DeleteFilter_5563" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="conversation" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\DeleteFilter_5563.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\conversation.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
</root> </root>

BIN
app/DD_PM_WINDREAM/Resources/conversation.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 44 KiB

2
app/DD_PM_WINDREAM/frmChat_NewConversation.vb
View File

@ -14,7 +14,7 @@
InitializeComponent() InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
ChatNewConv1.Init(LOGCONFIG, CONNECTION_STRING_IDB, CURRENT_DOC_ID, USER_USERNAME, USER_LANGUAGE, oDTUsers, oDTGroups) ChatNewConv1.Init(LOGCONFIG, CONNECTION_STRING_IDB, CURRENT_DOC_ID, USER_ID, USER_USERNAME, USER_LANGUAGE, oDTUsers, oDTGroups)
AddHandler ChatNewConv1.Conversation_Created, AddressOf onConversationCreated AddHandler ChatNewConv1.Conversation_Created, AddressOf onConversationCreated
End Sub End Sub
Sub onConversationCreated() Sub onConversationCreated()

99
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -409,6 +409,11 @@ Public Class frmMain
GridView_Docs.Columns.Item("ICON").MinWidth = 24 GridView_Docs.Columns.Item("ICON").MinWidth = 24
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left
GridView_Docs.Columns.Item("CONV_YN").Visible = False
GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24
GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24
'GridView_Docs.Columns.Item("CONVERSATION").AppearanceCell.BackColor = Color.White
GridView_Docs.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
Try Try
GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
@ -659,6 +664,12 @@ Public Class frmMain
GridView_Docs.Columns.Item("ICON").MinWidth = 24 GridView_Docs.Columns.Item("ICON").MinWidth = 24
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left
GridView_Docs.Columns.Item("CONV_YN").Visible = False
GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24
GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24
'GridView_Docs.Columns.Item("CONVERSATION").AppearanceCell.BackColor = Color.White
GridView_Docs.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
' GridView_Docs.OptionsView.ShowIndicator = False ' GridView_Docs.OptionsView.ShowIndicator = False
Try Try
GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
@ -702,7 +713,7 @@ Public Class frmMain
If oViewColumn.Caption = oGridDXFieldName Then If oViewColumn.Caption = oGridDXFieldName Then
If oActGridColumn.Visible = False Then If oActGridColumn.Visible = False Then
If oViewColumn.Caption <> "GUID" And oViewColumn.Caption <> "TL_STATE" And oViewColumn.Caption <> "PROFILE_ID" And oViewColumn.Caption <> "DocID" And If oViewColumn.Caption <> "GUID" And oViewColumn.Caption <> "TL_STATE" And oViewColumn.Caption <> "PROFILE_ID" And oViewColumn.Caption <> "DocID" And
oViewColumn.Caption <> "FULL_FILE_PATH" And oViewColumn.Caption <> "GROUP_COLOR" And oViewColumn.Caption <> "GROUP_TEXT" Then oViewColumn.Caption <> "FULL_FILE_PATH" And oViewColumn.Caption <> "GROUP_COLOR" And oViewColumn.Caption <> "GROUP_TEXT" And oViewColumn.Caption <> "CONV_YN" Then
Console.WriteLine($"ViewColumn [{oViewColumn.Caption}] is invisible") Console.WriteLine($"ViewColumn [{oViewColumn.Caption}] is invisible")
Else Else
oViewColumn_exists = True oViewColumn_exists = True
@ -739,7 +750,32 @@ Public Class frmMain
Return False Return False
End Try End Try
End Function End Function
Private Function Column_inGridViewLayout(Col2bChecked As String) As Boolean
Try
Dim oGridView As New GridView
Dim oXml As String = GetXML_OverviewLayoutName()
oGridView.RestoreLayoutFromXml(oXml, OptionsLayoutBase.FullLayout)
Dim oViewColumn_exists As Boolean = False
For Each oActGridColumn As GridColumn In oGridView.Columns
Dim oGridDXFieldName = oActGridColumn.FieldName
Dim GridDXColumnEditName = oActGridColumn.ColumnEditName
Dim GridDXFieldName = oActGridColumn.FieldName
If Col2bChecked = oGridDXFieldName Then
oViewColumn_exists = True
Exit For
End If
Next
If oViewColumn_exists = False Then
LOGGER.Info($"Following ViewColumn is not existing in the view: [{Col2bChecked}]")
Return Not False
End If
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in Column_inGridViewLayout: " & ex.Message)
Return Not False
End Try
End Function
Private Sub NotifyIcon1_MouseDoubleClick(sender As System.Object, e As MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick Private Sub NotifyIcon1_MouseDoubleClick(sender As System.Object, e As MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
BringMonitor2Front() BringMonitor2Front()
@ -788,7 +824,7 @@ Public Class frmMain
LoadNavBar() LoadNavBar()
'bwSync.ReportProgress(60) 'bwSync.ReportProgress(60)
Dim oStopWatch As New RefreshHelper.SW("Decide_Load") Dim oStopWatch As New RefreshHelper.SW("Decide_Load")
Decide_Load() Decide_Load(False)
oStopWatch.Done() oStopWatch.Done()
'bwSync.ReportProgress(95) 'bwSync.ReportProgress(95)
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
@ -816,7 +852,7 @@ Public Class frmMain
Private Sub NotifyIcon1_Click(sender As System.Object, e As EventArgs) Handles NotifyIcon1.Click Private Sub NotifyIcon1_Click(sender As System.Object, e As EventArgs) Handles NotifyIcon1.Click
BringMonitor2Front() BringMonitor2Front()
End Sub End Sub
Private Sub Decide_Load() Private Sub Decide_Load(FormLoad As Boolean)
Try Try
If USER_EXISTS = False Then If USER_EXISTS = False Then
Exit Sub Exit Sub
@ -825,7 +861,7 @@ Public Class frmMain
TimerRefresh.Enabled = False TimerRefresh.Enabled = False
End If End If
If GRID_LOAD_TYPE = "OVERVIEW" Then If GRID_LOAD_TYPE = "OVERVIEW" Then
Load_Grid_Overview() Load_Grid_Overview(FormLoad)
ElseIf GRID_LOAD_TYPE.StartsWith("PROFILE#") Then ElseIf GRID_LOAD_TYPE.StartsWith("PROFILE#") Then
Load_single_Profile() Load_single_Profile()
End If End If
@ -1273,7 +1309,7 @@ Public Class frmMain
TimerRefresh.Enabled = False TimerRefresh.Enabled = False
frmMassValidator.ShowDialog() frmMassValidator.ShowDialog()
LoadNavBar() LoadNavBar()
Decide_Load() Decide_Load(False)
Else Else
If USER_LANGUAGE = "de-DE" Then If USER_LANGUAGE = "de-DE" Then
MsgBox("Massenabschluss konnte nicht ausgeführt werden, weil windream nicht initialisiert werden konnte!", MsgBoxStyle.Critical, "Massenabschluss") MsgBox("Massenabschluss konnte nicht ausgeführt werden, weil windream nicht initialisiert werden konnte!", MsgBoxStyle.Critical, "Massenabschluss")
@ -1294,10 +1330,10 @@ Public Class frmMain
' Das aktuelle Layout speichern, bevor das neue geladen wird ' Das aktuelle Layout speichern, bevor das neue geladen wird
' und GRID_LOAD_TYPE gesetzt wird. ' und GRID_LOAD_TYPE gesetzt wird.
SaveGridLayout() SaveGridLayout()
Load_Grid_Overview() Load_Grid_Overview(False)
RefreshHelper.LoadViewInfo() RefreshHelper.LoadViewInfo()
End Sub End Sub
Sub Load_Grid_Overview() Sub Load_Grid_Overview(FormLoad As Boolean)
Dim oStopWatch As New RefreshHelper.SW("Load_Grid_Overview(LGO)") Dim oStopWatch As New RefreshHelper.SW("Load_Grid_Overview(LGO)")
Layout_Single_Profile() Layout_Single_Profile()
GRID_LOAD_TYPE = "OVERVIEW" GRID_LOAD_TYPE = "OVERVIEW"
@ -1386,10 +1422,10 @@ Public Class frmMain
columnStateIcon.Caption = "" columnStateIcon.Caption = ""
CURR_DT_OVERVIEW.Columns.Add(columnStateIcon) CURR_DT_OVERVIEW.Columns.Add(columnStateIcon)
RedDocuments = 0 RedDocuments = 0
YellowDocuments = 0 YellowDocuments = 0
GreenDocuments = 0 GreenDocuments = 0
For Each row As DataRow In CURR_DT_OVERVIEW.Rows For Each row As DataRow In CURR_DT_OVERVIEW.Rows
Dim State As Integer = row.Item("TL_STATE") Dim State As Integer = row.Item("TL_STATE")
Select Case State Select Case State
@ -1404,6 +1440,23 @@ Public Class frmMain
row.Item("ICON") = My.Resources.ampel_gruen row.Item("ICON") = My.Resources.ampel_gruen
End Select End Select
Next Next
If IDB_ACTIVE = True Then
' Spalte für Conversation erstellen
Dim columnConvIcon As New DataColumn()
columnConvIcon.DataType = GetType(Image)
columnConvIcon.ColumnName = "CONVERSATION"
columnConvIcon.Caption = ""
CURR_DT_OVERVIEW.Columns.Add(columnConvIcon)
End If
For Each row As DataRow In CURR_DT_OVERVIEW.Rows
Dim oCONVYN As Boolean = row.Item("CONV_YN")
Select Case oCONVYN
Case True
' RedDocuments += 1
row.Item("CONVERSATION") = My.Resources.conversation
End Select
Next
bindsourcegrid.DataSource = CURR_DT_OVERVIEW bindsourcegrid.DataSource = CURR_DT_OVERVIEW
GridControl_Docs.DataSource = bindsourcegrid GridControl_Docs.DataSource = bindsourcegrid
If USER_LANGUAGE = "de-DE" Then If USER_LANGUAGE = "de-DE" Then
@ -1412,16 +1465,23 @@ Public Class frmMain
ToolStripLabelViewTape.Text = "Overview" ToolStripLabelViewTape.Text = "Overview"
End If End If
Dim oColNotPartofLayout As Boolean
oColNotPartofLayout = False
'GridControlDocRow.ForceInitialize() 'GridControlDocRow.ForceInitialize()
' GridControl1.DataSource = CURR_DT_PROFILEGRID ' GridControl1.DataSource = CURR_DT_PROFILEGRID
If FORCE_LAYOUT_OVERVIEW = True And GridLayoutChanged() = True Then If FormLoad = True Then
If IDB_ACTIVE = True Then
oColNotPartofLayout = Column_inGridViewLayout("CONV_YN")
End If
End If
If FORCE_LAYOUT_OVERVIEW = True And GridLayoutChanged() = True Or oColNotPartofLayout = True Then
ResetLayout() ResetLayout()
SaveGridLayout() SaveGridLayout()
Else Else
If oColNotPartofLayout = False Then
RestoreLayout() RestoreLayout()
End If End If
End If
Try Try
LOGGER.Debug("Now Working on Groups..") LOGGER.Debug("Now Working on Groups..")
@ -1458,6 +1518,11 @@ Public Class frmMain
GridView_Docs.Columns.Item("ICON").MinWidth = 24 GridView_Docs.Columns.Item("ICON").MinWidth = 24
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridView_Docs.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left GridView_Docs.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
GridView_Docs.Columns.Item("CONV_YN").Visible = False
GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24
GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24
'GridView_Docs.Columns.Item("CONVERSATION").AppearanceCell.BackColor = Color.White
GridView_Docs.Columns.Item("CONVERSATION").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
'GridView_Docs.OptionsView.ShowIndicator = False 'GridView_Docs.OptionsView.ShowIndicator = False
LOGGER.Debug(" GridView_Docs.Columns loaded...") LOGGER.Debug(" GridView_Docs.Columns loaded...")
Try Try
@ -1481,7 +1546,7 @@ Public Class frmMain
SaveGridLayout() SaveGridLayout()
If GridView_Docs.Columns.Count <= 2 Then If GridView_Docs.Columns.Count <= 2 Then
LOGGER.Info("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False) LOGGER.Info("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False)
Reset_GridLayout() Reset_GridLayout(FormLoad)
End If End If
Else Else
NO_WORKFLOWITEMS = True NO_WORKFLOWITEMS = True
@ -1513,10 +1578,10 @@ Public Class frmMain
Private Sub TabellenlayoutZurücksetzenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TabellenlayoutZurücksetzenToolStripMenuItem.Click Private Sub TabellenlayoutZurücksetzenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TabellenlayoutZurücksetzenToolStripMenuItem.Click
Reset_GridLayout() Reset_GridLayout(False)
End Sub End Sub
Sub Reset_GridLayout() Sub Reset_GridLayout(FormLoad As Boolean)
If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.SaveViewInfo() If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.SaveViewInfo()
InResetlayout = True InResetlayout = True
' Layout zurücksetzen ' Layout zurücksetzen
@ -1525,7 +1590,7 @@ Public Class frmMain
' Ansicht neu laden ' Ansicht neu laden
LoadNavBar() LoadNavBar()
Decide_Load() Decide_Load(FormLoad)
InResetlayout = False InResetlayout = False
RefreshHelper.LoadViewInfo() RefreshHelper.LoadViewInfo()
End Sub End Sub
@ -1704,7 +1769,7 @@ Public Class frmMain
End Sub End Sub
Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Decide_Load() Decide_Load(True)
Handling_DEBUG_USER() Handling_DEBUG_USER()
If RIBBON_COLOR_SCHEME = "BLUE" Then If RIBBON_COLOR_SCHEME = "BLUE" Then
@ -1842,7 +1907,7 @@ Public Class frmMain
End If End If
LoadNavBar() LoadNavBar()
Decide_Load() Decide_Load(False)
If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.LoadViewInfo() If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.LoadViewInfo()
End Sub End Sub

36
app/DD_PM_WINDREAM/frmValidator.Designer.vb generated
View File

@ -85,7 +85,7 @@ Partial Class frmValidator
Me.BbtnItm = New DevExpress.XtraBars.BarButtonItem() Me.BbtnItm = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.BarLinkContainerItem1 = New DevExpress.XtraBars.BarLinkContainerItem() Me.BarLinkContainerItem1 = New DevExpress.XtraBars.BarLinkContainerItem()
Me.bbtnitem_ConversationEnd = New DevExpress.XtraBars.BarButtonItem() Me.btnitemConversationEnd = New DevExpress.XtraBars.BarButtonItem()
Me.bbtnitem_ConversationNew = New DevExpress.XtraBars.BarButtonItem() Me.bbtnitem_ConversationNew = New DevExpress.XtraBars.BarButtonItem()
Me.BarLinkContainerItem2 = New DevExpress.XtraBars.BarLinkContainerItem() Me.BarLinkContainerItem2 = New DevExpress.XtraBars.BarLinkContainerItem()
Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem() Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem()
@ -94,6 +94,7 @@ Partial Class frmValidator
Me.RepositoryItemComboBox2 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() Me.RepositoryItemComboBox2 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
Me.BarEditItem3 = New DevExpress.XtraBars.BarEditItem() Me.BarEditItem3 = New DevExpress.XtraBars.BarEditItem()
Me.RepositoryItemComboBox3 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() Me.RepositoryItemComboBox3 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
Me.btnitemConversation_reload = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPageConversations = New DevExpress.XtraBars.Ribbon.RibbonPageCategory() Me.RibbonPageConversations = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroupConv1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupConv1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@ -104,7 +105,6 @@ Partial Class frmValidator
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
CType(Me.SplitContainer2_DV_Chat, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer2_DV_Chat, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer2_DV_Chat.SuspendLayout() Me.SplitContainer2_DV_Chat.SuspendLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -446,7 +446,7 @@ Partial Class frmValidator
'RibbonControl1 'RibbonControl1
' '
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnItm, Me.BarButtonItem2, Me.BarLinkContainerItem1, Me.bbtnitem_ConversationEnd, Me.bbtnitem_ConversationNew, Me.BarLinkContainerItem2, Me.BarEditItem1, Me.BarEditItem2, Me.BarEditItem3, Me.BarButtonItem5}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnItm, Me.BarButtonItem2, Me.BarLinkContainerItem1, Me.btnitemConversationEnd, Me.bbtnitem_ConversationNew, Me.BarLinkContainerItem2, Me.BarEditItem1, Me.BarEditItem2, Me.BarEditItem3, Me.btnitemConversation_reload})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 26 Me.RibbonControl1.MaxItemId = 26
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
@ -591,12 +591,12 @@ Partial Class frmValidator
Me.BarLinkContainerItem1.Id = 18 Me.BarLinkContainerItem1.Id = 18
Me.BarLinkContainerItem1.Name = "BarLinkContainerItem1" Me.BarLinkContainerItem1.Name = "BarLinkContainerItem1"
' '
'bbtnitem_ConversationEnd 'btnitemConversationEnd
' '
resources.ApplyResources(Me.bbtnitem_ConversationEnd, "bbtnitem_ConversationEnd") resources.ApplyResources(Me.btnitemConversationEnd, "btnitemConversationEnd")
Me.bbtnitem_ConversationEnd.Id = 19 Me.btnitemConversationEnd.Id = 19
Me.bbtnitem_ConversationEnd.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitem_ConversationEnd.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.btnitemConversationEnd.ImageOptions.SvgImage = CType(resources.GetObject("btnitemConversationEnd.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtnitem_ConversationEnd.Name = "bbtnitem_ConversationEnd" Me.btnitemConversationEnd.Name = "btnitemConversationEnd"
' '
'bbtnitem_ConversationNew 'bbtnitem_ConversationNew
' '
@ -651,6 +651,13 @@ Partial Class frmValidator
Me.RepositoryItemComboBox3.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("RepositoryItemComboBox3.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) Me.RepositoryItemComboBox3.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("RepositoryItemComboBox3.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))})
Me.RepositoryItemComboBox3.Name = "RepositoryItemComboBox3" Me.RepositoryItemComboBox3.Name = "RepositoryItemComboBox3"
' '
'btnitemConversation_reload
'
resources.ApplyResources(Me.btnitemConversation_reload, "btnitemConversation_reload")
Me.btnitemConversation_reload.Id = 25
Me.btnitemConversation_reload.ImageOptions.SvgImage = CType(resources.GetObject("btnitemConversation_reload.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnitemConversation_reload.Name = "btnitemConversation_reload"
'
'RibbonPageConversations 'RibbonPageConversations
' '
Me.RibbonPageConversations.Name = "RibbonPageConversations" Me.RibbonPageConversations.Name = "RibbonPageConversations"
@ -666,14 +673,13 @@ Partial Class frmValidator
'RibbonPageGroupConv1 'RibbonPageGroupConv1
' '
Me.RibbonPageGroupConv1.ItemLinks.Add(Me.bbtnitem_ConversationNew) Me.RibbonPageGroupConv1.ItemLinks.Add(Me.bbtnitem_ConversationNew)
Me.RibbonPageGroupConv1.ItemLinks.Add(Me.bbtnitem_ConversationEnd) Me.RibbonPageGroupConv1.ItemLinks.Add(Me.btnitemConversation_reload)
Me.RibbonPageGroupConv1.Name = "RibbonPageGroupConv1" Me.RibbonPageGroupConv1.Name = "RibbonPageGroupConv1"
resources.ApplyResources(Me.RibbonPageGroupConv1, "RibbonPageGroupConv1") resources.ApplyResources(Me.RibbonPageGroupConv1, "RibbonPageGroupConv1")
' '
'RibbonPageGroupConv_Change 'RibbonPageGroupConv_Change
' '
Me.RibbonPageGroupConv_Change.ItemLinks.Add(Me.BarEditItem3) Me.RibbonPageGroupConv_Change.ItemLinks.Add(Me.BarEditItem3)
Me.RibbonPageGroupConv_Change.ItemLinks.Add(Me.BarButtonItem5)
Me.RibbonPageGroupConv_Change.Name = "RibbonPageGroupConv_Change" Me.RibbonPageGroupConv_Change.Name = "RibbonPageGroupConv_Change"
resources.ApplyResources(Me.RibbonPageGroupConv_Change, "RibbonPageGroupConv_Change") resources.ApplyResources(Me.RibbonPageGroupConv_Change, "RibbonPageGroupConv_Change")
' '
@ -727,12 +733,6 @@ Partial Class frmValidator
Me.RibbonPage2.Name = "RibbonPage2" Me.RibbonPage2.Name = "RibbonPage2"
resources.ApplyResources(Me.RibbonPage2, "RibbonPage2") resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
' '
'BarButtonItem5
'
resources.ApplyResources(Me.BarButtonItem5, "BarButtonItem5")
Me.BarButtonItem5.Id = 25
Me.BarButtonItem5.Name = "BarButtonItem5"
'
'frmValidator 'frmValidator
' '
Me.Appearance.Options.UseFont = True Me.Appearance.Options.UseFont = True
@ -838,7 +838,7 @@ Partial Class frmValidator
Friend WithEvents Panel1 As Panel Friend WithEvents Panel1 As Panel
Friend WithEvents SplitContainer2_DV_Chat As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents SplitContainer2_DV_Chat As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents BarLinkContainerItem1 As DevExpress.XtraBars.BarLinkContainerItem Friend WithEvents BarLinkContainerItem1 As DevExpress.XtraBars.BarLinkContainerItem
Friend WithEvents bbtnitem_ConversationEnd As DevExpress.XtraBars.BarButtonItem Friend WithEvents btnitemConversationEnd As DevExpress.XtraBars.BarButtonItem
Friend WithEvents bbtnitem_ConversationNew As DevExpress.XtraBars.BarButtonItem Friend WithEvents bbtnitem_ConversationNew As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageConversations As DevExpress.XtraBars.Ribbon.RibbonPageCategory Friend WithEvents RibbonPageConversations As DevExpress.XtraBars.Ribbon.RibbonPageCategory
Friend WithEvents RibbonPage3 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPage3 As DevExpress.XtraBars.Ribbon.RibbonPage
@ -852,5 +852,5 @@ Partial Class frmValidator
Friend WithEvents BarEditItem3 As DevExpress.XtraBars.BarEditItem Friend WithEvents BarEditItem3 As DevExpress.XtraBars.BarEditItem
Friend WithEvents RepositoryItemComboBox3 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox Friend WithEvents RepositoryItemComboBox3 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox
Friend WithEvents ChatControl1 As DigitalData.Controls.ChatControl.ChatControl Friend WithEvents ChatControl1 As DigitalData.Controls.ChatControl.ChatControl
Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem Friend WithEvents btnitemConversation_reload As DevExpress.XtraBars.BarButtonItem
End Class End Class

49
app/DD_PM_WINDREAM/frmValidator.resx
View File

@ -899,11 +899,11 @@
<data name="BarLinkContainerItem1.Caption" xml:space="preserve"> <data name="BarLinkContainerItem1.Caption" xml:space="preserve">
<value>Konversationen</value> <value>Konversationen</value>
</data> </data>
<data name="bbtnitem_ConversationEnd.Caption" xml:space="preserve"> <data name="btnitemConversationEnd.Caption" xml:space="preserve">
<value>Beende Konversation</value> <value>Beende Konversation</value>
</data> </data>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="bbtnitem_ConversationEnd.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnitemConversationEnd.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
@ -975,8 +975,29 @@
<data name="BarEditItem3.EditWidth" type="System.Int32, mscorlib"> <data name="BarEditItem3.EditWidth" type="System.Int32, mscorlib">
<value>200</value> <value>200</value>
</data> </data>
<data name="BarButtonItem5.Caption" xml:space="preserve"> <data name="btnitemConversation_reload.Caption" xml:space="preserve">
<value>BarButtonItem5</value> <value>Neu laden</value>
</data>
<data name="btnitemConversation_reload.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAC4DAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlJlZnJlc2hfMV8iPg0KICAgIDxwYXRoIGQ9Ik0yNC41
LDcuNUMyMi4zLDUuMywxOS4zLDQsMTYsNEMxMC4xLDQsNS4xLDguMyw0LjIsMTRoNC4xYzAuOS0zLjQs
NC02LDcuNy02YzIuMiwwLDQuMiwwLjksNS42LDIuNEwxOCwxNCAgIGg1LjdoNC4xSDI4VjRMMjQuNSw3
LjV6IiBjbGFzcz0iR3JlZW4iIC8+DQogICAgPHBhdGggZD0iTTE2LjIsMjRjLTIuMiwwLTQuMi0wLjkt
NS42LTIuNGwzLjYtMy42SDguNEg0LjRINC4ydjEwbDMuNS0zLjVjMi4yLDIuMiw1LjIsMy41LDguNSwz
LjUgICBDMjIuMSwyOCwyNywyMy43LDI4LDE4aC00LjFDMjMsMjEuNCwxOS45LDI0LDE2LjIsMjR6IiBj
bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data> </data>
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
@ -988,7 +1009,7 @@
<value>Beendete Konversationen</value> <value>Beendete Konversationen</value>
</data> </data>
<data name="RibbonPage3.Text" xml:space="preserve"> <data name="RibbonPage3.Text" xml:space="preserve">
<value>Start</value> <value>Funktionen</value>
</data> </data>
<data name="RibbonPageConversations.Text" xml:space="preserve"> <data name="RibbonPageConversations.Text" xml:space="preserve">
<value>Konversationen</value> <value>Konversationen</value>
@ -1555,10 +1576,10 @@
<data name="&gt;&gt;BarLinkContainerItem1.Type" xml:space="preserve"> <data name="&gt;&gt;BarLinkContainerItem1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarLinkContainerItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarLinkContainerItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;bbtnitem_ConversationEnd.Name" xml:space="preserve"> <data name="&gt;&gt;btnitemConversationEnd.Name" xml:space="preserve">
<value>bbtnitem_ConversationEnd</value> <value>btnitemConversationEnd</value>
</data> </data>
<data name="&gt;&gt;bbtnitem_ConversationEnd.Type" xml:space="preserve"> <data name="&gt;&gt;btnitemConversationEnd.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;bbtnitem_ConversationNew.Name" xml:space="preserve"> <data name="&gt;&gt;bbtnitem_ConversationNew.Name" xml:space="preserve">
@ -1609,6 +1630,12 @@
<data name="&gt;&gt;RepositoryItemComboBox3.Type" xml:space="preserve"> <data name="&gt;&gt;RepositoryItemComboBox3.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;btnitemConversation_reload.Name" xml:space="preserve">
<value>btnitemConversation_reload</value>
</data>
<data name="&gt;&gt;btnitemConversation_reload.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageConversations.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPageConversations.Name" xml:space="preserve">
<value>RibbonPageConversations</value> <value>RibbonPageConversations</value>
</data> </data>
@ -1663,12 +1690,6 @@
<data name="&gt;&gt;RibbonPage2.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPage2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BarButtonItem5.Name" xml:space="preserve">
<value>BarButtonItem5</value>
</data>
<data name="&gt;&gt;BarButtonItem5.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmValidator</value> <value>frmValidator</value>
</data> </data>

181
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -67,6 +67,10 @@ Public Class frmValidator
Private Right_Conversation_Stop As Boolean = False Private Right_Conversation_Stop As Boolean = False
Private Right_Conversation_Message As Boolean = False Private Right_Conversation_Message As Boolean = False
Private Conversation_User_Active As Boolean = False
Private ConversationQUDT_Delete As DataTable
Private Conversation_initialized As Boolean = False
Public FormLoaded As Boolean = False Public FormLoaded As Boolean = False
Private ItemWorked As Boolean = False Private ItemWorked As Boolean = False
Private Override As Boolean = False Private Override As Boolean = False
@ -264,44 +268,29 @@ Public Class frmValidator
RibbonPageGroupConv1.Enabled = False RibbonPageGroupConv1.Enabled = False
Dim oView As DataView = New DataView(DTDYNAMIC_RIGHTS) Dim oView As DataView = New DataView(DTDYNAMIC_RIGHTS)
Debug.WriteLine(oView.Count, "oView before") Debug.WriteLine(oView.Count, "oView before")
oView.RowFilter = "CONF_TITLE like '%CONVERSATION_%'" oView.RowFilter = "CONF_TITLE like '%CONVERSATION_RIGHT%'"
Debug.WriteLine(oView.Count, "oView after") Debug.WriteLine(oView.Count, "oView after")
If oView.Count > 0 Then If oView.Count > 0 Then
LOGGER.Debug("CONVERSATION-RIGHTS EXISTING")
RibbonPageConversations.Visible = True RibbonPageConversations.Visible = True
bbtnitem_ConversationNew.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
bbtnitem_ConversationEnd.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
Dim oConvRightStart
For Each oRow As DataRow In DTDYNAMIC_RIGHTS.Rows
If oRow.Item("CONF_TITLE").ToString.Contains("CONVERSATION_") Then
RibbonPageGroupConv1.Enabled = True RibbonPageGroupConv1.Enabled = True
Select Case oRow.Item("CONF_VALUE") ConversationQUDT_Delete = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.Conversation_Delete")
Case "Start|Stop" oView = New DataView(DTDYNAMIC_RIGHTS)
bbtnitem_ConversationNew.Visibility = DevExpress.XtraBars.BarItemVisibility.Always oView.RowFilter = "CONF_TITLE = 'CONVERSATION_USER_ACTIVE'"
bbtnitem_ConversationEnd.Visibility = DevExpress.XtraBars.BarItemVisibility.Always Conversation_initialized = Conversation_init()
Right_Conversation_Add = True
Right_Conversation_Stop = True If oView.Count = 1 Then
Case "Start" Conversation_User_Active = True
bbtnitem_ConversationNew.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Right_Conversation_Add = True Else
Case "Stop" SplitContainer2_DV_Chat.Collapsed = True
bbtnitem_ConversationEnd.Visibility = DevExpress.XtraBars.BarItemVisibility.Always Conversation_User_Active = False
Right_Conversation_Stop = True SplitContainer2_DV_Chat.Panel2.Visible = False
End Select
End If End If
Next
oSQL = $"select * From VWIDB_CONVERSATION where IDB_OBJ_ID = {CURRENT_DOC_ID} and CONVERSATION_STATE = 'Started'"
DTConversations = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB, "ValidatorLoad-GetConversations")
If DTConversations.Rows.Count > 0 Then
'CURRENT_DOC_ID
ChatControl1.Init(LOGCONFIG, CONNECTION_STRING_IDB, IIf(CONV_IDENTIFICATION = "Email", USER_EMAIL, USER_USERNAME), USER_USERNAME)
Conversations_load()
Else
End If
Else Else
SplitContainer2_DV_Chat.Collapsed = True
RibbonPageConversations.Visible = False RibbonPageConversations.Visible = False
End If End If
@ -344,30 +333,68 @@ Public Class frmValidator
LOGGER.Info(">> error in LOADING(2) Profile-Data: " & ex.Message, True) LOGGER.Info(">> error in LOADING(2) Profile-Data: " & ex.Message, True)
End Try End Try
End Sub
Sub Conversations_Init_Rights()
RibbonPageConversations.Visible = True
bbtnitem_ConversationNew.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
btnitemConversationEnd.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
btnitemConversationEnd.Enabled = True
btnitemConversation_reload.Enabled = True
For Each oRow As DataRow In DTDYNAMIC_RIGHTS.Rows
If oRow.Item("CONF_TITLE").ToString = "CONVERSATION_RIGHT" Then
Select Case oRow.Item("CONF_VALUE")
Case "Admin"
bbtnitem_ConversationNew.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
btnitemConversationEnd.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Right_Conversation_Add = True
Right_Conversation_Stop = True
Case "Start"
bbtnitem_ConversationNew.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Right_Conversation_Add = True
Case "Stop"
btnitemConversationEnd.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Right_Conversation_Stop = True
Case "AddMessage"
Right_Conversation_Message = True
End Select
'ElseIf oRow.Item("CONF_TITLE").ToString = "CONVERSATION_USER_ACTIVE" Then
' Conversation_User_Active = True
End If
Next
End Sub End Sub
Sub Conversations_load() Sub Conversations_load()
ChatControl1.GetConversations(CURRENT_DOC_ID)
Dim oConversations As List(Of String) Dim oConversations As List(Of String)
oConversations = ChatControl1.GetConversations(CURRENT_DOC_ID) oConversations = ChatControl1.GetConversations(CURRENT_DOC_ID)
If oConversations.Count = 1 Then RibbonPageGroupConv_Change.Visible = True
If oConversations.Count = 0 Then
RibbonPageGroupConv_Change.Visible = False RibbonPageGroupConv_Change.Visible = False
Else End If
RepositoryItemComboBox3.Items.Clear() RepositoryItemComboBox3.Items.Clear()
Dim oActiveConv As Boolean = False
RibbonPageGroupConv_Change.Visible = True RibbonPageGroupConv_Change.Visible = True
For Each oconv As String In oConversations For Each oconv As String In oConversations
If Not oconv.EndsWith("Started") Then If Not oconv.Contains("Started") Then
RepositoryItemComboBox3.Items.Add(oconv) RepositoryItemComboBox3.Items.Add(oconv)
End If End If
If oconv.Contains("Started") Then
oActiveConv = True
End If
Next Next
If oActiveConv = False Then
btnitemConversationEnd.Enabled = False
btnitemConversation_reload.Enabled = False
SplitContainer2_DV_Chat.Collapsed = True
Else
If SplitContainer2_DV_Chat.Panel2.Visible = False Then
SplitContainer2_DV_Chat.Panel2.Visible = True
End If End If
If oConversations.Count >= 1 Then SplitContainer2_DV_Chat.Collapsed = False
If Right_Conversation_Stop = True Then
bbtnitem_ConversationEnd.Enabled = True
End If
End If End If
End Sub End Sub
Private Sub frmValidation_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Private Sub frmValidation_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Try Try
@ -501,7 +528,7 @@ Public Class frmValidator
bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Never bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) MsgBox(ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE)
End Try End Try
End Sub End Sub
@ -3525,7 +3552,7 @@ Public Class frmValidator
Try Try
Dim oDTRESULT_FOR_COLUMN As DataTable = ClassDatabase.Return_Datatable_ConId(oSqlCommand, oCONNID, $"oDEPENDING_CTRL_ID: {oDEPENDING_CTRL_ID}") Dim oDTRESULT_FOR_COLUMN As DataTable = ClassDatabase.Return_Datatable_ConId(oSqlCommand, oCONNID, $"oDEPENDING_CTRL_ID: {oDEPENDING_CTRL_ID}")
If Not IsNothing(oDTRESULT_FOR_COLUMN) Then If Not IsNothing(oDTRESULT_FOR_COLUMN) Then
LOGGER.Debug($"Trying to create a DropDown(FI) for oDEPENDING_CTRL_ID [{oDEPENDING_CTRL_ID}]..RowCount: [{oDTRESULT_FOR_COLUMN.Rows.Count}] ") LOGGER.Debug($"Trying to create a DropDown(FIV) for oDEPENDING_CTRL_ID [{oDEPENDING_CTRL_ID}]..RowCount: [{oDTRESULT_FOR_COLUMN.Rows.Count}] ")
For Each oControl As Control In pnldesigner.Controls For Each oControl As Control In pnldesigner.Controls
If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_CTRL_ID Then If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_CTRL_ID Then
ClassControlCreator.GridTables.Add(oDEPENDING_COLUMN, oDTRESULT_FOR_COLUMN) ClassControlCreator.GridTables.Add(oDEPENDING_COLUMN, oDTRESULT_FOR_COLUMN)
@ -3537,12 +3564,12 @@ Public Class frmValidator
End If End If
Catch ex As Exception Catch ex As Exception
LOGGER.Warn($"Unexpected error in creating dropdown(FI) for oDEPENDING_GUID {oDEPENDING_CTRL_ID} an Column {oDEPENDING_COLUMN} " & ex.Message) LOGGER.Warn($"Unexpected error in creating dropdown(FIV) for oDEPENDING_GUID {oDEPENDING_CTRL_ID} an Column {oDEPENDING_COLUMN} " & ex.Message)
End Try End Try
Next Next
Catch ex As Exception Catch ex As Exception
LOGGER.Warn($"Unexpected error in creating dropdown(FI) for Grid: " & ex.Message) LOGGER.Warn($"Unexpected error in creating dropdown(FIV) for Grid: " & ex.Message)
End Try End Try
@ -3669,7 +3696,7 @@ Public Class frmValidator
Dim oMsgType Dim oMsgType
Dim oQuestion Dim oQuestion
Dim oTitle Dim oTitle
LOGGER.Debug("## btnFinish_continue ##")
Try Try
oMsgType = oDT_ACTIONS?.Rows(0).Item("MsgType") oMsgType = oDT_ACTIONS?.Rows(0).Item("MsgType")
Catch ex As Exception Catch ex As Exception
@ -3679,6 +3706,7 @@ Public Class frmValidator
Try Try
oQuestion = oDT_ACTIONS?.Rows(0).Item("Question") oQuestion = oDT_ACTIONS?.Rows(0).Item("Question")
Catch ex As Exception Catch ex As Exception
LOGGER.Warn($"btnFinishContinue - No QUESTION-Column in select-Result!")
oQuestion = "" oQuestion = ""
End Try End Try
Try Try
@ -3686,7 +3714,7 @@ Public Class frmValidator
Catch ex As Exception Catch ex As Exception
oTitle = "" oTitle = ""
End Try End Try
LOGGER.Debug($"Case is: [{oMsgType.ToString.ToUpper}]")
Select Case oMsgType.ToString.ToUpper Select Case oMsgType.ToString.ToUpper
Case "MsgboxResult".ToUpper Case "MsgboxResult".ToUpper
@ -3715,7 +3743,7 @@ Public Class frmValidator
Return True Return True
Case Else Case Else
MsgBox($"No valid action provided [{oMsgType}] in btnFinishContinue - Check Your log and inform the WorkflowTeam", MsgBoxStyle.Exclamation, "") MsgBox($"No valid action provided [{oMsgType}] in btnFinishContinue - Check Your log and inform the WorkflowTeam", MsgBoxStyle.Exclamation, "")
LOGGER.Warn($"No valid action provided [{oMsgType}] in btnFinishContinue - Check Your log and inform the WorkflowTeam") LOGGER.Warn($"No valid action provided [{oMsgType}] in btnFinishContinue!")
Return False Return False
End Select End Select
Catch ex As Exception Catch ex As Exception
@ -5340,15 +5368,28 @@ Public Class frmValidator
Dim Filename As String = String.Format($"DevExpressValidatorGridControl_{pProfilID}-{pControlID}.xml") Dim Filename As String = String.Format($"DevExpressValidatorGridControl_{pProfilID}-{pControlID}.xml")
Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename) Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
End Function End Function
Private Function Conversation_init()
Try
Dim oResult = ChatControl1.Init(LOGCONFIG, CONNECTION_STRING_IDB, IIf(CONV_IDENTIFICATION = "Email", USER_EMAIL, USER_USERNAME), USER_ID, USER_USERNAME, USER_LANGUAGE, ConversationQUDT_Delete, DTDYNAMIC_RIGHTS)
If oResult = True Then
Conversations_Init_Rights()
Conversations_load()
AddHandler ChatControl1.Conversation_Ended, AddressOf onConversationEnded
AddHandler ChatControl1.Conversation_UsersAdded_Success, AddressOf ConversationUsersAdded
End If
Return oResult
Catch ex As Exception
Return False
End Try
End Function
Private Sub bbtnitem_ConversationNew_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitem_ConversationNew.ItemClick Private Sub bbtnitem_ConversationNew_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitem_ConversationNew.ItemClick
Dim oDTUSER As DataTable Dim oDTUSER As DataTable
For Each oRow As DataRow In DTDYNAMIC_RIGHTS.Rows For Each oRow As DataRow In DTDYNAMIC_RIGHTS.Rows
If oRow.Item("CONF_TITLE") = "NEW_CONVERSATION_USER_SELECT" Then If oRow.Item("CONF_TITLE") = "NEW_CONVERSATION_USER_SELECT" Then
Dim oSQL = oRow.Item("CONF_VALUE") Dim oSQL = oRow.Item("CONF_VALUE")
oDTUSER = ClassDatabase.Return_Datatable(oSQL) oDTUSER = ClassDatabase.Return_Datatable(oSQL)
End If End If
Next Next
If Not IsNothing(oDTUSER) Then If Not IsNothing(oDTUSER) Then
@ -5357,8 +5398,11 @@ Public Class frmValidator
Dim oResult = oForm.ShowDialog() Dim oResult = oForm.ShowDialog()
If CURRENT_CONVERSATION_NEW <> 0 Then If CURRENT_CONVERSATION_NEW <> 0 Then
If Not Conversation_initialized Then
Conversation_init()
End If
Conversations_Init_Rights()
Conversations_load() Conversations_load()
End If End If
End If End If
@ -5366,18 +5410,19 @@ Public Class frmValidator
End Sub End Sub
Private Sub bbtnitem_ConversationEnd_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitem_ConversationEnd.ItemClick Private Sub bbtnitem_ConversationEnd_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnitemConversationEnd.ItemClick
If ChatControl1.CurrentConversation <> 0 Then If ChatControl1.CurrentConversationID <> 0 Then
Dim oQuestion As DataTable = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.Conversation_Delete") Dim oQuestion As DataTable = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.Conversation_Delete")
If Not IsNothing(oQuestion) Then If Not IsNothing(oQuestion) Then
If oQuestion.Rows.Count = 1 Then If oQuestion.Rows.Count = 1 Then
Dim result As MsgBoxResult Dim result As MsgBoxResult
result = MessageBox.Show(oQuestion.Rows(0).Item("STRING1").ToString, oQuestion.Rows(0).Item("STRING2").ToString, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) result = MessageBox.Show(oQuestion.Rows(0).Item("STRING1").ToString, oQuestion.Rows(0).Item("STRING2").ToString, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Dim oSQL = $"EXEC PRIDB_END_CONVERSATION {ChatControl1.CurrentConversation}, '{USER_USERNAME}', '{USER_LANGUAGE}'" Dim oSQL = $"EXEC PRIDB_END_CONVERSATION {ChatControl1.CurrentConversationID}, '{USER_USERNAME}', '{USER_LANGUAGE}'"
If ClassDatabase.Execute_non_Query(oSQL, "EXEC PRIDB_END_CONVERSATION") = True Then If ClassDatabase.Execute_non_Query_ConStr(oSQL, CONNECTION_STRING_IDB, "EXEC PRIDB_END_CONVERSATION") = True Then
bbtnitem_ConversationEnd.Enabled = False btnitemConversationEnd.Enabled = False
SplitContainer2_DV_Chat.Collapsed = True SplitContainer2_DV_Chat.Collapsed = True
btnitemConversationEnd.Enabled = True
Else Else
MsgBox("Unexpected error in PRIDB_END_CONVERSATION - Check Your log!", MsgBoxStyle.Exclamation) MsgBox("Unexpected error in PRIDB_END_CONVERSATION - Check Your log!", MsgBoxStyle.Exclamation)
End If End If
@ -5393,11 +5438,37 @@ Public Class frmValidator
End Sub End Sub
Private Sub RepositoryItemComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RepositoryItemComboBox3.SelectedIndexChanged Private Sub RepositoryItemComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RepositoryItemComboBox3.SelectedIndexChanged
Try
Dim cBox As DevExpress.XtraEditors.ComboBoxEdit = sender Dim cBox As DevExpress.XtraEditors.ComboBoxEdit = sender
Dim item = cBox.EditValue Dim item = cBox.EditValue
Dim oSplit() = item.ToString.Split("|") Dim oSplit() = item.ToString.Split("|")
Dim oConvID = oSplit(0) Dim oConvID = oSplit(0)
ChatControl1.LoadConversation(oConvID) ChatControl1.LoadConversation(oConvID)
btnitemConversationEnd.Enabled = False
If SplitContainer2_DV_Chat.IsPanelCollapsed Then
SplitContainer2_DV_Chat.Collapsed = False
If SplitContainer2_DV_Chat.Panel2.Visible = False Then
SplitContainer2_DV_Chat.Panel2.Visible = True
End If
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
End Try
End Sub End Sub
Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnitemConversation_reload.ItemClick
Conversations_Init_Rights()
Conversations_load()
End Sub
Sub onConversationEnded()
Conversations_load()
btnitemConversationEnd.Enabled = False
SplitContainer2_DV_Chat.Collapsed = True
btnitemConversation_reload.Enabled = False
End Sub
Sub ConversationUsersAdded()
Conversations_load()
End Sub
End Class End Class