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

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-06-13 14:46:50 +02:00
parent 6a02439942
commit 8d9098fe8e
6 changed files with 42 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
app/DD_PM_WINDREAM/ClassControlCreator.vb
View File

@ -366,9 +366,13 @@ Public Class ClassControlCreator
If FilteredRows.Count = 1 Then If FilteredRows.Count = 1 Then
For Each row As DataRow In FilteredRows For Each row As DataRow In FilteredRows
CURRENT_CONTROL_ID = row("GUID") CURRENT_CONTROL_ID = row("GUID")
CURR_CON_ID = row("CONNECTION_ID") CURR_CON_ID = IIf(IsDBNull(row("CONNECTION_ID")), 0, row("CONNECTION_ID"))
CURR_SELECT_CONTROL = row("SQL_UEBERPRUEFUNG") If CURR_CON_ID = 0 Then
CURR_CHOICE_LIST = row("CHOICE_LIST") ClassLogger.Add(" >> CONNECTION NOT DEFINED - CTRL_GUID:" & CURRENT_CONTROL_ID, False)
End If
CURR_SELECT_CONTROL = IIf(IsDBNull(row("SQL_UEBERPRUEFUNG")), "", row("SQL_UEBERPRUEFUNG"))
CURR_CHOICE_LIST = IIf(IsDBNull(row("CHOICE_LIST")), "", row("CHOICE_LIST"))
Next Next
Return 1 Return 1
Else Else

26
app/DD_PM_WINDREAM/frmMain.Designer.vb generated
View File

@ -22,7 +22,6 @@ Partial Class frmMain
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.SplitContainerDashboard = New System.Windows.Forms.SplitContainer() Me.SplitContainerDashboard = New System.Windows.Forms.SplitContainer()
Me.SplitContainerTop = New System.Windows.Forms.SplitContainer() Me.SplitContainerTop = New System.Windows.Forms.SplitContainer()
@ -35,9 +34,9 @@ Partial Class frmMain
Me.ToolStripBottomLeft = New System.Windows.Forms.ToolStrip() Me.ToolStripBottomLeft = New System.Windows.Forms.ToolStrip()
Me.ChartBottomRight = New DevExpress.XtraCharts.ChartControl() Me.ChartBottomRight = New DevExpress.XtraCharts.ChartControl()
Me.ToolStripBottomRight = New System.Windows.Forms.ToolStrip() Me.ToolStripBottomRight = New System.Windows.Forms.ToolStrip()
Me.ImageListProfile = New System.Windows.Forms.ImageList(Me.components) Me.ImageListProfile = New System.Windows.Forms.ImageList()
Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet()
Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter() Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter()
Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
@ -57,8 +56,8 @@ Partial Class frmMain
Me.tslblmessage = New System.Windows.Forms.ToolStripStatusLabel() Me.tslblmessage = New System.Windows.Forms.ToolStripStatusLabel()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.pnlNavigator = New System.Windows.Forms.Panel() Me.pnlNavigator = New System.Windows.Forms.Panel()
Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator()
Me.bindsourcegrid = New System.Windows.Forms.BindingSource(Me.components) Me.bindsourcegrid = New System.Windows.Forms.BindingSource()
Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
@ -69,7 +68,7 @@ Partial Class frmMain
Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.GridControl_Docs = New DevExpress.XtraGrid.GridControl() Me.GridControl_Docs = New DevExpress.XtraGrid.GridControl()
Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip()
Me.CMGroupStart = New System.Windows.Forms.ToolStripMenuItem() Me.CMGroupStart = New System.Windows.Forms.ToolStripMenuItem()
Me.CMFileStart = New System.Windows.Forms.ToolStripMenuItem() Me.CMFileStart = New System.Windows.Forms.ToolStripMenuItem()
Me.MarkierteDateienAbschliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.MarkierteDateienAbschliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@ -78,20 +77,20 @@ Partial Class frmMain
Me.lblViewType = New System.Windows.Forms.Label() Me.lblViewType = New System.Windows.Forms.Label()
Me.NavBarControl1 = New DevExpress.XtraNavBar.NavBarControl() Me.NavBarControl1 = New DevExpress.XtraNavBar.NavBarControl()
Me.NavBarGroupProfiles = New DevExpress.XtraNavBar.NavBarGroup() Me.NavBarGroupProfiles = New DevExpress.XtraNavBar.NavBarGroup()
Me.cmsNavPane = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cmsNavPane = New System.Windows.Forms.ContextMenuStrip()
Me.tsmiValidationProfil = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiValidationProfil = New System.Windows.Forms.ToolStripMenuItem()
Me.NavBarGroupMore = New DevExpress.XtraNavBar.NavBarGroup() Me.NavBarGroupMore = New DevExpress.XtraNavBar.NavBarGroup()
Me.NavBarItemOverview = New DevExpress.XtraNavBar.NavBarItem() Me.NavBarItemOverview = New DevExpress.XtraNavBar.NavBarItem()
Me.NavBarItemDashboard = New DevExpress.XtraNavBar.NavBarItem() Me.NavBarItemDashboard = New DevExpress.XtraNavBar.NavBarItem()
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components) Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon()
Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components) Me.TimerRefresh = New System.Windows.Forms.Timer()
Me.TBPM_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_USERBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_USERTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter() Me.TBPM_USERTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter()
Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_KONFIGURATIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() Me.TBPM_KONFIGURATIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter()
Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter() Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter()
Me.TimerReminder = New System.Windows.Forms.Timer(Me.components) Me.TimerReminder = New System.Windows.Forms.Timer()
CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerDashboard.Panel1.SuspendLayout() Me.SplitContainerDashboard.Panel1.SuspendLayout()
Me.SplitContainerDashboard.Panel2.SuspendLayout() Me.SplitContainerDashboard.Panel2.SuspendLayout()
@ -513,6 +512,7 @@ Partial Class frmMain
'NavBarGroupProfiles 'NavBarGroupProfiles
' '
resources.ApplyResources(Me.NavBarGroupProfiles, "NavBarGroupProfiles") resources.ApplyResources(Me.NavBarGroupProfiles, "NavBarGroupProfiles")
Me.NavBarGroupProfiles.Expanded = True
Me.NavBarGroupProfiles.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.LargeIconsText Me.NavBarGroupProfiles.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.LargeIconsText
Me.NavBarGroupProfiles.Name = "NavBarGroupProfiles" Me.NavBarGroupProfiles.Name = "NavBarGroupProfiles"
' '

2
app/DD_PM_WINDREAM/frmMain.resx
View File

@ -488,7 +488,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAAYwBAwGMAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo CAAAAk1TRnQBSQFMAgEBAgEAAZQBAwGUAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

1
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -475,6 +475,7 @@ Public Class frmMain
lblViewType.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE lblViewType.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
Dim sql = foundRows(0)("SQL_VIEW") Dim sql = foundRows(0)("SQL_VIEW")
sql = sql.Replace("@USER", Environment.UserName) sql = sql.Replace("@USER", Environment.UserName)
sql = sql.Replace("@USER_ID", CURRENT_USER_ID)
sql = sql.Replace("@MACHINE_NAME", Environment.MachineName) sql = sql.Replace("@MACHINE_NAME", Environment.MachineName)
sql = sql.Replace("@DATE", Now.ToShortDateString) sql = sql.Replace("@DATE", Now.ToShortDateString)
sql = sql.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID) sql = sql.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID)

19
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@ -21,6 +21,9 @@ Public Class frmMassValidator
Private _windream As New ClassWindream_allgemein Private _windream As New ClassWindream_allgemein
Private _windreamPM As New ClassPMWindream Private _windreamPM As New ClassPMWindream
Private _allgFunk As New ClassAllgemeineFunktionen Private _allgFunk As New ClassAllgemeineFunktionen
Dim viewer_string As String
Dim pdfxchange As Boolean = False
Dim sumatra As Boolean = False
Dim WMObject As WMObject Dim WMObject As WMObject
Private Sub frmMassValidator_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmMassValidator_Load(sender As Object, e As EventArgs) Handles Me.Load
FORM_Shown = False FORM_Shown = False
@ -1549,4 +1552,20 @@ Public Class frmMassValidator
Private Sub frmMassValidator_Shown(sender As Object, e As EventArgs) Handles Me.Shown Private Sub frmMassValidator_Shown(sender As Object, e As EventArgs) Handles Me.Shown
FORM_Shown = True FORM_Shown = True
End Sub End Sub
Private Sub frmMassValidator_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
'If Viewer = "docview" Then
' CloseWDDocview()
'End If
'If vpdfviewer = "system" Then
' Kill_PDFAcrobat()
'Else
' If pdfxchange = True Or sumatra = True Then
' Close_PDF_Viewer(Document_Path)
' End If
' KillU_Viewer()
'End If
End Sub
End Class End Class

2
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -629,7 +629,7 @@ Public Class frmValidator
Else Else
connectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";" connectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";"
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> ConnString Sql-Server: " & connectionString) If LogErrorsOnly = False Then ClassLogger.Add(" >> ConnString Sql-Server: " & connectionString, False)
Case "oracle" Case "oracle"
Dim conn As New OracleConnectionStringBuilder Dim conn As New OracleConnectionStringBuilder
Dim connstr As String Dim connstr As String