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

MS27062016

Browse Source
This commit is contained in:
SchreiberM
2016-06-27 13:43:47 +02:00
parent 59371f3fba
commit c5f276c37d
27 changed files with 1192 additions and 626 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -15,11 +15,13 @@ Imports System.Runtime.InteropServices
Public Class frmConstructor_Main
Private DT_VWPMO_CONSTRUCTOR_FORMS As DataTable
Private DT_ENTITY_DATA As DataTable
Private DT_FORM As DataTable
Private Const SEE_MASK_INVOKEIDLIST = &HC
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
Private Const SEE_MASK_FLAG_NO_UI = &H400
Public Const SW_SHOW As Short = 5
Private PARENT_SKIPPED As Boolean = False
Private DATE_FORMAT As String = "dd.MM.YYYY"
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)> _
Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
End Function
@@ -1576,10 +1578,12 @@ Public Class frmConstructor_Main
' Show_Selected_Record_Data(SELECTED_RECORD_ID)
Update_Status_Label(True, "Record saved - " & Now, EditState.Update)
Update_Record_Label(SELECTED_RECORD_ID)
DT_FORM = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
Dim FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
Dim IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
Dim FORM_TYPE = DT_FORM.Rows(0).Item("FORM_TYPE_ID") 'ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
Dim IS_SINGLE_RECORD = DT_FORM.Rows(0).Item("SINGLE_RECORD") 'ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
DATE_FORMAT = DT_FORM.Rows(0).Item("DATE_FORMAT")
CURRENT_DATE_FORMAT = DATE_FORMAT
If IS_SINGLE_RECORD = False Then
If FORM_TYPE <> 5 Then
If EDIT_STATE = EditState.Insert Then
@@ -2566,7 +2570,7 @@ Public Class frmConstructor_Main
Return PARENT_RECORD1
End If
Case 3
' Dim sqlp = "SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID
Dim Parent_EntityID = ENTITY_ROW.Item("PARENT_ID") 'ClassDatabase.Execute_Scalar(sqlp, True)
Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = (SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE " & _
"T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}) and T1.FORM_ID = {2}", RECORDID, Parent_EntityID, ENTITY_ID)
@@ -3710,7 +3714,7 @@ Public Class frmConstructor_Main
tslblWindreamView.Text = msg
Dim DTGrid As New DataTable
Dim ColArray As New List(Of String)
Dim ColArrayDEFINITION As New List(Of String)
Try
'Die Icon Colum erstellen und konfigurieren
Dim colIcon As New System.Data.DataColumn()
@@ -3753,7 +3757,7 @@ Public Class frmConstructor_Main
If Not IsDBNull(ColumnName) Then
If Not IsDBNull(ColumnName) Or IsNothing(ColumnName) Or ColumnName <> "" Or ColumnName <> "{}" Then
'Jetzt die Spalten aus Array hinzufügen und Breite konfigurieren
ColArray.Add(Column.ColumnName)
ColArrayDEFINITION.Add(Column.ColumnName)
End If
End If
ColCount += 1
@@ -3763,7 +3767,7 @@ Public Class frmConstructor_Main
Catch ex As Exception
MsgBox("Unexpected Error in Construct Datatable for GridResult: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
COL_ARRAY_RESULTLIST = ColArray
COL_ARRAY_RESULTLIST = ColArrayDEFINITION
For Each row As DataRow In DT_FILE_RESULT.Rows
@@ -3804,10 +3808,11 @@ Public Class frmConstructor_Main
NewRow.Item(1) = fullpath
Dim i = 2 'Fängt bei 2 an, um die ICON Column zu überspringen
For Each Column As String In ColArray
For Each Column As String In ColArrayDEFINITION
Dim Colname = DT_WINDREAM_RESULTLIST.Rows(0).Item(Column)
Dim rowvalue
Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> now rowvalue for Colname '" & Colname & "'", False)
If Colname = "Dateiname" Or Colname = "filename" Then
rowvalue = filename
ElseIf Colname = "Dokumentart" Or Colname = "doctype" Then
@@ -3815,6 +3820,7 @@ Public Class frmConstructor_Main
ElseIf Colname = "Erstellt" Or Colname = "created" Then
rowvalue = row.Item("Creation_DateTime")
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> else: row.Item(" & Colname & ")", False)
rowvalue = row.Item(Colname)
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> rowvalue : '" & rowvalue.ToString & "'", False)
@@ -4248,17 +4254,17 @@ Public Class frmConstructor_Main
If Not IsNothing(datevalue) Then
dtpFollowUp.Enabled = True
If datevalue = "00:00:00" Then
dtpFollowUp.Value = CDate(Now)
dtpFollowUp.Value = ClassHelper.Convert_Date_2_Form_Format(Now, CURRENT_DATE_FORMAT)
End If
FOLL_UP_RECORD_DEFINED = True
Try
dtpFollowUp.Value = CDate(datevalue)
dtpFollowUp.Value = ClassHelper.Convert_Date_2_Form_Format(datevalue, CURRENT_DATE_FORMAT)
Catch ex As Exception
dtpFollowUp.Value = CDate(Now)
dtpFollowUp.Value = ClassHelper.Convert_Date_2_Form_Format(Now, CURRENT_DATE_FORMAT)
End Try
Else
dtpFollowUp.Value = CDate(Now)
dtpFollowUp.Value = ClassHelper.Convert_Date_2_Form_Format(Now, CURRENT_DATE_FORMAT)
FOLL_UP_RECORD_DEFINED = False
End If
@@ -5308,11 +5314,51 @@ Public Class frmConstructor_Main
Dim sql_ResultList = "select * from TBPMO_USER_WINDREAM_RESULTLIST_CONFIG where USER_ID = " & USER_GUID & " AND CONSTRUCTOR_DETAIL_ID = " & CONSTRUCTOR_DETAIL_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql_ResultList, "GET USER_RESULTLIST KONFIG")
DT_WINDREAM_RESULTLIST = DT
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in ColumnWidth-Change DocResult: " & ex.Message, False)
End Try
End Sub
Private Sub ToolStripTextBox2_KeyUp(sender As Object, e As KeyEventArgs) Handles ToolStripTextBox2.KeyUp
If e.KeyCode = Keys.Return Then
Try
If ToolStripTextBox2.Text <> "" Then
Dim OldName, NewName As String
OldName = RESULT_DOC_PATH
' Define file names.
NewName = ToolStripTextBox2.Text
Dim name1 = Path.Combine(Path.GetDirectoryName(RESULT_DOC_PATH), NewName)
NewName = name1 & Path.GetExtension(RESULT_DOC_PATH)
' Rename file.
My.Computer.FileSystem.RenameFile(OldName, NewName)
RUN_WDSEARCH_GRID("RECORD")
End If
Catch ex As Exception
MsgBox("Unexpected Error in Renaming files: " & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End Sub
Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.Click
Display_Filename()
End Sub
Private Sub UmbenennenToolStripMenuItem_MouseHover(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.MouseHover
Display_Filename()
End Sub
Sub Display_Filename()
Try
If RESULT_DOC_PATH <> "" Then
Dim FileToRename As String
FileToRename = Path.GetFileNameWithoutExtension(RESULT_DOC_PATH)
ToolStripTextBox2.Text = FileToRename
ToolStripTextBox2.Enabled = True
Else
ToolStripTextBox2.Enabled = False
End If
Catch ex As Exception
MsgBox("Unexpected Error in getting the filename: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
End Class