First create solution
This commit is contained in:
+317
@@ -0,0 +1,317 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
Imports System.Security
|
||||
Imports System.Security.Permissions
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Win.SystemModule
|
||||
Imports DevExpress.ExpressApp.ValidateObjectEventArgs
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.ExpressApp.Win.Editors
|
||||
Imports DevExpress.ExpressApp.Security
|
||||
Imports DevExpress.XtraGrid.Columns
|
||||
Imports DevExpress.Data
|
||||
Imports DevExpress.ExpressApp.FileAttachments.Win
|
||||
Imports System.Reflection
|
||||
|
||||
Imports Nuvolar.Module
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.ExpressApp.Model
|
||||
Imports DevExpress.Xpo
|
||||
|
||||
Public Class ContractsVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Private _GridListEditor As GridListEditor
|
||||
Private _RichEditControl As RichEditControl
|
||||
Private _Contracts As Contracts
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoRollback
|
||||
If View.Id Like "Contracts_ListView*" Or View.Id Like "Contract*LookupListView" Then
|
||||
Frame.GetController(Of FileAttachmentListViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Contracts_DetailView" Then
|
||||
_Contracts = TryCast(View.SelectedObjects(0), Contracts)
|
||||
Dim _DetailView As DetailView = TryCast(View, DetailView)
|
||||
Dim _RichEditContolViewItem As ViewItem = _DetailView.FindItem("DocumentBody")
|
||||
If _RichEditContolViewItem IsNot Nothing Then
|
||||
AddHandler _RichEditContolViewItem.ControlCreated, AddressOf RichEditContolViewItem_ControlCreated
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
If View.Id = "Contracts_ListView" Then
|
||||
Frame.GetController(Of FileAttachmentListViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Sub InitQTT_ProcessColumn()
|
||||
For i As Integer = 0 To _GridListEditor.Columns.Count - 1
|
||||
Dim _ColumnWrapper As ColumnWrapper = _GridListEditor.Columns(i)
|
||||
If _ColumnWrapper.PropertyName = "QTT" Then
|
||||
Dim _QTTColumn As GridColumn = _GridListEditor.GridView.Columns("QTT")
|
||||
_QTTColumn.OptionsColumn.AllowEdit = True
|
||||
_QTTColumn.OptionsColumn.AllowFocus = True
|
||||
_QTTColumn.OptionsColumn.ReadOnly = False
|
||||
_QTTColumn.UnboundType = UnboundColumnType.Decimal
|
||||
End If
|
||||
If _ColumnWrapper.PropertyName = "Units" Then
|
||||
Dim _UnitsColumn As GridColumn = _GridListEditor.GridView.Columns("Units")
|
||||
_UnitsColumn.OptionsColumn.AllowEdit = True
|
||||
_UnitsColumn.OptionsColumn.AllowFocus = True
|
||||
_UnitsColumn.OptionsColumn.ReadOnly = False
|
||||
_UnitsColumn.UnboundType = UnboundColumnType.Object
|
||||
End If
|
||||
Exit For
|
||||
Next
|
||||
End Sub
|
||||
Sub view_selectionchanged(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
Dim _view = TryCast(View, ListView)
|
||||
_GridListEditor = TryCast(_view.Editor, GridListEditor)
|
||||
If _GridListEditor IsNot Nothing Then
|
||||
InitQTT_ProcessColumn()
|
||||
End If
|
||||
End Sub
|
||||
Public Sub _gridView_SelectionChanged(ByVal sender As Object, ByVal e As DevExpress.Data.SelectionChangedEventArgs)
|
||||
Dim _GridView As GridView = TryCast(sender, GridView)
|
||||
Dim _Contracts As Contracts
|
||||
If View.SelectedObjects.Count = 1 Then
|
||||
_Contracts = TryCast(View.SelectedObjects(0), Contracts)
|
||||
If Not _Contracts Is Nothing Then
|
||||
If _Contracts.State = State.Ready Or _Contracts.State = State.Signed Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aContractsRTFRestoreTemplate_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aContractsRTFRestoreTemplate.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _Contracts As Contracts = TryCast(View.SelectedObjects(0), Contracts)
|
||||
|
||||
If _Contracts IsNot Nothing Then
|
||||
If _Contracts.ContractTemplate IsNot Nothing Then
|
||||
_Contracts.DocumentBody = _Contracts.ContractTemplate.DocumentBody
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub aContractsRTFReplaceValue_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aContractsRTFReplaceValue.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _Contracts As Contracts = TryCast(View.SelectedObjects(0), Contracts)
|
||||
|
||||
Dim _APCSheetByProducts As APCSheetByProducts = Nothing
|
||||
If _Contracts.ContractTemplate.IsAPCSheet Then
|
||||
_APCSheetByProducts = _ocur.FindObject(Of APCSheetByProducts)(CriteriaOperator.Parse("Contracts=?", _Contracts))
|
||||
End If
|
||||
|
||||
Dim _Fields As DevExpress.XtraRichEdit.API.Native.FieldCollection = _RichEditControl.Document.Fields
|
||||
|
||||
Dim _ContractsProperties As New ArrayList
|
||||
_ContractsProperties.AddRange(TryCast(_Contracts.[GetType](), System.Type).GetProperties())
|
||||
Dim _TemplateFields As New ArrayList
|
||||
For Each _Field As DevExpress.XtraRichEdit.API.Native.Field In _Fields
|
||||
_Field.ShowCodes = True
|
||||
Dim _ActString As String = _RichEditControl.Document.GetText(_Field.CodeRange)
|
||||
If Not _ActString.Contains("FORMTEXT") Then
|
||||
_TemplateFields.Add(_ActString.Replace("DOCVARIABLE ", ""))
|
||||
Else
|
||||
_TemplateFields.Add(_ActString)
|
||||
End If
|
||||
Next
|
||||
|
||||
Dim _TemplateFieldsValue As New ArrayList
|
||||
For Each _ActTemplateField As String In _TemplateFields
|
||||
Dim _FiledLocation() As String = _ActTemplateField.Split(New Char() {"."c}, StringSplitOptions.RemoveEmptyEntries)
|
||||
If _FiledLocation.Length > 0 Then
|
||||
If _FiledLocation(0) = "APCSheetByProducts" Then
|
||||
_TemplateFieldsValue.Add(FieldValue(_FiledLocation, Nothing, _APCSheetByProducts))
|
||||
ElseIf _FiledLocation(0) = "Contracts" Then
|
||||
_TemplateFieldsValue.Add(FieldValue(_FiledLocation, _Contracts, Nothing))
|
||||
Else
|
||||
_TemplateFieldsValue.Add(FieldValue(_FiledLocation, _Contracts, _APCSheetByProducts))
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
Dim _FieldIndex As Int16 = 0
|
||||
_RichEditControl.BeginUpdate()
|
||||
Dim _Document As DevExpress.XtraRichEdit.API.Native.Document = _RichEditControl.Document
|
||||
_Document.BeginUpdate()
|
||||
|
||||
For Each _ActTemplateField As String In _TemplateFields
|
||||
Dim field As DevExpress.XtraRichEdit.API.Native.Field = _Fields(_FieldIndex)
|
||||
field.ShowCodes = True
|
||||
Dim _FieldCode As String = _Document.GetText(field.CodeRange)
|
||||
Dim _FieldResult As String = _TemplateFieldsValue(_FieldIndex).ToString
|
||||
Dim _FieldPosition As DevExpress.XtraRichEdit.API.Native.DocumentPosition = field.Range.Start
|
||||
_Document.InsertText(_FieldPosition, _FieldResult)
|
||||
_FieldIndex += 1
|
||||
Next
|
||||
|
||||
For ik = _Document.Fields.Count - 1 To 0 Step -1
|
||||
Dim field As DevExpress.XtraRichEdit.API.Native.Field = _Fields(ik)
|
||||
_Document.Delete(field.Range)
|
||||
Next
|
||||
|
||||
_Document.EndUpdate()
|
||||
_RichEditControl.EndUpdate()
|
||||
End Sub
|
||||
Private Function FieldValue(_FiledLocation As String(), _Contracts As Contracts, _APCSheetByProducts As APCSheetByProducts) As String
|
||||
Dim _Value As String = ""
|
||||
Dim _ObjectType As Type = Nothing
|
||||
Dim _Object As Object = Nothing
|
||||
Dim _ikStart As Long = 0
|
||||
|
||||
Try
|
||||
|
||||
|
||||
If _Contracts Is Nothing And _APCSheetByProducts Is Nothing Then
|
||||
_Value = "[Nincs beállítva]"
|
||||
ElseIf _Contracts IsNot Nothing And _APCSheetByProducts Is Nothing Then
|
||||
_ObjectType = _Contracts.[GetType]()
|
||||
_Object = _Contracts
|
||||
_ikStart = 1
|
||||
ElseIf _Contracts Is Nothing And _APCSheetByProducts IsNot Nothing Then
|
||||
_ObjectType = _APCSheetByProducts.[GetType]()
|
||||
_Object = _APCSheetByProducts
|
||||
_ikStart = 1
|
||||
Else
|
||||
_ObjectType = _Contracts.[GetType]()
|
||||
_Object = _Contracts
|
||||
_ikStart = 0
|
||||
End If
|
||||
|
||||
If String.IsNullOrEmpty(_Value) Then
|
||||
For _ik = _ikStart To _FiledLocation.Length - 1
|
||||
If _ik < _FiledLocation.Length - 1 Then
|
||||
|
||||
Dim _PropertyInfo As PropertyInfo = _ObjectType.GetProperty(_FiledLocation(_ik))
|
||||
|
||||
If _PropertyInfo IsNot Nothing Then
|
||||
_Object = _PropertyInfo.GetValue(_Object, Nothing)
|
||||
If _Object IsNot Nothing Then
|
||||
_ObjectType = _Object.[GetType]()
|
||||
Else
|
||||
_Value = "[Nincs beállítva]"
|
||||
End If
|
||||
Else
|
||||
_Value = "[Nincs beállítva]"
|
||||
End If
|
||||
Else
|
||||
Dim _PropertyInfo As PropertyInfo = _ObjectType.GetProperty(_FiledLocation(_ik))
|
||||
|
||||
If _PropertyInfo IsNot Nothing Then
|
||||
_Object = _PropertyInfo.GetValue(_Object, Nothing)
|
||||
If _Object IsNot Nothing Then
|
||||
|
||||
If TryCast(_Object, IList) IsNot Nothing Then
|
||||
|
||||
For Each _ListElement In TryCast(_Object, IList)
|
||||
_Value += _ListElement.ToString & " "
|
||||
Next
|
||||
Else
|
||||
_Value = _Object.ToString
|
||||
|
||||
Dim _IModelClass As IModelClass = Application.Model.BOModel.GetNode(_ObjectType.FullName)
|
||||
For Each _OwnMembers In _IModelClass.OwnMembers
|
||||
|
||||
If TryCast(_OwnMembers, IModelMember) IsNot Nothing Then
|
||||
If TryCast(_OwnMembers, IModelMember).Name = _PropertyInfo.Name Then
|
||||
Try
|
||||
If LTrim(RTrim(TryCast(_OwnMembers, IModelMember).DisplayFormat)) <> "" Then
|
||||
_Value = String.Format(TryCast(_OwnMembers, IModelMember).DisplayFormat, _Object)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
_Value = "[Nincs beállítva]"
|
||||
End If
|
||||
Else
|
||||
_Value = "[Nincs beállítva]"
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Return _Value
|
||||
End Function
|
||||
Sub RecursivePropertyInfo(_Property_In As Object, _ArrayList_Value_In As ArrayList, _TagArray_In As String(), _TagArrayIndex As Int16, _ValueIndex_In As Int16)
|
||||
If _Property_In IsNot Nothing Then
|
||||
Dim _ObjctType As Type = _Property_In.[GetType]()
|
||||
|
||||
For Each _PropertyInfo_In As PropertyInfo In _ObjctType.GetProperties()
|
||||
Dim _TagArrayIndex_new As Int16 = 0
|
||||
If _TagArray_In.Length = 2 Then
|
||||
_TagArrayIndex_new = 1
|
||||
Else
|
||||
_TagArrayIndex_new = _TagArrayIndex + 1
|
||||
End If
|
||||
If _PropertyInfo_In.Name = _TagArray_In(_TagArrayIndex_new) Then
|
||||
|
||||
If _TagArray_In.Length - 1 = _TagArrayIndex + 1 Then
|
||||
_ArrayList_Value_In.Add(_PropertyInfo_In.GetValue(_Property_In, Nothing))
|
||||
Exit For
|
||||
Else
|
||||
RecursivePropertyInfo(_PropertyInfo_In.GetValue(_Property_In, Nothing), _ArrayList_Value_In, _TagArray_In, _TagArrayIndex + 1, _ValueIndex_In)
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
If _ArrayList_Value_In.Count < _ValueIndex_In Then _ArrayList_Value_In.Add(TagBuilder(_TagArray_In))
|
||||
Else
|
||||
_ArrayList_Value_In.Add(TagBuilder(_TagArray_In))
|
||||
End If
|
||||
End Sub
|
||||
Function TagBuilder(_TagArray_In As String()) As String
|
||||
Dim _ActTag As New StringBuilder
|
||||
_ActTag.Append("[")
|
||||
For Each _TTag As String In _TagArray_In
|
||||
_ActTag.Append(_TTag + ".")
|
||||
Next
|
||||
_ActTag.Append("]")
|
||||
Return (_ActTag.ToString).Remove(_ActTag.ToString.Length - 2, 1)
|
||||
End Function
|
||||
'((_PropertyInfo_In.GetValue(_Property_In, Nothing)).[GetType]()).GetProperties().Length > 0 And
|
||||
'If (((_PropertyInfo_In.GetValue(_Property_In, Nothing)).[GetType]().ToString.Split(New Char() {"."c}, StringSplitOptions.RemoveEmptyEntries)))(0) = "Nuvolar" Then
|
||||
' RecursivePropertyInfo(_PropertyInfo_In.GetValue(_Property_In, Nothing), _RecursionLevel + 1, _ArrayList_Name_In, _ArrayList_Value_In)
|
||||
'End If
|
||||
Private Sub RichEditContolViewItem_ControlCreated(sender As Object, e As EventArgs)
|
||||
Dim _ItemControl As Object = TryCast(sender, ViewItem).Control
|
||||
Dim _RichEditUserControl As RichEditUserControl = TryCast(_ItemControl, RichEditUserControl)
|
||||
_RichEditControl = TryCast(_ItemControl, RichEditUserControl).RichEditControl
|
||||
End Sub
|
||||
|
||||
Private Sub aInsertRTFTextContracts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInsertRTFTextContracts.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _User As DevExpress.Persistent.BaseImpl.User = _onew.GetObjectByKey(Of DevExpress.Persistent.BaseImpl.User)(_onew.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
Dim _RTFCopy As RTFCopy = _onew.FindObject(Of RTFCopy)(CriteriaOperator.Parse("UserCreated=?", _User))
|
||||
Dim _Contracts As Contracts = TryCast(View.SelectedObjects(0), Contracts)
|
||||
|
||||
Dim _DocPos As API.Native.DocumentPosition = _RichEditControl.Document.CaretPosition
|
||||
|
||||
_RichEditControl.Document.InsertHtmlText(_DocPos, _RTFCopy.RTFString)
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user