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
2017-12-13 14:56:40 +01:00
parent abbc238bf6
commit 06080901f5
7 changed files with 78 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
app/DD_PM_WINDREAM/frmValidator.vb
View File

@@ -7,6 +7,8 @@ Imports System.Globalization
Imports Oracle.ManagedDataAccess.Client
Imports Independentsoft
Imports System.IO
Imports DevExpress.Pdf.pdfdo
Imports DevExpress.Pdf
Public Class frmValidator
Dim viewerID
@@ -48,7 +50,7 @@ Public Class frmValidator
Dim pdfxchange As Boolean = False
Dim sumatra As Boolean = False
<DllImport("user32.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
<DllImport("user32.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)>
Public Shared Function SetForegroundWindow(ByVal hwnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
Function set_foreground()
@@ -131,7 +133,7 @@ Public Class frmValidator
KillU_Viewer()
End If
End Sub
Sub KillU_Viewer()
@@ -498,9 +500,13 @@ Public Class frmValidator
Dim ControlID = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetGUID(CURRENT_ProfilGUID, cmbname)
If LogErrorsOnly = False Then ClassLogger.Add(" >> In add_ComboBox - GUID: " & ControlID, False)
If ControlID > 0 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >>ControlID > 0", False)
Dim ConID = Me.TBPM_PROFILE_CONTROLSTableAdapter.cmdgetConnectionID(ControlID)
If ConID Is Nothing = False Then
If ConID > 0 And TBPM_PROFILE_CONTROLSTableAdapter.cmdGetSQL(ControlID) <> "" Then
Dim commandsql = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetSQL(ControlID)
If LogErrorsOnly = False Then ClassLogger.Add(" >> ConID Is Nothing = False", False)
If ConID > 0 And commandsql <> "" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> CConID > 0 And TBPM_PROFILE_CONTROLSTableAdapter.cmdGetSQL(ControlID)", False)
Dim connectionString As String
Me.TBPM_CONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBPM_CONNECTION, ConID)
Dim DT As DataTable = Me.DD_DMSLiteDataSet.TBPM_CONNECTION
@@ -518,7 +524,7 @@ Public Class frmValidator
Dim conn As New OracleConnectionStringBuilder
Dim connstr As String
If drConnection.Item("SERVER") <> "" And drConnection.Item("DATENBANK").GetType.ToString <> "system.dbnull" Then
connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & drConnection.Item("SERVER") & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _
connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & drConnection.Item("SERVER") & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" &
drConnection.Item("DATENBANK") & ")));User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";"
Else
conn.DataSource = drConnection.Item("SERVER")
@@ -564,8 +570,11 @@ Public Class frmValidator
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei GetValues SQL:")
End Try
End If
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Else Row 571", False)
End If
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> AListe Handling", False)
Dim AListe As String = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetChoiceListName(ControlID)
If LogErrorsOnly = False Then ClassLogger.Add(" >> In add_ComboBox - AListe: " & AListe, False)
If AListe Is Nothing = False Then
@@ -576,7 +585,11 @@ Public Class frmValidator
cmb.Items.Add(index)
Next
cmb.SelectedIndex = -1
Else
MsgBox("Resultliste windream is nothing!", MsgBoxStyle.Exclamation, AListe)
End If
Else
MsgBox("AListe from database is nothing!", MsgBoxStyle.Exclamation, AListe)
End If
End If
@@ -980,7 +993,7 @@ Public Class frmValidator
Catch ex As Exception
MsgBox("Fehler in ShowFile_UniversalViewer:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Public Function IsProcessRunning(name As String) As Boolean
@@ -1105,7 +1118,7 @@ Public Class frmValidator
CURRENT_DOC_ID = DT.Rows(0).Item("GUID")
tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID
AnzDoks = DT.Rows.Count
End Sub
@@ -1515,8 +1528,8 @@ Public Class frmValidator
For Each inctrl As Control In Me.pnldesigner.Controls
Dim CONTROL_ID = inctrl.Tag
Dim controlRow = (From form In DD_DMSLiteDataSet.VWPM_CONTROL_INDEX.AsEnumerable()
Select form
Where form.Item("GUID") = CONTROL_ID).Single()
Select form
Where form.Item("GUID") = CONTROL_ID).Single()
Dim Type As String = inctrl.GetType.ToString
Dim Typ As String = controlRow.Item("CTRL_TYPE")
@@ -1559,7 +1572,7 @@ Public Class frmValidator
End If
End If
End If
End If
If wertWD Is Nothing = False Then
@@ -1577,7 +1590,7 @@ Public Class frmValidator
ClassLogger.Add(">> Indexname windream: " & indexname, False)
Exit Sub
End Try
Case "System.Windows.Forms.ComboBox"
controltype = "ComboBox"
Dim cmb As ComboBox = inctrl
@@ -2161,7 +2174,7 @@ Public Class frmValidator
ClassLogger.Add("Unvorhergesehener Fehler in Check_UpdateIndexe:" & ex.Message & " - Line: " & st.GetFrame(0).GetFileLineNumber().ToString, True)
Return True
End Try
Case "System.Windows.Forms.ComboBox"
Dim cmb As ComboBox = inctrl
'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss
@@ -2296,7 +2309,7 @@ Public Class frmValidator
End If
Bool_WD = CBool(_Value)
End If
End If
' Dim Bool_WD = CBool(aktivesDokument.GetVariableValue(_IDXName))
@@ -2703,4 +2716,8 @@ Public Class frmValidator
btnSave.Enabled = True
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs)
End Sub
End Class