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

MS1

Browse Source
This commit is contained in:
SchreiberM
2017-03-20 16:31:11 +01:00
parent 1e00964d22
commit 9c67a1d913
3 changed files with 37 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@@ -67,7 +67,8 @@ Public Class frmConstructor_Main
Private DT_ADDING_USERS As DataTable
Private DT_CONTROL_SCREEN As DataTable
Private DT_CONTROL_SCREEN_SHOW_COL_0 As DataTable
Private DT_VWPMO_CONTROL_SCREEN As DataTable
Private TREEVIEW_IMAGELIST As ImageList
Private NODE_NAVIGATION As Boolean = False
Private NODE_NAVIGATION_LOADED As Boolean = False
@@ -372,7 +373,8 @@ Public Class frmConstructor_Main
DT_CONSTRUCT_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID)
Dim SEL1 = String.Format("SELECT * FROM TBPMO_FORM WHERE GUID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {0} AND CONSTRUCT_ID = {1})", CURRENT_SCREEN_ID, CONSTRUCTORID)
DT_ENTITY_DATA = ClassDatabase.Return_Datatable(SEL1, True)
DT_CONTROL_SCREEN = ClassDatabase.Return_Datatable("SELECT FORM_ID, CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0", True)
DT_CONTROL_SCREEN_SHOW_COL_0 = ClassDatabase.Return_Datatable("SELECT FORM_ID, CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0", True)
DT_VWPMO_CONTROL_SCREEN = ClassDatabase.Return_Datatable("SELECT * FROM VWPMO_CONTROL_SCREEN", True)
If DT_CONSTRUCT_VIEW.Rows.Count = 1 Then
'Load Input Grid
Me.Text = DT_CONSTRUCT_VIEW.Rows(0).Item("FORM_TITLE")
@@ -2096,14 +2098,13 @@ Public Class frmConstructor_Main
Me.Cursor = Cursors.WaitCursor
RECORD_CHANGED = False
RECORD_ID = 0
'Setzen von Rechten
Dim expression As String
'VerknüpfungenToolStripMenuItem.Enabled = False
Dim sql = "SELECT CONTROL_ID, CONTROL_READ_ONLY FROM VWPMO_CONTROL_SCREEN WHERE CTRLTYPE_ID NOT IN (1) AND CONTROL_ENTITY_ID = " & ENTITY_ID
DT_CONTROLS_ENTITY = ClassDatabase.Return_Datatable(sql, True)
COUNT_RO_CONTROLS = 0
Dim expression As String
expression = "CONTROL_READ_ONLY = " & 1
Dim CONTROLS_ROW() As DataRow
CONTROLS_ROW = DT_CONTROLS_ENTITY.Select(expression)
@@ -2901,7 +2902,7 @@ Public Class frmConstructor_Main
expression = "FORM_ID = " & ENTITY_ID
Dim foundRowsLevel0() As DataRow
' Use the Select method to find all rows matching the filter.
foundRowsLevel0 = DT_CONTROL_SCREEN.Select(expression)
foundRowsLevel0 = DT_CONTROL_SCREEN_SHOW_COL_0.Select(expression)
Dim i As Integer
' Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)

1
app/DD-Record-Organizer/frmMain.Designer.vb generated
View File

@@ -574,6 +574,7 @@ Partial Class frmMain
'groupQuickAccessForm
'
Me.groupQuickAccessForm.AllowTextClipping = False
Me.groupQuickAccessForm.KeyTip = "V"
Me.groupQuickAccessForm.Name = "groupQuickAccessForm"
resources.ApplyResources(Me.groupQuickAccessForm, "groupQuickAccessForm")
'

56
app/DD-Record-Organizer/frmMain.resx
View File

@@ -124,6 +124,18 @@
<value>17, 56</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ADDIBeendenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>165, 22</value>
</data>
<data name="ADDIBeendenToolStripMenuItem.Text" xml:space="preserve">
<value>ADDI beenden</value>
</data>
<data name="CockpitAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>165, 22</value>
</data>
<data name="CockpitAnzeigenToolStripMenuItem.Text" xml:space="preserve">
<value>Cockpit anzeigen</value>
</data>
<data name="cmsSystray.Size" type="System.Drawing.Size, System.Drawing">
<value>166, 48</value>
</data>
@@ -1032,18 +1044,6 @@
<data name="NotifyIcon.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="ADDIBeendenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>165, 22</value>
</data>
<data name="ADDIBeendenToolStripMenuItem.Text" xml:space="preserve">
<value>ADDI beenden</value>
</data>
<data name="CockpitAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>165, 22</value>
</data>
<data name="CockpitAnzeigenToolStripMenuItem.Text" xml:space="preserve">
<value>Cockpit anzeigen</value>
</data>
<metadata name="TimerTasks.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1208, 17</value>
</metadata>
@@ -2626,12 +2626,24 @@
<data name="RibbonPageCategory1.Text" xml:space="preserve">
<value>RibbonPageCategory1</value>
</data>
<data name="RibbonPageGroup2.Text" xml:space="preserve">
<value>Kalender</value>
</data>
<data name="groupQuickAccessForm.Text" xml:space="preserve">
<value>Views/Sichten</value>
</data>
<data name="groupSearchAllOver.Text" xml:space="preserve">
<value>Weitere Views</value>
</data>
<data name="pageHome.Text" xml:space="preserve">
<value>Home</value>
</data>
<data name="pageForms.Appearance.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Yellow</value>
</data>
<data name="groupQuickAccessForm2.Text" xml:space="preserve">
<value>Views/Sichten</value>
</data>
<data name="pageForms.Text" xml:space="preserve">
<value>Weitere Sichten</value>
</data>
@@ -2651,13 +2663,13 @@
<value>Administration</value>
</data>
<data name="ribbonMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1468, 150</value>
<value>1476, 150</value>
</data>
<data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 779</value>
<value>0, 783</value>
</data>
<data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
<value>1468, 23</value>
<value>1476, 23</value>
</data>
<data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
<value>RibbonStatusBar1</value>
@@ -2683,18 +2695,6 @@
<data name="&gt;&gt;ribbonMain.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="RibbonPageGroup2.Text" xml:space="preserve">
<value>Kalender</value>
</data>
<data name="groupQuickAccessForm.Text" xml:space="preserve">
<value>Views/Sichten</value>
</data>
<data name="groupSearchAllOver.Text" xml:space="preserve">
<value>Weitere Views</value>
</data>
<data name="groupQuickAccessForm2.Text" xml:space="preserve">
<value>Views/Sichten</value>
</data>
<metadata name="DefaultLookAndFeel1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>242, 17</value>
</metadata>
@@ -2738,7 +2738,7 @@
<value>6, 13</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>1468, 802</value>
<value>1476, 806</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>