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

MS_23052016

Browse Source
This commit is contained in:
SchreiberM
2016-05-23 16:54:06 +02:00
parent b141e20f58
commit 6c8cfaa371
3 changed files with 29 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -221,8 +221,8 @@ Public Class frmConstructor_Main
Me.VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
Dim SQL = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
"FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {2} AND CONSTRUCT_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CURRENT_SCREEN_ID, CONSTRUCTORID)
sd()
DT_VWPMO_CONSTRUCTOR_FORMS = ClassDatabase.Return_Datatable(SQL)
DT_CONSTRUCT_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID)
If DT_CONSTRUCT_VIEW.Rows.Count = 1 Then
'Load Input Grid
@@ -3276,14 +3276,14 @@ Public Class frmConstructor_Main
End If
TabWindream.Text = stg & " (" & windreamSucheErgebnisse.Count & ")"
AxObjectListControl.SetIconMode(True)
AxObjectListControl.RemoveAllColumnHeader()
Me.AxObjectListControl.SetSession(ClassWindream.oSession, "", "")
' AxObjectListControl.SetIconMode(True)
' AxObjectListControl.RemoveAllColumnHeader()
' Me.AxObjectListControl.SetSession(ClassWindream.oSession, "", "")
'Change the status icon
'ICON STATES:
Me.AxObjectListControl.SetStatusIcon(0)
' Me.AxObjectListControl.SetStatusIcon(0)
'Change the icon
Me.AxObjectListControl.SetStatusIcon(2)
' Me.AxObjectListControl.SetStatusIcon(2)
Try
Dim sql_ResultList = "select * from TBPMO_WINDREAM_RESULTLIST_CONFIG where guid = 1"
@@ -3305,7 +3305,7 @@ Public Class frmConstructor_Main
'You need to use the column name here
'Please note that some attributes or indices will not be displayed
'Try not to add the same header twice, it will throw cause problems if you do that
Me.AxObjectListControl.AddColumnHeader(ColumnName, Width)
' Me.AxObjectListControl.AddColumnHeader(ColumnName, Width)
anzparam += 1
End If
End If
@@ -3343,7 +3343,7 @@ Public Class frmConstructor_Main
'You need to use the column name here
'Please note that some attributes or indices will not be displayed
'Try not to add the same header twice, it will throw cause problems if you do that
Me.AxObjectListControl.AddColumnHeader(spar, width)
' Me.AxObjectListControl.AddColumnHeader(spar, width)
Next
End If
@@ -3355,22 +3355,22 @@ Public Class frmConstructor_Main
Dim results As WINDREAMLib.WMObjects = windreamSucheErgebnisse
If LogErrorsOnly = False Then ClassLogger.Add(" >> results loaded ", False)
'Set the contents without displaying them
AxObjectListControl.SetContentsEx(results)
' AxObjectListControl.SetContentsEx(results)
'Change the icon
AxObjectListControl.SetStatusIcon(5)
'AxObjectListControl.SetStatusIcon(5)
'Display the results...
'The Previous Object Count
Dim poc As Integer = 0
'Display new objects, as long as the objectcount changes after displaying the objects
Do Until (poc <> AxObjectListControl.GetObjectCount)
poc = AxObjectListControl.GetObjectCount
'If you want, you can display more items at a timeRefresh_FollowUp_TabHeader
'But do not display to many at a time or the user interface could freeze
'Maybe try 50
AxObjectListControl.DisplayResults(WDResultListCount)
Loop
AxObjectListControl.SetStatusIcon(3)
'Do Until (poc <> AxObjectListControl.GetObjectCount)
' poc = AxObjectListControl.GetObjectCount
' 'If you want, you can display more items at a timeRefresh_FollowUp_TabHeader
' 'But do not display to many at a time or the user interface could freeze
' 'Maybe try 50
' AxObjectListControl.DisplayResults(WDResultListCount)
'Loop
' AxObjectListControl.SetStatusIcon(3)
Else
Dim msg = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden"
If USER_LANGUAGE <> "de-DE" Then
@@ -3905,7 +3905,7 @@ Public Class frmConstructor_Main
ClassLogger.Add(" >> Undefined Search-pattern in windream-search config: " & content, True)
End Select
End Function
Private Sub AxObjectListControl_ItemClicked(sender As Object, e As EventArgs) Handles AxObjectListControl.ItemClicked
Private Sub AxObjectListControl_ItemClicked(sender As Object, e As EventArgs)
CheckDocView()
End Sub
@@ -3914,8 +3914,8 @@ Public Class frmConstructor_Main
Dim sw As New Stopwatch
sw.Start()
AxObjectListControl.RemoveAllColumnHeader()
Me.AxObjectListControl.ClearResultList()
' AxObjectListControl.RemoveAllColumnHeader()
' Me.AxObjectListControl.ClearResultList()
Dim stg As String = "windream-Dateien"
If USER_LANGUAGE <> "de-DE" Then
stg = "windream-files"
@@ -3932,10 +3932,10 @@ Public Class frmConstructor_Main
End Sub
Sub CheckDocView()
Dim _index = AxObjectListControl.GetFirstSelectedObject
Dim path As String = AxObjectListControl.GetObjectPath(_index)
path = path.Replace("?", vWLaufwerk)
DocViewString = path
' Dim _index = AxObjectListControl.GetFirstSelectedObject
' Dim path As String = AxObjectListControl.GetObjectPath(_index)
' path = path.Replace("?", vWLaufwerk)
' DocViewString = path
If WD_ShowDocs = True Then
CloseWDDocview()
@@ -4987,15 +4987,15 @@ Public Class frmConstructor_Main
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub AxObjectListControl_CausesValidationChanged(sender As Object, e As EventArgs) Handles AxObjectListControl.CausesValidationChanged
Private Sub AxObjectListControl_CausesValidationChanged(sender As Object, e As EventArgs)
Console.WriteLine("CausesValidationChanged")
End Sub
Private Sub AxObjectListControl_SettingFlagChanged(sender As Object, e As EventArgs) Handles AxObjectListControl.SettingFlagChanged
Private Sub AxObjectListControl_SettingFlagChanged(sender As Object, e As EventArgs)
Console.WriteLine("SettingFlagChanged")
End Sub
Private Sub AxObjectListControl_Validated(sender As Object, e As EventArgs) Handles AxObjectListControl.Validated
Private Sub AxObjectListControl_Validated(sender As Object, e As EventArgs)
Console.WriteLine("Validated")
End Sub