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

MS WindreamPathNewVersion

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-12-19 17:51:23 +01:00
parent 4967b0ee36
commit 33c867325c
7 changed files with 31 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD_PM_WINDREAM/ClassWindream_allgemein.vb
View File

@@ -161,7 +161,7 @@ Public Class ClassWindream_allgemein
WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID
Dim userExistsInServerUserGroup = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
If WMSESSION_STARTSTOP_STARTUP = True And userExistsInServerUserGroup Is Nothing Then
If WMSESSION_STARTSTOP_STARTUP = True Then 'And userExistsInServerUserGroup Is Nothing
Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter")
Dim owindreamIndexService = CreateObject("WMIndexServer.WMIdxSvControl")
owindreamControlCenter.StartVFSService(0)

6
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb generated
View File

@@ -21956,9 +21956,9 @@ Namespace DD_DMSLiteDataSetTableAdapters
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT SequentialOrder, USER_ID, USER_NAME, USER_PRENAME, USER_SURNAME, USER_"& _
"SHORTNAME, USER_EMAIL, USER_LANGUAGE, USER_COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM dbo.FNPM_GET_FRE"& _
"E_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE_USER_FOR_PROFILE_1"
Me._commandCollection(0).CommandText = "SELECT SequentialOrder, USER_ID, USER_NAME, USER_PRENAME, USER_SURNAME, US"& _
"ER_SHORTNAME, USER_EMAIL, USER_LANGUAGE, USER_COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM dbo.FNPM_"& _
"GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE_USER_FOR_PROFILE_1"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub

2
app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.9.5.2")>
<Assembly: AssemblyVersion("1.9.5.3")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

9
app/DD_PM_WINDREAM/My Project/licenses.licx
View File

@@ -1,8 +1,11 @@
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v18.1.UI, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Navigation.OfficeNavigationBar, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

1
app/DD_PM_WINDREAM/frmMain.vb
View File

@@ -891,6 +891,7 @@ Public Class frmMain
If IsNothing(DOC_ID) Then Exit Sub
Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("FULL_FILE_PATH"))
DOC_PATH = DOC_PATH.Replace("W:", "\\windream\objects")
DOC_PATH = DOC_PATH.Replace("K:", "\\windream\objects")
'Checking if table really contains one record with profile-id and docid
expression = expression & " AND DOC_ID = " & DOC_ID
Dim TEMP_TABLE = CURR_DT_PROFILEGRID

1
app/DD_PM_WINDREAM/frmValidator.vb
View File

@@ -1193,6 +1193,7 @@ Public Class frmValidator
If LogErrorsOnly = False Then ClassLogger.Add(" >> newGUID: " & newGUID.ToString, False)
Document_Path = TBPM_PROFILE_FILESTableAdapter.CmdGetFilePath_2_GUID(newGUID)
Document_Path = Document_Path.Replace("W:", "\\windream\objects")
Document_Path = Document_Path.Replace("K:", "\\windream\objects")
CURRENT_DOC_PATH = Document_Path
If LogErrorsOnly = False Then ClassLogger.Add(" >> Document_Path: " & Document_Path, False)