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

jj 20.01.17

Browse Source
This commit is contained in:
JenneJ
2017-01-20 15:51:32 +01:00
parent 0d59a9613a
commit c9f2c6c872
11 changed files with 2333 additions and 1976 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -3631,7 +3631,14 @@ Public Class frmConstructor_Main
Dim DatePicker As DateEdit = sender
Dim value As DateTime = DatePicker.EditValue
If Date.Parse(DatePicker.OldEditValue) = DatePicker.EditValue Then
Dim oldValue As Date
Dim validDate As Boolean = Date.TryParse(DatePicker.OldEditValue, oldValue)
If Not validDate Then
oldValue = Date.MinValue
End If
If oldValue = DatePicker.EditValue Then
Exit Sub
End If
@@ -6491,4 +6498,32 @@ Public Class frmConstructor_Main
End Try
End Sub
'Private Sub GridViewDoc_Search_MasterRowExpanded(sender As Object, e As CustomMasterRowEventArgs) Handles GridViewDoc_Search.MasterRowExpanded
' Dim focusedRow = GridViewDoc_Search.GetDataRow(e.RowHandle)
' Dim docID As Integer = focusedRow(3)
' Dim DT_DETAILS_SQL = String.Format("SELECT T.[GUID],{2},T.[CONFIG_ID],T1.HEADER_CAPTION,T.[VALUE],T1.[LANGUAGE], T1.COLUMN_VIEW,T1.EDITABLE,T1.TYPE_ID,T1.VISIBLE,T.CHANGED_WHEN,T.CHANGED_WHO " &
' "FROM TBPMO_DOC_VALUES T RIGHT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND LANGUAGE = '{1}'", CURRENT_ENTITY_ID, USER_LANGUAGE, docID)
' Dim DT_DETAILS As DataTable = ClassDatabase.Return_Datatable(DT_DETAILS_SQL, True)
'End Sub
'Private Sub GridViewDoc_Search_MasterRowGetChildList(sender As Object, e As MasterRowGetChildListEventArgs) Handles GridViewDoc_Search.MasterRowGetChildList
' Try
' Dim focusedRow = GridViewDoc_Search.GetDataRow(e.RowHandle)
' Dim docID As Integer = focusedRow(3)
' Dim DT_DETAILS_SQL = String.Format("SELECT T.[GUID],{2},T.[CONFIG_ID],T1.HEADER_CAPTION,T.[VALUE],T1.[LANGUAGE], T1.COLUMN_VIEW,T1.EDITABLE,T1.TYPE_ID,T1.VISIBLE,T.CHANGED_WHEN,T.CHANGED_WHO " &
' "FROM TBPMO_DOC_VALUES T RIGHT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND LANGUAGE = '{1}'", CURRENT_ENTITY_ID, USER_LANGUAGE, docID)
' Dim DT_DETAILS As DataTable = ClassDatabase.Return_Datatable(DT_DETAILS_SQL, True)
' e.ChildList = DT_DETAILS
' Catch ex As Exception
' ClassHelper.MSGBOX_Handler("ERROR", "", ex.Message, ex.StackTrace)
' End Try
'End Sub
End Class