Reconfigure for GIT
This commit is contained in:
+39
@@ -0,0 +1,39 @@
|
||||
Partial Class WorkSheet_VC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
'
|
||||
'aOpenWorkSheet_Subcontractor
|
||||
'
|
||||
'
|
||||
'aCloseWorkSheet_Subcontractor
|
||||
'
|
||||
Me.aCloseWorkSheet_Subcontractor.TargetObjectsCriteria = "WorkSheetState = eWorkSheetState.eOpened"
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+129
@@ -0,0 +1,129 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aOpenWorkSheet_Subcontractor.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>246, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aCloseWorkSheet_Subcontractor.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+281
@@ -0,0 +1,281 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports SISBusiness.Module
|
||||
Imports FarPoint.Win.Spread
|
||||
Imports FarPoint.PDF
|
||||
Imports System.IO
|
||||
Imports System.Web.HttpResponse
|
||||
Imports System.Web.UI.Page
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Web.ASPxClasses.Internal
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.ExpressApp.Web.SystemModule
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.ExpressApp.Reports
|
||||
|
||||
Public Class WorkSheet_VC
|
||||
Inherits SISBusiness.Module.WorkSheet_VC
|
||||
Private _FpSpread As FpSpread
|
||||
Private _FpPdf As FarPoint.Win.Spread.PrintInfo
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
|
||||
Frame.GetController(Of WorkSheet_VC).aCloseWorkSheet_Subcontractor.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of WorkSheet_VC).aOpenWorkSheet_Subcontractor.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id = "WorkSheet_Header_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of WorkSheet_VC).aCloseWorkSheet_Subcontractor.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of WorkSheet_VC).aOpenWorkSheet_Subcontractor.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_ListView_Subcontractor_Closed" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "WorkSheet_Header_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of WorkSheet_VC).aCloseWorkSheet_Subcontractor.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of WorkSheet_VC).aOpenWorkSheet_Subcontractor.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_ListView_Subcontractor_Closed" Then
|
||||
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub aOpenWorkSheet_Subcontractor_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs)
|
||||
MyBase.aOpenWorkSheet_Subcontractor_CustomizePopupWindowParams(sender, e)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User))
|
||||
Dim _SubcontractorCustomers As Customers = _Contacts.Customers
|
||||
Dim _OpenWorkSheet_SubcontractorPopUp As OpenWorkSheet_SubcontractorPopUp = _onew.CreateObject(Of OpenWorkSheet_SubcontractorPopUp)()
|
||||
Dim _SubContractor As Subcontractor = _onew.FindObject(Of Subcontractor)(CriteriaOperator.Parse("Customers.Oid=?", _SubcontractorCustomers.Oid))
|
||||
|
||||
_OpenWorkSheet_SubcontractorPopUp.Subcontractor = _SubContractor
|
||||
e.View = Application.CreateDetailView(_onew, "OpenWorkSheet_SubcontractorPopUp_DetailView", False, _OpenWorkSheet_SubcontractorPopUp)
|
||||
End Sub
|
||||
Protected Overrides Sub aOpenWorkSheet_Subcontractor_Execute(sender As Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs)
|
||||
MyBase.aOpenWorkSheet_Subcontractor_Execute(sender, e)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _OpenWorkSheet_SubcontractorPopUp As OpenWorkSheet_SubcontractorPopUp = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), OpenWorkSheet_SubcontractorPopUp))
|
||||
Dim _Subcontractor As Subcontractor = _ocur.GetObjectByKey(Of Subcontractor)(_OpenWorkSheet_SubcontractorPopUp.Subcontractor.Oid)
|
||||
Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User))
|
||||
Dim _SubcontractorCustomers As Customers = _Contacts.Customers
|
||||
Dim _ReportData As ReportData
|
||||
|
||||
|
||||
Dim _WorkSheet_Header As WorkSheet_Header = _ocur.CreateObject(Of WorkSheet_Header)()
|
||||
_WorkSheet_Header.Customers = _ocur.GetObjectByKey(Of Customers)(_OpenWorkSheet_SubcontractorPopUp.WorkPlace.Customers.Oid)
|
||||
_WorkSheet_Header.CustomersFrom = _ocur.GetObjectByKey(Of CustomersFrom)(_OpenWorkSheet_SubcontractorPopUp.CustomersFrom.Oid)
|
||||
_WorkSheet_Header.WorkSheetType = _ocur.GetObjectByKey(Of WorkSheetType)(_OpenWorkSheet_SubcontractorPopUp.WorkSheetType.Oid)
|
||||
_WorkSheet_Header.DateExecution = _OpenWorkSheet_SubcontractorPopUp.DateCreated
|
||||
_WorkSheet_Header.DateCreated = GetSQLTime(_ocur.Session)
|
||||
_WorkSheet_Header.IsSubcontractor = True
|
||||
_WorkSheet_Header.SubcontractorCustomers = _SubcontractorCustomers
|
||||
_WorkSheet_Header.Description = _OpenWorkSheet_SubcontractorPopUp.Description
|
||||
_WorkSheet_Header.WorkPlace = _ocur.GetObjectByKey(Of WorkPlace)(_OpenWorkSheet_SubcontractorPopUp.WorkPlace.Oid)
|
||||
_WorkSheet_Header.WorkSheetState = eWorkSheetState.eOpened
|
||||
_WorkSheet_Header.CurrencyName = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
|
||||
_WorkSheet_Header.WorkHour = _OpenWorkSheet_SubcontractorPopUp.WorkHour
|
||||
_WorkSheet_Header.WorkDescription = _OpenWorkSheet_SubcontractorPopUp.WorkDescription
|
||||
_WorkSheet_Header.WorkUsedMaterialDescription = _OpenWorkSheet_SubcontractorPopUp.WorkUsedMaterialDescription
|
||||
_WorkSheet_Header.WorkDescriptionOther = _OpenWorkSheet_SubcontractorPopUp.WorkDescriptionOther
|
||||
_WorkSheet_Header.WorkTravelKm = _OpenWorkSheet_SubcontractorPopUp.WorkTravelKm
|
||||
_WorkSheet_Header.InvoiceState = _OpenWorkSheet_SubcontractorPopUp.InvoiceState
|
||||
|
||||
|
||||
_ocur.CommitChanges()
|
||||
_ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _WorkSheet_Header.WorkSheetType.ReportData.Oid), True)
|
||||
If _ReportData IsNot Nothing Then
|
||||
Dim _XafReport As XafReport = _ReportData.LoadReport(_ocur)
|
||||
|
||||
Dim _Param_Colletion As DevExpress.XtraReports.Parameters.ParameterCollection = _XafReport.Parameters
|
||||
|
||||
For Each _Param As DevExpress.XtraReports.Parameters.Parameter In _Param_Colletion
|
||||
If _Param.Name = "Workplace" Then
|
||||
Dim _SubcontractorCustomers_WorkPLace As SubcontractorCustomers = _ocur.FindObject(Of SubcontractorCustomers) _
|
||||
(CriteriaOperator.Parse("Subcontractor=? AND Customers=?", _Subcontractor, _WorkSheet_Header.Customers))
|
||||
If _SubcontractorCustomers_WorkPLace.Workplace Is Nothing Then
|
||||
_Param.Value = "Nincs megadva!"
|
||||
Else
|
||||
_Param.Value = _SubcontractorCustomers_WorkPLace.Workplace.ShortName
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
Dim _FilterString As String = "[Oid]='" & _WorkSheet_Header.Oid.ToString & "'"
|
||||
_XafReport.FilterString = _FilterString
|
||||
Dim _FileName As String = Path.GetTempPath & _WorkSheet_Header.DocumentNumber & "_Munkalap.pdf"
|
||||
Dim _StreamFile As New FileStream(_FileName, FileMode.Create)
|
||||
|
||||
_XafReport.ExportToPdf(_StreamFile)
|
||||
_StreamFile.Close()
|
||||
|
||||
Dim _StreamFile2 As New FileStream(_FileName, FileMode.Open)
|
||||
|
||||
_WorkSheet_Header.WorkSheetFile_Original = New FileData(_ocur.Session)
|
||||
_WorkSheet_Header.WorkSheetFile_Original.LoadFromStream(_WorkSheet_Header.DocumentNumber + "_Munkalap.pdf", _StreamFile2)
|
||||
_StreamFile2.Close()
|
||||
Process.Start(_FileName)
|
||||
End If
|
||||
_ocur.CommitChanges()
|
||||
|
||||
'Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("Oid=?", _WorkSheet_Header.Oid), True)
|
||||
|
||||
View.Close()
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub aCloseWorkSheet_Subcontractor_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs)
|
||||
MyBase.aCloseWorkSheet_Subcontractor_CustomizePopupWindowParams(sender, e)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CloseWorkSheet_SubcontractorpopUp As CloseWorkSheet_SubcontractorpopUp = _onew.CreateObject(Of CloseWorkSheet_SubcontractorpopUp)()
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "CloseWorkSheet_SubcontractorpopUp_DetailView", False, _CloseWorkSheet_SubcontractorpopUp)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub aCloseWorkSheet_Subcontractor_Execute(sender As Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs)
|
||||
MyBase.aCloseWorkSheet_Subcontractor_Execute(sender, e)
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _CloseWorkSheet_SubcontractorpopUp As CloseWorkSheet_SubcontractorpopUp = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), CloseWorkSheet_SubcontractorpopUp))
|
||||
If _CloseWorkSheet_SubcontractorpopUp.WorkSheetFile Is Nothing Then Throw New System.Exception("Lezáráshooz kötelezõ munkalapot csatolni!")
|
||||
Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header)
|
||||
|
||||
_WorkSheet_Header.WorkSheetState = eWorkSheetState.eReadyforClose
|
||||
_WorkSheet_Header.Description = _CloseWorkSheet_SubcontractorpopUp.Description
|
||||
_WorkSheet_Header.DateClosed = _CloseWorkSheet_SubcontractorpopUp.DateClosed
|
||||
|
||||
Dim _FileName As String = Path.GetTempPath & _CloseWorkSheet_SubcontractorpopUp.WorkSheetFile.FileName
|
||||
Dim _StreamFile As New FileStream(_FileName, FileMode.Create)
|
||||
_CloseWorkSheet_SubcontractorpopUp.WorkSheetFile.SaveToStream(_StreamFile)
|
||||
_StreamFile.Close()
|
||||
Dim _StreamFile2 As New FileStream(_FileName, FileMode.Open)
|
||||
_WorkSheet_Header.WorkSheetFile = New FileData(_ocur.Session)
|
||||
_WorkSheet_Header.WorkSheetFile.LoadFromStream(_CloseWorkSheet_SubcontractorpopUp.WorkSheetFile.FileName, _StreamFile2)
|
||||
_WorkSheet_Header.Save()
|
||||
_StreamFile2.Close()
|
||||
|
||||
If _CloseWorkSheet_SubcontractorpopUp.SubcontractorInvoice IsNot Nothing Then
|
||||
_FileName = Path.GetTempPath & _CloseWorkSheet_SubcontractorpopUp.SubcontractorInvoice.FileName
|
||||
_StreamFile = New FileStream(_FileName, FileMode.Create)
|
||||
_CloseWorkSheet_SubcontractorpopUp.SubcontractorInvoice.SaveToStream(_StreamFile)
|
||||
_StreamFile.Close()
|
||||
_StreamFile2 = New FileStream(_FileName, FileMode.Open)
|
||||
_WorkSheet_Header.SubcontractorInvoice = New FileData(_ocur.Session)
|
||||
_WorkSheet_Header.SubcontractorInvoice.LoadFromStream(_CloseWorkSheet_SubcontractorpopUp.SubcontractorInvoice.FileName, _StreamFile2)
|
||||
_WorkSheet_Header.Save()
|
||||
_StreamFile2.Close()
|
||||
End If
|
||||
|
||||
_ocur.CommitChanges()
|
||||
Catch ext As System.Exception
|
||||
MsgBox(ext.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub SetDatatoFpSpread(_WorkSheet_Header As WorkSheet_Header, xPCollection As DevExpress.Xpo.XPCollection, _Subcontractor As Subcontractor, _Customers As Customers, _ocur As Xpo.XPObjectSpace)
|
||||
|
||||
Dim _Type As System.Type = GetType(WorkSheet_Header)
|
||||
Dim _TypeSubcontractorCustomers As System.Type = GetType(SubcontractorCustomers)
|
||||
Dim _TypeCustomersFrom As System.Type = GetType(CustomersFrom)
|
||||
Dim _PropertyInfo As System.Reflection.PropertyInfo() = _Type.GetProperties
|
||||
Dim _PropertyInfoSubcontractorCustomers As System.Reflection.PropertyInfo() = _TypeSubcontractorCustomers.GetProperties
|
||||
Dim _PropertyInfoCustomersFrom As System.Reflection.PropertyInfo() = _TypeCustomersFrom.GetProperties
|
||||
|
||||
For Each _WorkSheetTypeExcelParam As WorkSheetTypeExcelParam In xPCollection
|
||||
For Each _PropertyInfo_ACT As System.Reflection.PropertyInfo In _PropertyInfo
|
||||
If _WorkSheetTypeExcelParam.PropertiesInfo = _PropertyInfo_ACT.Name Then
|
||||
Select Case _PropertyInfo_ACT.Name
|
||||
Case "DocumentNumber"
|
||||
_FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).Locked = True
|
||||
_FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).TabStop = False
|
||||
_FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).ResetText()
|
||||
If _WorkSheet_Header.DocumentNumber IsNot Nothing Or _WorkSheet_Header.DocumentNumber <> "" Then
|
||||
_FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).Text = _WorkSheet_Header.DocumentNumber.ToString
|
||||
Else
|
||||
_FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).Text = ""
|
||||
End If
|
||||
Exit For
|
||||
Case "CustomersFrom"
|
||||
_FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).Locked = True
|
||||
_FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).TabStop = False
|
||||
_FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).ResetText()
|
||||
_FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).Text = _WorkSheet_Header.CustomersFrom.FullName.ToString
|
||||
Exit For
|
||||
Case "DateExecution"
|
||||
_FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).Locked = True
|
||||
_FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).TabStop = False
|
||||
_FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).ResetText()
|
||||
_FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).Text = _WorkSheet_Header.DateExecution.ToString
|
||||
Exit For
|
||||
End Select
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
For Each _WorkSheetTypeExcelParam As WorkSheetTypeExcelParam In xPCollection
|
||||
For Each _PropertyInfo_ACT As System.Reflection.PropertyInfo In _PropertyInfoCustomersFrom
|
||||
If _WorkSheetTypeExcelParam.PropertiesInfo = _PropertyInfo_ACT.Name Then
|
||||
Select Case _PropertyInfo_ACT.Name
|
||||
Case "Address1"
|
||||
_FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).Locked = True
|
||||
_FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).TabStop = False
|
||||
_FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).ResetText()
|
||||
|
||||
_FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).Text = _
|
||||
_WorkSheet_Header.CustomersFrom.Address1.ToString()
|
||||
|
||||
Exit For
|
||||
End Select
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
End Sub
|
||||
Public Function StreamToMemory(ByVal input As Stream) As IO.MemoryStream
|
||||
Dim _buffer(1023) As Byte
|
||||
Dim _count As Integer = 1024
|
||||
Dim _output As MemoryStream
|
||||
|
||||
If input.CanSeek Then
|
||||
_output = New MemoryStream(input.Length)
|
||||
Else
|
||||
_output = New MemoryStream
|
||||
End If
|
||||
Do
|
||||
_count = input.Read(_buffer, 0, _count)
|
||||
If _count = 0 Then Exit Do
|
||||
_output.Write(_buffer, 0, _count)
|
||||
Loop
|
||||
_output.Position = 0
|
||||
|
||||
Return _output
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
+50
@@ -0,0 +1,50 @@
|
||||
Partial Class InstallationVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aInstallationDocumentations_OpenDashboardWithViewer = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aInstallationDocumentations_OpenDashboardWithViewer
|
||||
'
|
||||
Me.aInstallationDocumentations_OpenDashboardWithViewer.Caption = "aInstallationDocumentations_OpenDashboardWithViewer"
|
||||
Me.aInstallationDocumentations_OpenDashboardWithViewer.ConfirmationMessage = Nothing
|
||||
Me.aInstallationDocumentations_OpenDashboardWithViewer.Id = "aInstallationDocumentations_OpenDashboardWithViewer"
|
||||
Me.aInstallationDocumentations_OpenDashboardWithViewer.ImageName = Nothing
|
||||
Me.aInstallationDocumentations_OpenDashboardWithViewer.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aInstallationDocumentations_OpenDashboardWithViewer.Shortcut = Nothing
|
||||
Me.aInstallationDocumentations_OpenDashboardWithViewer.Tag = Nothing
|
||||
Me.aInstallationDocumentations_OpenDashboardWithViewer.TargetObjectsCriteria = "IsDashboard = True"
|
||||
Me.aInstallationDocumentations_OpenDashboardWithViewer.TargetObjectType = GetType(SISBusiness.[Module].InstallationDocumentations)
|
||||
Me.aInstallationDocumentations_OpenDashboardWithViewer.TargetViewId = Nothing
|
||||
Me.aInstallationDocumentations_OpenDashboardWithViewer.ToolTip = Nothing
|
||||
Me.aInstallationDocumentations_OpenDashboardWithViewer.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aInstallationDocumentations_OpenDashboardWithViewer As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,126 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aInstallationDocumentations_OpenDashboardWithViewer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -0,0 +1,67 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Web.SystemModule
|
||||
|
||||
Public Class InstallationVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id Like "Installation_InstallationDocumentations_ListView_Support" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id Like "Installation_InstallationDocumentations_ListView_Support" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aInstallationDocumentations_OpenDashboardWithViewer_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInstallationDocumentations_OpenDashboardWithViewer.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _InstallationDocumentations As InstallationDocumentations = TryCast(View.SelectedObjects(0), InstallationDocumentations)
|
||||
|
||||
If _InstallationDocumentations IsNot Nothing Then
|
||||
Dim _FileName As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), System.IO.Path.GetTempPath, _InstallationDocumentations.File.FileName)
|
||||
Dim _StreamFile As System.IO.Stream = New System.IO.FileStream(_FileName, System.IO.FileMode.Create, System.IO.FileAccess.Write)
|
||||
_InstallationDocumentations.File.SaveToStream(_StreamFile)
|
||||
_StreamFile.Close()
|
||||
|
||||
If IO.File.Exists(_FileName) Then
|
||||
GLOBAL_DASHBOARD_XML_DashboardXmlFile = _FileName
|
||||
GLOBAL_DASHBOARD_XML_UserName = _InstallationDocumentations.XML_UserName
|
||||
GLOBAL_DASHBOARD_XML_Password = _InstallationDocumentations.XML_Password
|
||||
GLOBAL_DASHBOARD_XML_ServerName = _InstallationDocumentations.XML_ServerName
|
||||
GLOBAL_DASHBOARD_XML_DatabaseName = _InstallationDocumentations.XML_DatabaseName
|
||||
Select Case _InstallationDocumentations.XML_SqlType
|
||||
Case eSQLType.MSSQL
|
||||
GLOBAL_DASHBOARD_XML_SQLType = "MSSQL"
|
||||
Case eSQLType.MySQL
|
||||
GLOBAL_DASHBOARD_XML_SQLType = "MYSQL"
|
||||
Case eSQLType.PostgreSQL
|
||||
GLOBAL_DASHBOARD_XML_SQLType = "PSQL"
|
||||
End Select
|
||||
|
||||
DevExpress.ExpressApp.Web.WebWindow.CurrentRequestWindow.RegisterStartupScript("ShowCustomFormScriptKey", String.Format("window.open('{0}');", "Controls/DashboardViewer.aspx"))
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
+71
@@ -0,0 +1,71 @@
|
||||
Partial Class SubcontractorVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aSubcontractorNavigationEnable = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aSubcontractorNavigationDisable = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aSubcontractorDocuments_OpenDashboardWithViewer = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aSubcontractorNavigationEnable
|
||||
'
|
||||
Me.aSubcontractorNavigationEnable.AcceptButtonCaption = Nothing
|
||||
Me.aSubcontractorNavigationEnable.CancelButtonCaption = Nothing
|
||||
Me.aSubcontractorNavigationEnable.Caption = "aSubcontractor Navigation Enable"
|
||||
Me.aSubcontractorNavigationEnable.ConfirmationMessage = Nothing
|
||||
Me.aSubcontractorNavigationEnable.Id = "aSubcontractorNavigationEnable"
|
||||
Me.aSubcontractorNavigationEnable.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aSubcontractorNavigationEnable.TargetObjectType = GetType(SISBusiness.[Module].SubcontractorRoles)
|
||||
Me.aSubcontractorNavigationEnable.ToolTip = Nothing
|
||||
'
|
||||
'aSubcontractorNavigationDisable
|
||||
'
|
||||
Me.aSubcontractorNavigationDisable.AcceptButtonCaption = Nothing
|
||||
Me.aSubcontractorNavigationDisable.CancelButtonCaption = Nothing
|
||||
Me.aSubcontractorNavigationDisable.Caption = "aSubcontractor Navigation Disable"
|
||||
Me.aSubcontractorNavigationDisable.ConfirmationMessage = Nothing
|
||||
Me.aSubcontractorNavigationDisable.Id = "aSubcontractorNavigationDisable"
|
||||
Me.aSubcontractorNavigationDisable.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aSubcontractorNavigationDisable.TargetObjectType = GetType(SISBusiness.[Module].SubcontractorRoles)
|
||||
Me.aSubcontractorNavigationDisable.ToolTip = Nothing
|
||||
'
|
||||
'aSubcontractorDocuments_OpenDashboardWithViewer
|
||||
'
|
||||
Me.aSubcontractorDocuments_OpenDashboardWithViewer.Caption = "aSubcontractorDocuments_OpenDashboardWithViewer"
|
||||
Me.aSubcontractorDocuments_OpenDashboardWithViewer.ConfirmationMessage = Nothing
|
||||
Me.aSubcontractorDocuments_OpenDashboardWithViewer.Id = "aSubcontractorDocuments_OpenDashboardWithViewer"
|
||||
Me.aSubcontractorDocuments_OpenDashboardWithViewer.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aSubcontractorDocuments_OpenDashboardWithViewer.TargetObjectsCriteria = "IsDashboard = True"
|
||||
Me.aSubcontractorDocuments_OpenDashboardWithViewer.TargetViewId = "SubcontractorDocuments_ListView"
|
||||
Me.aSubcontractorDocuments_OpenDashboardWithViewer.ToolTip = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aSubcontractorNavigationEnable As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aSubcontractorNavigationDisable As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aSubcontractorDocuments_OpenDashboardWithViewer As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,132 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aSubcontractorNavigationEnable.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aSubcontractorNavigationDisable.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aSubcontractorDocuments_OpenDashboardWithViewer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>247, 56</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -0,0 +1,326 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.ExpressApp.Web.SystemModule
|
||||
|
||||
Public Class SubcontractorVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id Like "SubcontractorRoles_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_ListView_Subcontractor" Or _
|
||||
View.Id = "WorkSheet_Header_ListView_Subcontractor_Closed" Or _
|
||||
View.Id = "WorkSheet_Header_ListView_Subcontractor_Ready" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser)))
|
||||
|
||||
If _Contacts IsNot Nothing Then
|
||||
If _Contacts.Customers IsNot Nothing Then
|
||||
TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("Customers.Oid = ?", _Contacts.Customers.Oid)
|
||||
Else
|
||||
TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("1=2")
|
||||
End If
|
||||
Else
|
||||
TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("1=2")
|
||||
End If
|
||||
End If
|
||||
If View.Id = "Contracts_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser)))
|
||||
|
||||
If _Contacts IsNot Nothing Then
|
||||
If _Contacts.Customers IsNot Nothing Then
|
||||
TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("Customers.Oid = ?", _Contacts.Customers.Oid)
|
||||
Else
|
||||
TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("1=2")
|
||||
End If
|
||||
Else
|
||||
TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("1=2")
|
||||
End If
|
||||
End If
|
||||
If View.Id = "OfferInHeader_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser)))
|
||||
|
||||
If _Contacts IsNot Nothing Then
|
||||
If _Contacts.Customers IsNot Nothing Then
|
||||
TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("Customers.Oid = ?", _Contacts.Customers.Oid)
|
||||
Else
|
||||
TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("1=2")
|
||||
End If
|
||||
Else
|
||||
TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("1=2")
|
||||
End If
|
||||
End If
|
||||
If View.Id = "RegistryHeader_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser)))
|
||||
|
||||
If _Contacts IsNot Nothing Then
|
||||
If _Contacts.Customers IsNot Nothing Then
|
||||
TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("Customers.Oid = ? AND RegistryType.RegistryCRMType = 2", _Contacts.Customers.Oid)
|
||||
Else
|
||||
TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("1=2")
|
||||
End If
|
||||
Else
|
||||
TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("1=2")
|
||||
End If
|
||||
End If
|
||||
If View.Id = "SubcontractorDocuments_ListView" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id Like "SubcontractorRoles_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_ListView_Subcontractor" Or _
|
||||
View.Id = "WorkSheet_Header_ListView_Subcontractor_Closed" Or _
|
||||
View.Id = "WorkSheet_Header_ListView_Subcontractor_Ready" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Contracts_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OfferInHeader_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "SubcontractorDocuments_ListView" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aSubcontractorNavigationDisable_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSubcontractorNavigationDisable.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
|
||||
Dim _MasterKey As Guid = SecuritySystem.CurrentUserId
|
||||
|
||||
Dim _ModelNavigation_Collection As New XPCollection(Of ModelNavigation)(_uow, CriteriaOperator.Parse("MasterKey=?", _MasterKey))
|
||||
_uow.Delete(_ModelNavigation_Collection)
|
||||
_uow.CommitChanges()
|
||||
|
||||
If View.SelectedObjects.Count = 1 Then
|
||||
Dim _SubcontractorRoles As SubcontractorRoles = TryCast(View.SelectedObjects(0), SubcontractorRoles)
|
||||
If _SubcontractorRoles IsNot Nothing Then
|
||||
Dim _NavigationItemRole_Collection As New XPCollection(Of NavigationItemRole)(_onew.Session, CriteriaOperator.Parse("SubcontractorRoles.Oid=?", _SubcontractorRoles.Oid))
|
||||
Dim _NavigationItemRole As NavigationItemRole
|
||||
|
||||
Dim _ModelNavigation As ModelNavigation
|
||||
|
||||
Dim _IModelNavigationItems As IModelNavigationItems
|
||||
Dim _IModelNavigationItem As IModelNavigationItem
|
||||
|
||||
Dim _NavigationItems As IModelRootNavigationItems = DirectCast(Application.Model, IModelApplicationNavigationItems).NavigationItems
|
||||
_IModelNavigationItems = TryCast(_NavigationItems.Items, IModelNavigationItems)
|
||||
For Each _IModelNavigationItem In _IModelNavigationItems
|
||||
RecursiveAddModelNavigation(_uow, _MasterKey, Nothing, _IModelNavigationItem)
|
||||
Next
|
||||
_uow.CommitChanges()
|
||||
|
||||
Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(ModelNavigation))
|
||||
|
||||
_CS.BeginUpdateCriteria()
|
||||
_CS.Criteria.Add("Filter1", CriteriaOperator.Parse("MasterKey=?", _MasterKey))
|
||||
_CS.EndUpdateCriteria()
|
||||
_CS.Sorting.Add(New SortProperty("Index", DB.SortingDirection.Ascending))
|
||||
|
||||
For Each _ModelNavigation In _CS.Collection
|
||||
For Each _NavigationItemRole In _NavigationItemRole_Collection
|
||||
If _NavigationItemRole.ChoiceActionItemId = _ModelNavigation.Name Then
|
||||
RecursiveDeny(_ModelNavigation)
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
|
||||
e.View = Application.CreateListView("ModelNavigation_ListView", _CS, False)
|
||||
If _SubcontractorRoles IsNot Nothing Then
|
||||
e.View.Caption += " (" & _SubcontractorRoles.ShortName & ")"
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aSubcontractorNavigationDisable_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSubcontractorNavigationDisable.Execute
|
||||
Dim _ModelNavigation As ModelNavigation
|
||||
Dim _NavigationItemRole As NavigationItemRole
|
||||
Dim _ocur As IObjectSpace = View.ObjectSpace
|
||||
|
||||
Dim _SubcontractorRoles As SubcontractorRoles
|
||||
|
||||
For Each _SubcontractorRoles In View.SelectedObjects
|
||||
For Each _ModelNavigation In e.PopupWindow.View.SelectedObjects
|
||||
_NavigationItemRole = _ocur.FindObject(Of NavigationItemRole)(CriteriaOperator.Parse("SubcontractorRoles.Oid=? and ChoiceActionItemId=?", _SubcontractorRoles.Oid, _ModelNavigation.Name))
|
||||
If _NavigationItemRole Is Nothing Then
|
||||
_NavigationItemRole = _ocur.CreateObject(Of NavigationItemRole)()
|
||||
_NavigationItemRole.SubcontractorRoles = _ocur.GetObject(_SubcontractorRoles)
|
||||
_NavigationItemRole.ChoiceActionItemId = _ModelNavigation.Name
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
End Sub
|
||||
|
||||
Private Sub aSubcontractorNavigationEnable_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSubcontractorNavigationEnable.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
|
||||
Dim _MasterKey As Guid = SecuritySystem.CurrentUserId
|
||||
|
||||
Dim _ModelNavigation_Collection As New XPCollection(Of ModelNavigation)(_uow, CriteriaOperator.Parse("MasterKey=?", _MasterKey))
|
||||
_uow.Delete(_ModelNavigation_Collection)
|
||||
_uow.CommitChanges()
|
||||
|
||||
If View.SelectedObjects.Count = 1 Then
|
||||
Dim _SubcontractorRoles As SubcontractorRoles = TryCast(View.SelectedObjects(0), SubcontractorRoles)
|
||||
If _SubcontractorRoles IsNot Nothing Then
|
||||
Dim _NavigationItemRole_Collection As New XPCollection(Of NavigationItemRole)(_onew.Session, CriteriaOperator.Parse("SubcontractorRoles.Oid=?", _SubcontractorRoles.Oid))
|
||||
Dim _NavigationItemRole As NavigationItemRole
|
||||
|
||||
Dim _ModelNavigation As ModelNavigation
|
||||
|
||||
Dim _IModelNavigationItems As IModelNavigationItems
|
||||
Dim _IModelNavigationItem As IModelNavigationItem
|
||||
|
||||
Dim _NavigationItems As IModelRootNavigationItems = DirectCast(Application.Model, IModelApplicationNavigationItems).NavigationItems
|
||||
_IModelNavigationItems = TryCast(_NavigationItems.Items, IModelNavigationItems)
|
||||
For Each _IModelNavigationItem In _IModelNavigationItems
|
||||
RecursiveAddModelNavigation(_uow, _MasterKey, Nothing, _IModelNavigationItem)
|
||||
Next
|
||||
_uow.CommitChanges()
|
||||
|
||||
Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(ModelNavigation))
|
||||
|
||||
_CS.BeginUpdateCriteria()
|
||||
_CS.Criteria.Add("Filter1", CriteriaOperator.Parse("MasterKey=?", _MasterKey))
|
||||
_CS.EndUpdateCriteria()
|
||||
_CS.Sorting.Add(New SortProperty("Index", DB.SortingDirection.Ascending))
|
||||
|
||||
For Each _ModelNavigation In _CS.Collection
|
||||
For Each _NavigationItemRole In _NavigationItemRole_Collection
|
||||
If _NavigationItemRole.ChoiceActionItemId = _ModelNavigation.Name Then
|
||||
RecursiveDeny(_ModelNavigation)
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
|
||||
e.View = Application.CreateListView("ModelNavigation_ListView", _CS, False)
|
||||
If _SubcontractorRoles IsNot Nothing Then
|
||||
e.View.Caption += " (" & _SubcontractorRoles.ShortName & ")"
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aSubcontractorNavigationEnable_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSubcontractorNavigationEnable.Execute
|
||||
Dim _ModelNavigation As ModelNavigation
|
||||
Dim _NavigationItemRole As NavigationItemRole
|
||||
Dim _ocur As IObjectSpace = View.ObjectSpace
|
||||
|
||||
Dim _SubcontractorRoles As SubcontractorRoles
|
||||
|
||||
For Each _SubcontractorRoles In View.SelectedObjects
|
||||
For Each _ModelNavigation In e.PopupWindow.View.SelectedObjects
|
||||
_NavigationItemRole = _ocur.FindObject(Of NavigationItemRole)(CriteriaOperator.Parse("SubcontractorRoles.Oid=? and ChoiceActionItemId=?", _SubcontractorRoles.Oid, _ModelNavigation.Name))
|
||||
If _NavigationItemRole IsNot Nothing Then
|
||||
_ocur.Delete(_NavigationItemRole)
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
End Sub
|
||||
|
||||
Sub RecursiveAddModelNavigation(_uow As UnitOfWork, _MasterKey As Guid, _ModelNavigationParent As ModelNavigation, _IModelNavigationItem As IModelNavigationItem)
|
||||
Dim _ModelNavigation As ModelNavigation
|
||||
Dim _IModelNavigationItem_Child As IModelNavigationItem
|
||||
|
||||
_ModelNavigation = New ModelNavigation(_uow)
|
||||
|
||||
_ModelNavigation.Parent = _ModelNavigationParent
|
||||
_ModelNavigation.Name = _IModelNavigationItem.Id
|
||||
_ModelNavigation.Navigation_Caption = _IModelNavigationItem.Caption
|
||||
_ModelNavigation.Navigation_ImageName = _IModelNavigationItem.ImageName
|
||||
_ModelNavigation.MasterKey = _MasterKey
|
||||
'If _IModelNavigationItem.Index IsNot Nothing Then
|
||||
' _ModelNavigation.Index = CLng(_IModelNavigationItem.Index)
|
||||
'Else
|
||||
|
||||
'End If
|
||||
|
||||
|
||||
_uow.CommitChanges()
|
||||
|
||||
If _IModelNavigationItem.Items.Count > 0 Then
|
||||
For Each _IModelNavigationItem_Child In _IModelNavigationItem.Items
|
||||
RecursiveAddModelNavigation(_uow, _MasterKey, _ModelNavigation, _IModelNavigationItem_Child)
|
||||
Next
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Sub RecursiveDeny(_ModelNavigation As ModelNavigation)
|
||||
Dim _ModelNavigation_Children As ModelNavigation
|
||||
_ModelNavigation.Navigation_Enabled = False
|
||||
If _ModelNavigation.Children.Count > 0 Then
|
||||
For Each _ModelNavigation_Children In _ModelNavigation.Children
|
||||
RecursiveDeny(_ModelNavigation_Children)
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aSubcontractorDocuments_OpenDashboardWithViewer_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSubcontractorDocuments_OpenDashboardWithViewer.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _SubcontractorDocuments As SubcontractorDocuments = TryCast(View.SelectedObjects(0), SubcontractorDocuments)
|
||||
|
||||
If _SubcontractorDocuments IsNot Nothing Then
|
||||
Dim _FileName As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), System.IO.Path.GetTempPath, _SubcontractorDocuments.File.FileName)
|
||||
Dim _StreamFile As System.IO.Stream = New System.IO.FileStream(_FileName, System.IO.FileMode.Create, System.IO.FileAccess.Write)
|
||||
_SubcontractorDocuments.File.SaveToStream(_StreamFile)
|
||||
_StreamFile.Close()
|
||||
|
||||
If IO.File.Exists(_FileName) Then
|
||||
GLOBAL_DASHBOARD_XML_DashboardXmlFile = _FileName
|
||||
GLOBAL_DASHBOARD_XML_UserName = _SubcontractorDocuments.XML_UserName
|
||||
GLOBAL_DASHBOARD_XML_Password = _SubcontractorDocuments.XML_Password
|
||||
GLOBAL_DASHBOARD_XML_ServerName = _SubcontractorDocuments.XML_ServerName
|
||||
GLOBAL_DASHBOARD_XML_DatabaseName = _SubcontractorDocuments.XML_DatabaseName
|
||||
Select Case _SubcontractorDocuments.XML_SqlType
|
||||
Case eSQLType.MSSQL
|
||||
GLOBAL_DASHBOARD_XML_SQLType = "MSSQL"
|
||||
Case eSQLType.MySQL
|
||||
GLOBAL_DASHBOARD_XML_SQLType = "MYSQL"
|
||||
Case eSQLType.PostgreSQL
|
||||
GLOBAL_DASHBOARD_XML_SQLType = "PSQL"
|
||||
End Select
|
||||
|
||||
DevExpress.ExpressApp.Web.WebWindow.CurrentRequestWindow.RegisterStartupScript("ShowCustomFormScriptKey", String.Format("window.open('{0}');", "Controls/DashboardViewer.aspx"))
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class QuestionVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,144 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aViewQuestionInfo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1066, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aCloseQuestion.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>929, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateAnswer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>796, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateReply.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>673, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateQuestion.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>530, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateWorkSheetfromQuestion.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>301, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aOpenWorkSheet_Subcontractor_Question.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -0,0 +1,82 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Web.ASPxHtmlEditor
|
||||
Imports DevExpress.ExpressApp.HtmlPropertyEditor.Web
|
||||
Imports System.Web.UI.WebControls
|
||||
Imports System.Web.UI
|
||||
Imports DevExpress.ExpressApp.Web.SystemModule
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.ExpressApp.Reports
|
||||
Imports System.IO
|
||||
|
||||
Public Class QuestionVC
|
||||
Inherits SISBusiness.Module.QuestionVC
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
|
||||
If View.Id Like "Question_ListView" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "Question_ListView_User" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "Question_ListView_Customers" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "Question_WorkItem_ListView" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Question_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "OpenWorkSheet_SubcontractorPopUp_WorkSheet_Header_Collection_ListView" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id Like "Question_ListView" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "Question_ListView_User" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "Question_ListView_Customers" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "Question_WorkItem_ListView" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Question_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OpenWorkSheet_SubcontractorPopUp_WorkSheet_Header_Collection_ListView" Then
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class MySchedule_VC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,37 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Scheduler.Web
|
||||
Imports DevExpress.XtraScheduler
|
||||
Imports DevExpress.Web.ASPxScheduler
|
||||
|
||||
Public Class MySchedule_VC
|
||||
Inherits SISBusiness.Module.MySchedule_VC
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
If View.Id = "MySchedule_ListView" Or View.Id = "Contacts_CRM_Leads_Activity_ListView" Then
|
||||
Dim currentView As ListView = CType(View, ListView)
|
||||
Dim listEditor As ASPxSchedulerListEditor = CType(currentView.Editor, ASPxSchedulerListEditor)
|
||||
Dim scheduler As ASPxScheduler = listEditor.SchedulerControl
|
||||
|
||||
If Not scheduler Is Nothing Then
|
||||
scheduler.Views.DayView.VisibleTime = New TimeOfDayInterval(New TimeSpan(7, 0, 0), New TimeSpan(19, 0, 0))
|
||||
scheduler.Views.WorkWeekView.VisibleTime = New TimeOfDayInterval(New TimeSpan(7, 0, 0), New TimeSpan(19, 0, 0))
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
+37
@@ -0,0 +1,37 @@
|
||||
Partial Class GLAccountsVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
'
|
||||
'GLAccountsVC
|
||||
'
|
||||
Me.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+123
@@ -0,0 +1,123 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+31
@@ -0,0 +1,31 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
|
||||
Public Class GLAccountsVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
'CType(MyBase.ShowViewStrategy, ShowViewStrategy).CollectionsEditMode = _
|
||||
'DevExpress.ExpressApp.Editors.ViewEditMode.Edit()
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
Dim fView As DetailView = TryCast(View, DetailView)
|
||||
If (Not fView Is Nothing) AndAlso (fView.ViewEditMode = ViewEditMode.View) Then
|
||||
fView.ViewEditMode = ViewEditMode.Edit
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class GLBankVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+23
@@ -0,0 +1,23 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
|
||||
|
||||
Public Class GLBankVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class GLCassaVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+22
@@ -0,0 +1,22 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
|
||||
Public Class GLCassaVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class GLCompensationVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+22
@@ -0,0 +1,22 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
|
||||
Public Class GLCompensationVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class GLMixedVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+22
@@ -0,0 +1,22 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
|
||||
Public Class GLMixedVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
+50
@@ -0,0 +1,50 @@
|
||||
Partial Class PCIGroupVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aViewBill = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aViewBill
|
||||
'
|
||||
Me.aViewBill.Caption = "aView Bill"
|
||||
Me.aViewBill.ConfirmationMessage = Nothing
|
||||
Me.aViewBill.Id = "aViewBill"
|
||||
Me.aViewBill.ImageName = Nothing
|
||||
Me.aViewBill.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewBill.Shortcut = Nothing
|
||||
Me.aViewBill.Tag = Nothing
|
||||
Me.aViewBill.TargetObjectsCriteria = Nothing
|
||||
Me.aViewBill.TargetObjectType = GetType(SISBusiness.[Module].PCIGroup)
|
||||
Me.aViewBill.TargetViewId = Nothing
|
||||
Me.aViewBill.ToolTip = Nothing
|
||||
Me.aViewBill.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aViewBill As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+126
@@ -0,0 +1,126 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aViewBill.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+80
@@ -0,0 +1,80 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Web.SystemModule
|
||||
Imports System.IO
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Web.Internal
|
||||
|
||||
Imports System.Web
|
||||
Imports System.Net
|
||||
|
||||
Imports DevExpress.ExpressApp.Web
|
||||
|
||||
Public Class PCIGroupVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
Me.TargetObjectType = GetType(SISBusiness.Module.PCIGroup)
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of PCIGroupVC).aViewBill.Active.SetItemValue("", False)
|
||||
If View.Id = "PCIGroup_ListView_Support" Then
|
||||
Frame.GetController(Of PCIGroupVC).aViewBill.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "PCIGroup_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of PCIGroupVC).aViewBill.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
Private Sub aViewBill_Execute_1(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewBill.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _PCIGroup As PCIGroup = TryCast(View.SelectedObjects(0), PCIGroup)
|
||||
|
||||
If _PCIGroup IsNot Nothing Then
|
||||
If _PCIGroup.PartnerType = ePartnerType.eReceivables Then
|
||||
Dim _InvoiceHeader As InvoiceHeader = _ocur.FindObject(Of InvoiceHeader)(CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? and DocumentNumber=?", _PCIGroup.CustomersFrom.Oid, _PCIGroup.Customers.Oid, _PCIGroup.DocumentNumber))
|
||||
If _InvoiceHeader IsNot Nothing Then
|
||||
|
||||
If _InvoiceHeader.PDF_Copy IsNot Nothing Then
|
||||
Dim _FileStream As New MemoryStream
|
||||
_InvoiceHeader.PDF_Copy.SaveToStream(_FileStream)
|
||||
|
||||
WebApplication.Redirect("GetAttachments.ashx?id=" & _InvoiceHeader.PDF_Copy.Oid.ToString)
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
ElseIf _PCIGroup.PartnerType = ePartnerType.ePayabels Then
|
||||
Dim _RegistryHeader As RegistryHeader = _ocur.FindObject(Of RegistryHeader)(CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? and DocumentNumber=?", _PCIGroup.CustomersFrom.Oid, _PCIGroup.Customers.Oid, _PCIGroup.DocumentNumber))
|
||||
If _RegistryHeader IsNot Nothing Then
|
||||
If _RegistryHeader.DocumentFile IsNot Nothing Then
|
||||
Dim _FileStream As New MemoryStream
|
||||
_RegistryHeader.DocumentFile.SaveToStream(_FileStream)
|
||||
|
||||
WebApplication.Redirect("GetAttachments.ashx?id=" & _RegistryHeader.DocumentFile.Oid.ToString)
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class HRPersonEventVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,94 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Scheduler.Web
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.XtraScheduler
|
||||
Imports DevExpress.ExpressApp.Web.SystemModule
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.ExpressApp.Web.Editors
|
||||
Imports DevExpress.Web.ASPxScheduler.Drawing
|
||||
Imports DevExpress.Web
|
||||
|
||||
|
||||
Public Class HRPersonEventVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Private _SchedulerListEditor As ASPxSchedulerListEditor
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
|
||||
If View.Id = "HRPersonEvent_ListView_Subcontractor" Then
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
_SchedulerListEditor = TryCast(TryCast(View, ListView).Editor, ASPxSchedulerListEditor)
|
||||
|
||||
InitASPxSchedulerControl()
|
||||
AddHandler _SchedulerListEditor.ResourceDataSourceCreated, AddressOf _SchedulerListEditor_ResourceDataSourceCreated
|
||||
AddHandler _SchedulerListEditor.SchedulerControl.InitAppointmentImages, AddressOf _SchedulerListEditor_SchedulerControl_InitAppointmentImages
|
||||
End If
|
||||
End Sub
|
||||
Private Sub InitASPxSchedulerControl()
|
||||
_SchedulerListEditor.SchedulerControl.ActiveViewType = DevExpress.XtraScheduler.SchedulerViewType.WorkWeek
|
||||
_SchedulerListEditor.SchedulerControl.Views.WorkWeekView.VisibleTime = New TimeOfDayInterval(New TimeSpan(7, 0, 0), New TimeSpan(18, 0, 0))
|
||||
|
||||
Frame.GetController(Of SchedulerActionsController).EditSeriesAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of SchedulerActionsController).OpenSeriesAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of SchedulerActionsController).RestoreOccurrenceAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub _SchedulerListEditor_ResourceDataSourceCreated(sender As Object, e As Scheduler.ResourceDataSourceCreatedEventArgs)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _Resources_Collection As XpCollection = TryCast(TryCast(e.DataSource, WebDataSource).Collection, XPCollection)
|
||||
Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User))
|
||||
Dim _Customers As Customers = _Contacts.Customers
|
||||
Dim _CriteriaString As String = ""
|
||||
Dim _HRPerson As HRPerson
|
||||
For Each _Contacts In _Customers.Contacts
|
||||
_HRPerson = _ocur.FindObject(Of HRPerson)(CriteriaOperator.Parse("User.Oid=?", _Contacts.User.Oid.ToString))
|
||||
If _HRPerson IsNot Nothing Then
|
||||
If _CriteriaString = "" Then
|
||||
_CriteriaString = "Oid in ('" & _HRPerson.Oid.ToString & "'"
|
||||
Else
|
||||
_CriteriaString += ",'" & HRPerson.OidInitializationMode.ToString & "'"
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
If _CriteriaString = "" Then
|
||||
_CriteriaString = "1=2"
|
||||
Else
|
||||
_CriteriaString += ")"
|
||||
End If
|
||||
If _Resources_Collection IsNot Nothing Then
|
||||
_Resources_Collection.CriteriaString = _CriteriaString
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub _SchedulerListEditor_SchedulerControl_InitAppointmentImages(sender As Object, e As DevExpress.Web.ASPxScheduler.AppointmentImagesEventArgs)
|
||||
Dim info As AppointmentImageInfo = New AppointmentImageInfo
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _HRPersonTasks As HRPersonTasks = _ocur.FindObject(Of HRPersonTasks)(CriteriaOperator.Parse("HRPersonEvent=?", e.Appointment.Id.ToString))
|
||||
|
||||
If _HRPersonTasks IsNot Nothing Then
|
||||
info.ImageProperties = New ImageProperties("~/Images/BO_Task.png")
|
||||
e.ImageInfoList.Add(info)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Generated
+83
@@ -0,0 +1,83 @@
|
||||
Partial Class OperationalLog_VC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aOperationLog_PrintLogs = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aOperationLog_PrintLog_Execute = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aOperationaLog_CreateNewSupportLog = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aOperationLog_PrintLogs
|
||||
'
|
||||
Me.aOperationLog_PrintLogs.Caption = "aOperationLog_PrintLogs"
|
||||
Me.aOperationLog_PrintLogs.ConfirmationMessage = Nothing
|
||||
Me.aOperationLog_PrintLogs.Id = "aOperationLog_PrintLogs"
|
||||
Me.aOperationLog_PrintLogs.ImageName = Nothing
|
||||
Me.aOperationLog_PrintLogs.Shortcut = Nothing
|
||||
Me.aOperationLog_PrintLogs.Tag = Nothing
|
||||
Me.aOperationLog_PrintLogs.TargetObjectsCriteria = Nothing
|
||||
Me.aOperationLog_PrintLogs.TargetObjectType = GetType(SISBusiness.[Module].OperationalLog)
|
||||
Me.aOperationLog_PrintLogs.TargetViewId = Nothing
|
||||
Me.aOperationLog_PrintLogs.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aOperationLog_PrintLogs.ToolTip = Nothing
|
||||
Me.aOperationLog_PrintLogs.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aOperationLog_PrintLog_Execute
|
||||
'
|
||||
Me.aOperationLog_PrintLog_Execute.Caption = "aOperationLog_PrintLog_Execute"
|
||||
Me.aOperationLog_PrintLog_Execute.ConfirmationMessage = Nothing
|
||||
Me.aOperationLog_PrintLog_Execute.Id = "aOperationLog_PrintLog_Execute"
|
||||
Me.aOperationLog_PrintLog_Execute.ImageName = Nothing
|
||||
Me.aOperationLog_PrintLog_Execute.Shortcut = Nothing
|
||||
Me.aOperationLog_PrintLog_Execute.Tag = Nothing
|
||||
Me.aOperationLog_PrintLog_Execute.TargetObjectsCriteria = Nothing
|
||||
Me.aOperationLog_PrintLog_Execute.TargetObjectType = GetType(SISBusiness.[Module].OperationLog_ViewLogs_PopUp)
|
||||
Me.aOperationLog_PrintLog_Execute.TargetViewId = Nothing
|
||||
Me.aOperationLog_PrintLog_Execute.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aOperationLog_PrintLog_Execute.ToolTip = Nothing
|
||||
Me.aOperationLog_PrintLog_Execute.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aOperationaLog_CreateNewSupportLog
|
||||
'
|
||||
Me.aOperationaLog_CreateNewSupportLog.Caption = "aOperationaLog_CreateNewSupportLog"
|
||||
Me.aOperationaLog_CreateNewSupportLog.Category = "ObjectsCreation"
|
||||
Me.aOperationaLog_CreateNewSupportLog.ConfirmationMessage = Nothing
|
||||
Me.aOperationaLog_CreateNewSupportLog.Id = "aOperationaLog_CreateNewSupportLog"
|
||||
Me.aOperationaLog_CreateNewSupportLog.ImageName = Nothing
|
||||
Me.aOperationaLog_CreateNewSupportLog.Shortcut = Nothing
|
||||
Me.aOperationaLog_CreateNewSupportLog.Tag = Nothing
|
||||
Me.aOperationaLog_CreateNewSupportLog.TargetObjectsCriteria = Nothing
|
||||
Me.aOperationaLog_CreateNewSupportLog.TargetViewId = "OperationalLog_ListView_Support"
|
||||
Me.aOperationaLog_CreateNewSupportLog.ToolTip = Nothing
|
||||
Me.aOperationaLog_CreateNewSupportLog.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aOperationLog_PrintLogs As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aOperationLog_PrintLog_Execute As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aOperationaLog_CreateNewSupportLog As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+132
@@ -0,0 +1,132 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aOperationLog_PrintLogs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aOperationLog_PrintLog_Execute.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>393, 54</value>
|
||||
</metadata>
|
||||
<metadata name="aOperationaLog_CreateNewSupportLog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>644, 157</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+185
@@ -0,0 +1,185 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.ExpressApp.Reports
|
||||
Imports System.Drawing.Imaging
|
||||
Imports DevExpress.XtraPrinting
|
||||
Imports DevExpress.XtraReports.UI
|
||||
Imports DevExpress.XtraPrinting.Preview
|
||||
Imports DevExpress.ExpressApp.CloneObject
|
||||
Imports DevExpress.XtraReports.Web
|
||||
Imports System.IO
|
||||
Imports DevExpress.Web.ASPxClasses.Internal
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.ExpressApp.Reports.Web
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
|
||||
|
||||
Public Class OperationalLog_VC
|
||||
Inherits SISBusiness.Module.OperationalLog_VC
|
||||
|
||||
Dim _XafReport As XafReport
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "OperationLog_ViewLogs_PopUp_DetailView" Then
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "OperationalLog_ListView_Support" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Web.SystemModule.ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ReportViewer_DetailView" Then
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "OperationalLog_DetailView_Support" Then
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _OperationalLog As OperationalLog = TryCast(View.SelectedObjects(0), OperationalLog)
|
||||
Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User))
|
||||
Dim _WorkPlace As WorkPlace = _ocur.FindObject(Of WorkPlace)(CriteriaOperator.Parse("Customers=?", _Contacts.Customers))
|
||||
Dim _WorkState As WorkState = _ocur.FindObject(Of WorkState)(CriteriaOperator.Parse("IsOperationalLog = True"))
|
||||
|
||||
If _WorkPlace IsNot Nothing And _WorkState IsNot Nothing Then
|
||||
Dim _OperationalLogParameters As OperationalLogParameters = _ocur.FindObject(Of OperationalLogParameters) _
|
||||
(CriteriaOperator.Parse("CustomersFrom=? AND WorkPlace=?", _WorkPlace.CustomersFrom, _WorkPlace))
|
||||
If _OperationalLogParameters IsNot Nothing Then
|
||||
With _OperationalLog
|
||||
If .Customers Is Nothing Then .Customers = _Contacts.Customers
|
||||
If .CustomersFrom Is Nothing Then .CustomersFrom = _WorkPlace.CustomersFrom
|
||||
If .OperationalLogParameters Is Nothing Then .OperationalLogParameters = _OperationalLogParameters
|
||||
If .WorkPlace Is Nothing Then .WorkPlace = _WorkPlace
|
||||
If .WorkState Is Nothing Then .WorkState = _WorkState
|
||||
End With
|
||||
End If
|
||||
'Else
|
||||
'MsgBox(String.Format("Nincs beállítva munkahely és / vagy munkafolyamat a {0} felhasználóhoz! A naplót nem lehet menteni!", _User.FullName), MsgBoxStyle.OkOnly, "Kérem, ellenõrizze!")
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "OperationLog_ViewLogs_PopUp_DetailView" Then
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OperationalLog_ListView_Support" Then
|
||||
'Frame.GetController(Of DevExpress.ExpressApp.Web.SystemModule.ListViewController).EditAction.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ReportViewer_DetailView" Then
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aOperationLog_PrintLog_Execute_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aOperationLog_PrintLog_Execute.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _OperationLog_ViewLogs_PopUp As OperationLog_ViewLogs_PopUp = TryCast(View.SelectedObjects(0), OperationLog_ViewLogs_PopUp)
|
||||
Dim _OperationalLog As OperationalLog = _ocur.FindObject(Of OperationalLog)(CriteriaOperator.Parse("WorkPlace.Oid=?", _OperationLog_ViewLogs_PopUp.WorkPlace.Oid))
|
||||
Dim _ReportData As ReportData
|
||||
|
||||
If _OperationalLog IsNot Nothing Then
|
||||
_ReportData = _OperationalLog.OperationalLogParameters.ReportData
|
||||
|
||||
Dim _ActFromDate As Date = New Date(_OperationLog_ViewLogs_PopUp.FromDate.Date.Year, _OperationLog_ViewLogs_PopUp.FromDate.Date.Month, _OperationLog_ViewLogs_PopUp.FromDate.Date.Day, _OperationLog_ViewLogs_PopUp.FromDateHour, _OperationLog_ViewLogs_PopUp.FromDateMin, 0)
|
||||
Dim _ActToDate As Date = New Date(_OperationLog_ViewLogs_PopUp.ToDate.Date.Year, _OperationLog_ViewLogs_PopUp.ToDate.Date.Month, _OperationLog_ViewLogs_PopUp.ToDate.Date.Day, _OperationLog_ViewLogs_PopUp.ToDateHour, _OperationLog_ViewLogs_PopUp.ToDateMin, 0)
|
||||
|
||||
Dim _OperationalLog_Collection As New XPCollection(Of OperationalLog)(_ocur.Session, CriteriaOperator.Parse("WorkPlace.Oid=? AND ObjectCreated<? AND ObjectCreated>?", _
|
||||
_OperationLog_ViewLogs_PopUp.WorkPlace.Oid, _ActToDate, _ActFromDate))
|
||||
|
||||
Dim _OperationalLog_OidArray As String = "Oid in('"
|
||||
|
||||
If _OperationalLog_Collection.Count > 0 Then
|
||||
For Each _OperationalLog_Selected As OperationalLog In _OperationalLog_Collection
|
||||
_OperationalLog_OidArray += _OperationalLog_Selected.Oid.ToString + "','"
|
||||
Next
|
||||
Else
|
||||
_OperationalLog_OidArray = "1=2"
|
||||
End If
|
||||
|
||||
If _OperationalLog_OidArray.Length > 3 Then
|
||||
_OperationalLog_OidArray = _OperationalLog_OidArray.Remove(_OperationalLog_OidArray.Length - 2, 2)
|
||||
_OperationalLog_OidArray += ")"
|
||||
End If
|
||||
|
||||
Frame.GetController(Of WebReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse(_OperationalLog_OidArray))
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aOperationLog_PrintLogs_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aOperationLog_PrintLogs.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _OperationalLog As OperationalLog = _onew.GetObject(View.SelectedObjects(0))
|
||||
Dim _OperationLog_ViewLogs_PopUp As OperationLog_ViewLogs_PopUp = _onew.CreateObject(Of OperationLog_ViewLogs_PopUp)()
|
||||
|
||||
If View.Id = "OperationalLog_ListView_Support" Then
|
||||
Dim _User As User = _onew.GetObjectByKey(Of User)(_onew.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
Dim _Contacts As Contacts = _onew.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User))
|
||||
Dim _Workplace As WorkPlace = _onew.FindObject(Of WorkPlace)(CriteriaOperator.Parse("Customers=? and OperationalLogType='General'", _Contacts.Customers))
|
||||
_OperationLog_ViewLogs_PopUp.WorkPlace = _Workplace
|
||||
|
||||
End If
|
||||
|
||||
If View.Id = "OperationalLog_ListView_Support_HFR" Then
|
||||
Dim _User As User = _onew.GetObjectByKey(Of User)(_onew.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
Dim _Contacts As Contacts = _onew.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User))
|
||||
Dim _Workplace As WorkPlace = _onew.FindObject(Of WorkPlace)(CriteriaOperator.Parse("Customers=? and OperationalLogType='HFR'", _Contacts.Customers))
|
||||
|
||||
_OperationLog_ViewLogs_PopUp.WorkPlace = _Workplace
|
||||
End If
|
||||
|
||||
_OperationLog_ViewLogs_PopUp.CustomersFrom = _OperationalLog.CustomersFrom
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OperationLog_ViewLogs_PopUp_DetailView", True, _OperationLog_ViewLogs_PopUp)
|
||||
e.ShowViewParameters.TargetWindow = TargetWindow.Current
|
||||
e.ShowViewParameters.NewWindowTarget = NewWindowTarget.Default
|
||||
End Sub
|
||||
Private Sub aOperationaLog_CreateNewSupportLog_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aOperationaLog_CreateNewSupportLog.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User))
|
||||
Dim _WorkPlace As WorkPlace = _ocur.FindObject(Of WorkPlace)(CriteriaOperator.Parse("Customers=?", _Contacts.Customers))
|
||||
Dim _WorkState As WorkState = _ocur.FindObject(Of WorkState)(CriteriaOperator.Parse("IsOperationalLog = True"))
|
||||
|
||||
If _WorkPlace IsNot Nothing And _WorkState IsNot Nothing Then
|
||||
Dim _OperationalLogParameters As OperationalLogParameters = _ocur.FindObject(Of OperationalLogParameters) _
|
||||
(CriteriaOperator.Parse("CustomersFrom=? AND WorkPlace=?", _WorkPlace.CustomersFrom, _WorkPlace))
|
||||
If _OperationalLogParameters IsNot Nothing Then
|
||||
Dim _OperationalLog As New OperationalLog(_onew.Session)
|
||||
With _OperationalLog
|
||||
.Customers = _onew.GetObject(_Contacts.Customers)
|
||||
.CustomersFrom = _onew.GetObject(_WorkPlace.CustomersFrom)
|
||||
.OperationalLogParameters = _onew.GetObject(_OperationalLogParameters)
|
||||
.WorkPlace = _onew.GetObject(_WorkPlace)
|
||||
.WorkState = _onew.GetObject(_WorkState)
|
||||
End With
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OperationalLog_DetailView_Support", True, _OperationalLog)
|
||||
e.ShowViewParameters.TargetWindow = TargetWindow.Current
|
||||
e.ShowViewParameters.NewWindowTarget = NewWindowTarget.Default
|
||||
End If
|
||||
' Else
|
||||
' MsgBox(String.Format("Nincs beállítva munkahely és / vagy munkafolyamat a {0} felhasználóhoz!", _User.FullName), MsgBoxStyle.OkOnly, "Kérem, ellenõrizze!")
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
+46
@@ -0,0 +1,46 @@
|
||||
Partial Class BusinessDirectory_VC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aOpenDashboardforView = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aOpenDashboardforView
|
||||
'
|
||||
Me.aOpenDashboardforView.Caption = "aOpen Dashboardfor View"
|
||||
Me.aOpenDashboardforView.ConfirmationMessage = Nothing
|
||||
Me.aOpenDashboardforView.Id = "aOpenDashboardforView"
|
||||
Me.aOpenDashboardforView.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory)
|
||||
Me.aOpenDashboardforView.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root
|
||||
Me.aOpenDashboardforView.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aOpenDashboardforView.ToolTip = Nothing
|
||||
Me.aOpenDashboardforView.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aOpenDashboardforView As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+126
@@ -0,0 +1,126 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aOpenDashboardforView.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+69
@@ -0,0 +1,69 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System
|
||||
Imports System.Linq
|
||||
Imports System.Text
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports System.Collections.Generic
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
Imports DevExpress.ExpressApp.Layout
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.ExpressApp.Templates
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.ExpressApp.Model.NodeGenerators
|
||||
|
||||
' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic.
|
||||
Partial Public Class BusinessDirectory_VC
|
||||
Inherits ViewController
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
' Target required Views (via the TargetXXX properties) and create their Actions.
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
' Perform various tasks depending on the target View.
|
||||
End Sub
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
' Access and customize the target View control.
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
' Unsubscribe from previously subscribed events and release other references and resources.
|
||||
MyBase.OnDeactivated()
|
||||
End Sub
|
||||
|
||||
Private Sub aOpenDashboardforView_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aOpenDashboardforView.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _BusinessDirectory As BusinessDirectory = TryCast(View.SelectedObjects(0), BusinessDirectory)
|
||||
|
||||
If _BusinessDirectory IsNot Nothing Then
|
||||
Dim _FileName As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), System.IO.Path.GetTempPath, _BusinessDirectory.FileData.FileName)
|
||||
Dim _StreamFile As System.IO.Stream = New System.IO.FileStream(_FileName, System.IO.FileMode.Create, System.IO.FileAccess.Write)
|
||||
_BusinessDirectory.FileData.SaveToStream(_StreamFile)
|
||||
_StreamFile.Close()
|
||||
|
||||
If IO.File.Exists(_FileName) Then
|
||||
GLOBAL_DASHBOARD_XML_DashboardXmlFile = _FileName
|
||||
GLOBAL_DASHBOARD_XML_UserName = _BusinessDirectory.DashBoard_UserName
|
||||
GLOBAL_DASHBOARD_XML_Password = _BusinessDirectory.DashBoard_Password
|
||||
GLOBAL_DASHBOARD_XML_ServerName = _BusinessDirectory.DashBoard_Server
|
||||
GLOBAL_DASHBOARD_XML_DatabaseName = _BusinessDirectory.DashBoard_Database
|
||||
Select Case _BusinessDirectory.SQLType
|
||||
Case eSQLType.MSSQL
|
||||
GLOBAL_DASHBOARD_XML_SQLType = "MSSQL"
|
||||
Case eSQLType.MySQL
|
||||
GLOBAL_DASHBOARD_XML_SQLType = "MYSQL"
|
||||
Case eSQLType.PostgreSQL
|
||||
GLOBAL_DASHBOARD_XML_SQLType = "PSQL"
|
||||
End Select
|
||||
|
||||
DevExpress.ExpressApp.Web.WebWindow.CurrentRequestWindow.RegisterStartupScript("ShowCustomFormScriptKey", String.Format("window.open('{0}');", "Controls/DashboardViewer.aspx"))
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,32 @@
|
||||
Partial Class ASPxGridViewVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,110 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Web.Editors.ASPx
|
||||
Imports DevExpress.Web
|
||||
Imports DevExpress.ExpressApp.Model
|
||||
|
||||
Public Class ASPxGridViewVC
|
||||
Inherits DevExpress.ExpressApp.ViewController(Of ListView)
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If TryCast(View, ListView) IsNot Nothing Then
|
||||
AddHandler View.ControlsCreated, AddressOf View_Controlcreated
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If TryCast(View, ListView) IsNot Nothing Then
|
||||
Dim gridListEditor As ASPxGridListEditor = TryCast(View.Editor, ASPxGridListEditor)
|
||||
If gridListEditor IsNot Nothing Then
|
||||
Dim _Grid As ASPxGridView = TryCast(gridListEditor.Grid, ASPxGridView)
|
||||
If _Grid IsNot Nothing And GLOBAL_ListViewReset = False Then
|
||||
GetColumnWithfromGrid(_Grid)
|
||||
View.SaveModel()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub View_Controlcreated(sender As Object, e As EventArgs)
|
||||
Dim gridListEditor As ASPxGridListEditor = TryCast(View.Editor, ASPxGridListEditor)
|
||||
If gridListEditor IsNot Nothing Then
|
||||
Dim _Grid As ASPxGridView = TryCast(gridListEditor.Grid, ASPxGridView)
|
||||
If _Grid IsNot Nothing Then
|
||||
AddHandler _Grid.HtmlDataCellPrepared, AddressOf Grid_HtmlDataCellPrepared
|
||||
|
||||
_Grid.SettingsBehavior.ColumnResizeMode = ColumnResizeMode.Control
|
||||
'_Grid.Settings.UseFixedTableLayout = True
|
||||
_Grid.Settings.HorizontalScrollBarMode = DevExpress.Web.ScrollBarMode.Auto
|
||||
_Grid.Settings.UseFixedTableLayout = False
|
||||
'_Grid.Settings.
|
||||
SetColumnWithfromModel(_Grid)
|
||||
|
||||
_Grid.SettingsPager.Position = System.Web.UI.WebControls.PagerPosition.TopAndBottom
|
||||
Dim _IModelListViewExtender As IModelListViewExtender = TryCast(View.Model, IModelListViewExtender)
|
||||
If _IModelListViewExtender IsNot Nothing Then
|
||||
_Grid.Settings.GroupFormat = _IModelListViewExtender.GridViewGroupFormat
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub SetColumnWithfromModel(_Grid As ASPxGridView)
|
||||
For Each column As WebColumnBase In _Grid.Columns
|
||||
If (TypeOf column Is GridViewDataColumn) Then
|
||||
column.Width = CType(column, GridViewDataColumn).Width
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
Private Sub GetColumnWithfromGrid(_Grid As ASPxGridView)
|
||||
For Each column As WebColumnBase In _Grid.Columns
|
||||
If (TypeOf column Is GridViewDataColumn) Then
|
||||
CType(column, GridViewDataColumn).Width = column.Width.Value
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
Private Sub Grid_BeforeColumnSortingGrouping(sender As Object, e As ASPxGridViewBeforeColumnGroupingSortingEventArgs)
|
||||
Dim _IModelListViewExtender As IModelListViewExtender = TryCast(View.Model, IModelListViewExtender)
|
||||
If _IModelListViewExtender IsNot Nothing Then
|
||||
sender.Settings.GroupFormat = _IModelListViewExtender.GridViewGroupFormat
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Grid_HtmlDataCellPrepared(sender As Object, e As ASPxGridViewTableDataCellEventArgs)
|
||||
Dim modelColumn As IModelColumnExtender = Nothing
|
||||
|
||||
If View IsNot Nothing Then
|
||||
If e.DataColumn.FieldName <> "" Then
|
||||
If e.DataColumn.FieldName.Contains(".") Then
|
||||
Dim NewName As String() = e.DataColumn.FieldName.Split(New Char() {"."c}, StringSplitOptions.RemoveEmptyEntries)
|
||||
modelColumn = TryCast(CType(View.Model.Columns, IModelList(Of IModelColumn))(NewName(NewName.Length - 1)), IModelColumnExtender)
|
||||
Else
|
||||
modelColumn = TryCast(CType(View.Model.Columns, IModelList(Of IModelColumn))(e.DataColumn.FieldName), IModelColumnExtender)
|
||||
End If
|
||||
If modelColumn IsNot Nothing Then
|
||||
If modelColumn.HideValueIfZero = True Then
|
||||
If e.CellValue = 0 Then e.Cell.Text = ""
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,31 @@
|
||||
Partial Class AboutInfoCustomizationVC
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,55 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Public Class AboutInfoCustomizationVC
|
||||
Inherits DevExpress.ExpressApp.WindowController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
AboutInfo.Instance.AboutInfoString = GetCustomAboutString()
|
||||
End Sub
|
||||
Function GetCustomAboutString() As String
|
||||
Dim _CustomAboutString As String = ""
|
||||
Dim _User As User
|
||||
Dim _Contacts As Contacts
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _PartnerInfo As String = ""
|
||||
|
||||
_User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User))
|
||||
|
||||
If _User IsNot Nothing Then
|
||||
_Contacts = _onew.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User))
|
||||
If _Contacts IsNot Nothing Then
|
||||
_PartnerInfo = _Contacts.Customers.FullName
|
||||
End If
|
||||
End If
|
||||
|
||||
_CustomAboutString = TryCast(SecuritySystem.CurrentUser, User).FullName & "<br>"
|
||||
If GLOBAL_Company_Info <> "" Then _CustomAboutString += "<b>" & GLOBAL_Company_Info & "</b><br><br>"
|
||||
If _PartnerInfo <> "" Then _CustomAboutString += "<b>" & _PartnerInfo & "</b><br><br>"
|
||||
_CustomAboutString += Application.Model.Application.Description & "<br>"
|
||||
_CustomAboutString += "Version: " & System.Reflection.Assembly.GetExecutingAssembly.GetName.Version.ToString & "<br>"
|
||||
_CustomAboutString += "Copyright (C) " & Application.Model.Copyright
|
||||
|
||||
Return _CustomAboutString
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,32 @@
|
||||
Partial Class DashboardViewerVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,98 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.DashboardCommon
|
||||
Imports DevExpress.DataAccess
|
||||
Imports DevExpress.DataAccess.ConnectionParameters
|
||||
Imports DevExpress.DataAccess.Sql
|
||||
|
||||
Public Class DashboardViewerVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
|
||||
If View.Id = "Dashboard_DetailView" Then
|
||||
Dim _Dashboard As Dashboard = TryCast(View.SelectedObjects(0), Dashboard)
|
||||
Dim _DetailView As DetailView = TryCast(View, DetailView)
|
||||
Dim _DashboardViewer_ViewItem As ViewItem = _DetailView.FindItem("DashboardViewer")
|
||||
If _DashboardViewer_ViewItem IsNot Nothing Then
|
||||
AddHandler _DashboardViewer_ViewItem.ControlCreated, AddressOf _DashboardViewer_ViewItem_ControlCreated
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub _DashboardViewer_ViewItem_ControlCreated(sender As Object, e As EventArgs)
|
||||
Dim _DashboardViewerPropertyEditor As DashboardViewerPropertyEditor = TryCast(sender, DashboardViewerPropertyEditor)
|
||||
If _DashboardViewerPropertyEditor IsNot Nothing Then
|
||||
|
||||
AddHandler _DashboardViewerPropertyEditor.ASPxDashboardViewer.ConfigureDataConnection, AddressOf _DashboardViewerPropertyEditor_ASPxDashboardViewer_ConfigureDataConnection
|
||||
'AddHandler _DashboardViewerPropertyEditor.ASPxDashboardViewer.PreRender, AddressOf _DashboardViewerPropertyEditor_ASPxDashboardViewer_PreRender
|
||||
|
||||
Dim _Dashboard As Dashboard = TryCast(View.SelectedObjects(0), Dashboard)
|
||||
|
||||
Dim _FileName As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), System.IO.Path.GetTempPath, _Dashboard.XMLFileData.FileName)
|
||||
Dim _StreamFile As System.IO.Stream = New System.IO.FileStream(_FileName, System.IO.FileMode.Create, System.IO.FileAccess.Write)
|
||||
_Dashboard.XMLFileData.SaveToStream(_StreamFile)
|
||||
_StreamFile.Close()
|
||||
|
||||
With _DashboardViewerPropertyEditor.ASPxDashboardViewer
|
||||
.DashboardXmlFile = _FileName
|
||||
.Width = 800
|
||||
.Height = 600
|
||||
End With
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub _DashboardViewerPropertyEditor_ASPxDashboardViewer_ConfigureDataConnection(sender As Object, e As ConfigureDataConnectionEventArgs)
|
||||
Dim _Dashboard As Dashboard = TryCast(View.SelectedObjects(0), Dashboard)
|
||||
If _Dashboard IsNot Nothing Then
|
||||
Select Case _Dashboard.SQLType.ToString
|
||||
Case "MSSQL"
|
||||
Dim _MsSqlConnectionParameters As New MsSqlConnectionParameters
|
||||
_MsSqlConnectionParameters.UserName = _Dashboard.UserName
|
||||
_MsSqlConnectionParameters.Password = _Dashboard.Password
|
||||
_MsSqlConnectionParameters.DatabaseName = _Dashboard.Database
|
||||
_MsSqlConnectionParameters.ServerName = _Dashboard.SQLServer
|
||||
|
||||
e.ConnectionParameters = _MsSqlConnectionParameters
|
||||
Case "MySQL"
|
||||
Dim _MySqlConnectionParameters As New MySqlConnectionParameters
|
||||
_MySqlConnectionParameters.UserName = _Dashboard.UserName
|
||||
_MySqlConnectionParameters.Password = _Dashboard.Password
|
||||
_MySqlConnectionParameters.DatabaseName = _Dashboard.Database
|
||||
_MySqlConnectionParameters.ServerName = _Dashboard.SQLServer
|
||||
|
||||
e.ConnectionParameters = _MySqlConnectionParameters
|
||||
Case "PostgerSQL"
|
||||
Dim _PostgreSqlConnectionParameters As New PostgreSqlConnectionParameters
|
||||
_PostgreSqlConnectionParameters.UserName = _Dashboard.UserName
|
||||
_PostgreSqlConnectionParameters.Password = _Dashboard.Password
|
||||
_PostgreSqlConnectionParameters.DatabaseName = _Dashboard.Database
|
||||
_PostgreSqlConnectionParameters.ServerName = _Dashboard.SQLServer
|
||||
|
||||
e.ConnectionParameters = _PostgreSqlConnectionParameters
|
||||
End Select
|
||||
End If
|
||||
End Sub
|
||||
Private Sub _DashboardViewerPropertyEditor_ASPxDashboardViewer_PreRender(sender As Object, e As EventArgs)
|
||||
'Beep()
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,32 @@
|
||||
Partial Class HTMLEditorVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,52 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Web.ASPxHtmlEditor
|
||||
Imports DevExpress.ExpressApp.HtmlPropertyEditor.Web
|
||||
Imports System.Web.UI.WebControls
|
||||
Imports System.Web.UI
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
|
||||
Public Class HTMLEditorVC
|
||||
Inherits DevExpress.ExpressApp.ViewController(Of DetailView)
|
||||
Private htmlEditors As ArrayList
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
htmlEditors = New ArrayList
|
||||
htmlEditors.Clear()
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
Dim editor As ASPxHtmlPropertyEditor
|
||||
Dim htmlEditor As ASPxHtmlEditor
|
||||
If View.ViewEditMode = Editors.ViewEditMode.Edit Then
|
||||
For Each editor In View.GetItems(Of ASPxHtmlPropertyEditor)()
|
||||
If TryCast(editor.Control, Table) IsNot Nothing Then
|
||||
htmlEditor = TryCast(editor.Control, Table).Rows(0).Cells(1).Controls(0)
|
||||
If htmlEditor IsNot Nothing Then
|
||||
htmlEditors.Add(htmlEditor)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
AddHandler TryCast(View.Control, Control).PreRender, AddressOf ChangeHtmlEditorWidthController_PreRender
|
||||
End If
|
||||
End Sub
|
||||
Sub ChangeHtmlEditorWidthController_PreRender(sender As Object, e As EventArgs)
|
||||
Dim htmlEditor As ASPxHtmlEditor
|
||||
|
||||
For Each htmlEditor In htmlEditors
|
||||
htmlEditor.Width = Unit.Percentage(100)
|
||||
Next
|
||||
htmlEditors.Clear()
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,32 @@
|
||||
Partial Class ListViewProcessVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,40 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Web.SystemModule
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
|
||||
Public Class ListViewProcessVC
|
||||
Inherits DevExpress.ExpressApp.ViewController(Of ListView)
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If CType(View.Model, IModelListViewAllowSort).IsListViewProcess Then
|
||||
Else
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If CType(View.Model, IModelListViewAllowSort).IsListViewProcess Then
|
||||
Else
|
||||
Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,31 @@
|
||||
Partial Class LogonWC
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,45 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System.Web
|
||||
Imports System.Web.Security
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Web
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
|
||||
Public Class LogonWC
|
||||
Inherits DevExpress.ExpressApp.WindowController
|
||||
Public SISBusinessAction As SingleChoiceAction
|
||||
Public Const DBName As String = "Gatya; Zokni"
|
||||
Public Sub New()
|
||||
Me.TargetWindowType = WindowType.Main
|
||||
|
||||
'If WebApplication.OldStyleLayout Then
|
||||
' SISBusinessAction = New SingleChoiceAction(Me, "SISBusiness", "Tools")
|
||||
'Else
|
||||
' SISBusinessAction = New SingleChoiceAction(Me, "SISBusiness", "Security")
|
||||
'End If
|
||||
'For Each databaseName As String In DBName.Split(";"c)
|
||||
' SISBusinessAction.Items.Add(New ChoiceActionItem(databaseName, databaseName))
|
||||
'Next databaseName
|
||||
'AddHandler SISBusinessAction.Execute, AddressOf SISBusinessAction_Execute
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
'For Each item As ChoiceActionItem In SISBusinessAction.Items
|
||||
' If Application.ConnectionString.Contains(CStr(item.Data)) Then
|
||||
' SISBusinessAction.SelectedItem = item
|
||||
' Exit For
|
||||
' End If
|
||||
'Next item
|
||||
End Sub
|
||||
Private Sub SISBusinessAction_Execute(ByVal sender As Object, ByVal e As SingleChoiceActionExecuteEventArgs)
|
||||
'WebApplication.Redirect(FormsAuthentication.DefaultUrl & "?" & DBName & "=" & CStr(e.SelectedChoiceActionItem.Data))
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -0,0 +1,32 @@
|
||||
Partial Class OpenObjectController
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,64 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System
|
||||
Imports System.Linq
|
||||
Imports System.Text
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports System.Collections.Generic
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
Imports DevExpress.ExpressApp.Layout
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.ExpressApp.Templates
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.ExpressApp.Model.NodeGenerators
|
||||
Imports DevExpress.Web
|
||||
Imports DevExpress.ExpressApp.Web.Editors.ASPx
|
||||
|
||||
' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic.
|
||||
Partial Public Class OpenObjectController
|
||||
Inherits ViewController(Of ListView)
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
' Target required Views (via the TargetXXX properties) and create their Actions.
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
AddHandler View.ControlsCreated, AddressOf View_Controlcreated
|
||||
End Sub
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
' Access and customize the target View control.
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
RemoveHandler View.ControlsCreated, AddressOf View_Controlcreated
|
||||
MyBase.OnDeactivated()
|
||||
End Sub
|
||||
|
||||
Private Sub View_Controlcreated(sender As Object, e As EventArgs)
|
||||
Dim _ASPxGridListEditor As ASPxGridListEditor = TryCast(View.Editor, ASPxGridListEditor)
|
||||
If _ASPxGridListEditor IsNot Nothing Then
|
||||
|
||||
AddHandler _ASPxGridListEditor.CustomCreateCellControl, AddressOf CCC
|
||||
|
||||
Dim _ASXGridView As ASPxGridView = TryCast(_ASPxGridListEditor.Grid, ASPxGridView)
|
||||
If _ASXGridView IsNot Nothing Then
|
||||
'AddHandler _ASXGridView.
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub GridView_PreRender(sender As Object, e As EventArgs)
|
||||
Beep()
|
||||
End Sub
|
||||
|
||||
Private Sub CCC(sender As Object, e As DevExpress.ExpressApp.Web.Editors.CustomCreateCellControlEventArgs)
|
||||
Beep()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,32 @@
|
||||
Partial Class QuickCreateVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,28 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
|
||||
|
||||
Public Class QuickCreateVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
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 DevExpress.ExpressApp.Web.SystemModule.WebNewObjectViewController).QuickCreateAction.Active.SetItemValue("", False)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -0,0 +1,50 @@
|
||||
Partial Class ResetSettingsVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aResetView = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aResetView
|
||||
'
|
||||
Me.aResetView.Caption = "aReset View"
|
||||
Me.aResetView.Category = "View"
|
||||
Me.aResetView.ConfirmationMessage = "Do you want to reset ListView ?"
|
||||
Me.aResetView.Id = "aResetView"
|
||||
Me.aResetView.ImageName = Nothing
|
||||
Me.aResetView.Shortcut = Nothing
|
||||
Me.aResetView.Tag = Nothing
|
||||
Me.aResetView.TargetObjectsCriteria = Nothing
|
||||
Me.aResetView.TargetViewId = Nothing
|
||||
Me.aResetView.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aResetView.ToolTip = Nothing
|
||||
Me.aResetView.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aResetView As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,126 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aResetView.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -0,0 +1,54 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Model.Core
|
||||
Imports DevExpress.ExpressApp.Model
|
||||
Imports DevExpress.ExpressApp.Web.Editors.ASPx
|
||||
Imports DevExpress.Web.ASPxGridView
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.Web.ASPxEditors
|
||||
|
||||
Public Class ResetSettingsVC
|
||||
Inherits DevExpress.ExpressApp.ViewController(Of ListView)
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
GLOBAL_ListViewReset = False
|
||||
'// IDEIGLENES TILTÁS !
|
||||
'Frame.GetController(Of ResetSettingsVC).aResetView.Active.SetItemValue("", False)
|
||||
End Sub
|
||||
|
||||
Private Sub aResetView_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aResetView.Execute
|
||||
GLOBAL_ListViewReset = True
|
||||
|
||||
Dim oldModel As IModelView = View.Model
|
||||
|
||||
AddHandler View.ModelSaving, AddressOf View_ModelSaving
|
||||
Application.MainWindow.SetView(Nothing)
|
||||
CType(oldModel, ModelNode).Undo()
|
||||
Application.MainWindow.SetView(Nothing)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub View_ModelSaving(sender As Object, e As CancelEventArgs)
|
||||
|
||||
e.Cancel = True
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,32 @@
|
||||
Partial Class ViewModeEditVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,30 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
|
||||
Public Class ViewModeEditVC
|
||||
Inherits DevExpress.ExpressApp.ViewController(Of DetailView)
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
Dim fView As DetailView = TryCast(View, DetailView)
|
||||
If (Not fView Is Nothing) Then
|
||||
fView.ViewEditMode = ViewEditMode.Edit
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,33 @@
|
||||
Imports DevExpress.ExpressApp.Web.Editors.ASPx
|
||||
Imports DevExpress.Web
|
||||
Imports DevExpress.Utils
|
||||
|
||||
Public Class WebAllowSortListViewController
|
||||
Inherits AllowSortListViewController
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
UpdateAllowSort()
|
||||
End Sub
|
||||
Protected Overrides Sub UpdateAllowSort()
|
||||
'Dim gridListEditor As ASPxGridListEditor = TryCast(View.Editor, ASPxGridListEditor)
|
||||
'If gridListEditor IsNot Nothing Then
|
||||
' Dim allowSortListView As Boolean = GetAllowSortListView()
|
||||
' gridListEditor.Grid.SettingsBehavior.AllowSort = allowSortListView
|
||||
' If allowSortListView Then
|
||||
' For Each column As GridViewColumn In gridListEditor.Grid.Columns
|
||||
' Dim dataColumn As GridViewDataColumn = TryCast(column, GridViewDataColumn)
|
||||
' If dataColumn IsNot Nothing Then
|
||||
' If GetAllowSortColumn(dataColumn) Then
|
||||
' dataColumn.Settings.AllowSort = DefaultBoolean.True
|
||||
' Else
|
||||
' dataColumn.Settings.AllowSort = DefaultBoolean.False
|
||||
' End If
|
||||
|
||||
' End If
|
||||
' Next column
|
||||
' End If
|
||||
'End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
@@ -0,0 +1,32 @@
|
||||
Partial Class WebGroupFooterViewController
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,54 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System
|
||||
Imports DevExpress.Data
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Model
|
||||
Imports DevExpress.ExpressApp.Web.Editors.ASPx
|
||||
Imports DevExpress.Web
|
||||
|
||||
Public Class WebGroupFooterViewController
|
||||
Inherits ViewController(Of ListView)
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
Dim displayFormat As String = ""
|
||||
Dim modelListView As IModelListViewExtender = TryCast(View.Model, IModelListViewExtender)
|
||||
If modelListView IsNot Nothing AndAlso modelListView.IsGroupFooterVisible Then
|
||||
Dim gridListEditor As ASPxGridListEditor = TryCast(View.Editor, ASPxGridListEditor)
|
||||
If gridListEditor IsNot Nothing Then
|
||||
Dim gridView As ASPxGridView = gridListEditor.Grid
|
||||
gridView.Settings.ShowGroupFooter = GridViewGroupFooterMode.VisibleAlways
|
||||
For Each modelColumn As IModelColumn In View.Model.Columns
|
||||
Dim modelColumnExtender As IModelColumnExtender = TryCast(modelColumn, IModelColumnExtender)
|
||||
If modelColumnExtender IsNot Nothing AndAlso modelColumnExtender.GroupFooterSummaryType <> SummaryItemType.None Then
|
||||
Dim fieldName As String = modelColumn.ModelMember.MemberInfo.BindingName
|
||||
Dim summaryItem As ASPxSummaryItem = Nothing
|
||||
For Each currentItem As ASPxSummaryItem In gridView.GroupSummary
|
||||
If currentItem.FieldName = fieldName Then
|
||||
currentItem.ShowInGroupFooterColumn = modelColumn.Caption
|
||||
summaryItem = currentItem
|
||||
Exit For
|
||||
End If
|
||||
Next currentItem
|
||||
If summaryItem Is Nothing Then
|
||||
summaryItem = New ASPxSummaryItem(fieldName, modelColumnExtender.GroupFooterSummaryType)
|
||||
summaryItem.ShowInGroupFooterColumn = modelColumn.Caption
|
||||
summaryItem.DisplayFormat = modelColumn.DisplayFormat
|
||||
gridView.GroupSummary.Add(summaryItem)
|
||||
End If
|
||||
End If
|
||||
Next modelColumn
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
@@ -0,0 +1,46 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System
|
||||
Imports System.Web.UI.WebControls
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.ExpressApp.Web.Editors
|
||||
Imports DevExpress.ExpressApp.Model
|
||||
Imports DevExpress.DashboardWeb
|
||||
|
||||
Public Class DashboardViewerPropertyEditor
|
||||
Inherits WebPropertyEditor
|
||||
|
||||
'Private DashboardViewerUserControlCore As DashboardViewerUserControl = Nothing
|
||||
'Public ReadOnly Property DashboardViewerUserControl() As DashboardViewerUserControl
|
||||
' Get
|
||||
' Return DashboardViewerUserControlCore
|
||||
' End Get
|
||||
'End Property
|
||||
|
||||
Private _ASPxDashboardViewer As ASPxDashboardViewer
|
||||
|
||||
ReadOnly Property ASPxDashboardViewer As ASPxDashboardViewer
|
||||
Get
|
||||
Return _ASPxDashboardViewer
|
||||
End Get
|
||||
End Property
|
||||
Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem)
|
||||
MyBase.New(objectType, info)
|
||||
End Sub
|
||||
Protected Overrides Function CreateViewModeControlCore() As WebControl
|
||||
_ASPxDashboardViewer = New ASPxDashboardViewer
|
||||
Return _ASPxDashboardViewer
|
||||
End Function
|
||||
Protected Overrides Function CreateEditModeControlCore() As WebControl
|
||||
_ASPxDashboardViewer = New ASPxDashboardViewer
|
||||
Return _ASPxDashboardViewer
|
||||
End Function
|
||||
|
||||
Protected Overrides Function GetControlValueCore() As Object
|
||||
Return _ASPxDashboardViewer
|
||||
End Function
|
||||
|
||||
Protected Overrides Sub ReadEditModeValueCore()
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,48 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class DashboardViewerUserControl
|
||||
Inherits DevExpress.XtraEditors.XtraUserControl
|
||||
|
||||
'UserControl overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.DashboardViewer1 = New DevExpress.DashboardWin.DashboardViewer(Me.components)
|
||||
CType(Me.DashboardViewer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'DashboardViewer1
|
||||
'
|
||||
Me.DashboardViewer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.DashboardViewer1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.DashboardViewer1.Name = "DashboardViewer1"
|
||||
Me.DashboardViewer1.Size = New System.Drawing.Size(543, 586)
|
||||
Me.DashboardViewer1.TabIndex = 0
|
||||
'
|
||||
'DashboardViewerUserControl
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.DashboardViewer1)
|
||||
Me.Name = "DashboardViewerUserControl"
|
||||
Me.Size = New System.Drawing.Size(543, 586)
|
||||
CType(Me.DashboardViewer1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents DashboardViewer1 As DevExpress.DashboardWin.DashboardViewer
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
@@ -0,0 +1,100 @@
|
||||
Imports DevExpress.DashboardCommon
|
||||
Imports DevExpress.DataAccess
|
||||
Imports DevExpress.DataAccess.ConnectionParameters
|
||||
Imports DevExpress.DataAccess.Sql
|
||||
|
||||
Public Class DashboardViewerUserControl
|
||||
|
||||
Private _DashboardViewerInfo As String
|
||||
Private _UserName As String
|
||||
Private _Password As String
|
||||
Private _Database As String
|
||||
Private _SQLServer As String
|
||||
Private _SQLType As eSQLType
|
||||
|
||||
|
||||
Public ReadOnly Property DashboardViewer() As DevExpress.DashboardWin.DashboardViewer
|
||||
Get
|
||||
Return Me.DashboardViewer1
|
||||
End Get
|
||||
End Property
|
||||
Public Property DashboardViewerInfo As String
|
||||
Get
|
||||
Return _DashboardViewerInfo
|
||||
End Get
|
||||
Set(value As String)
|
||||
_DashboardViewerInfo = value
|
||||
End Set
|
||||
End Property
|
||||
Public Property UserName As String
|
||||
Get
|
||||
Return _UserName
|
||||
End Get
|
||||
Set(value As String)
|
||||
_UserName = value
|
||||
End Set
|
||||
End Property
|
||||
Public Property Password As String
|
||||
Get
|
||||
Return _Password
|
||||
End Get
|
||||
Set(value As String)
|
||||
_Password = value
|
||||
End Set
|
||||
End Property
|
||||
Public Property Database As String
|
||||
Get
|
||||
Return _Database
|
||||
End Get
|
||||
Set(value As String)
|
||||
_Database = value
|
||||
End Set
|
||||
End Property
|
||||
Property SQLServer As String
|
||||
Get
|
||||
Return _SQLServer
|
||||
End Get
|
||||
Set(value As String)
|
||||
_SQLServer = value
|
||||
End Set
|
||||
End Property
|
||||
Public Property SQLType As eSQLType
|
||||
Get
|
||||
Return _SQLType
|
||||
End Get
|
||||
Set(value As eSQLType)
|
||||
_SQLType = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Sub DashboardViewer1_ConfigureDataConnection(sender As Object, e As ConfigureDataConnectionEventArgs) Handles DashboardViewer1.ConfigureDataConnection
|
||||
Select Case Me.SQLType.ToString
|
||||
Case "MySQL"
|
||||
Dim _ConnectionParameters As New MySqlConnectionParameters
|
||||
|
||||
_ConnectionParameters.DatabaseName = Me.Database
|
||||
_ConnectionParameters.UserName = Me.UserName
|
||||
_ConnectionParameters.Password = Me.Password
|
||||
_ConnectionParameters.ServerName = Me.SQLServer
|
||||
|
||||
e.ConnectionParameters = _ConnectionParameters
|
||||
Case "PostgreSQL"
|
||||
Dim _ConnectionParameters As New PostgreSqlConnectionParameters
|
||||
_ConnectionParameters.DatabaseName = Me.Database
|
||||
_ConnectionParameters.UserName = Me.UserName
|
||||
_ConnectionParameters.Password = Me.Password
|
||||
_ConnectionParameters.ServerName = Me.SQLServer
|
||||
|
||||
e.ConnectionParameters = _ConnectionParameters
|
||||
Case "MSSQL"
|
||||
Dim _ConnectionParameters As New MsSqlConnectionParameters
|
||||
_ConnectionParameters.DatabaseName = Me.Database
|
||||
_ConnectionParameters.UserName = Me.UserName
|
||||
_ConnectionParameters.Password = Me.Password
|
||||
_ConnectionParameters.ServerName = Me.SQLServer
|
||||
|
||||
e.ConnectionParameters = _ConnectionParameters
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,35 @@
|
||||
Partial Class MobileListDashboardVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
'
|
||||
'aViewDashboardBase
|
||||
'
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,126 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aViewDashboardBase.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -0,0 +1,54 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
|
||||
Public Class MobileListDashboardVC
|
||||
Inherits SISBusiness.Module.MobileListDashboardsVC
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aViewDashboardBase_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewDashboardBase.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _MobileListDashboards As MobileListDashboards = TryCast(View.SelectedObjects(0), MobileListDashboards)
|
||||
|
||||
If _MobileListDashboards IsNot Nothing Then
|
||||
If _MobileListDashboards.BusinessDirectory IsNot Nothing Then
|
||||
Dim _FileName As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), System.IO.Path.GetTempPath, _MobileListDashboards.BusinessDirectory.FileData.FileName)
|
||||
Dim _StreamFile As System.IO.Stream = New System.IO.FileStream(_FileName, System.IO.FileMode.Create, System.IO.FileAccess.Write)
|
||||
_MobileListDashboards.BusinessDirectory.FileData.SaveToStream(_StreamFile)
|
||||
_StreamFile.Close()
|
||||
|
||||
If IO.File.Exists(_FileName) Then
|
||||
GLOBAL_DASHBOARD_XML_DashboardXmlFile = _FileName
|
||||
GLOBAL_DASHBOARD_XML_UserName = _MobileListDashboards.BusinessDirectory.DashBoard_UserName
|
||||
GLOBAL_DASHBOARD_XML_Password = _MobileListDashboards.BusinessDirectory.DashBoard_Password
|
||||
GLOBAL_DASHBOARD_XML_ServerName = _MobileListDashboards.BusinessDirectory.DashBoard_Server
|
||||
GLOBAL_DASHBOARD_XML_DatabaseName = _MobileListDashboards.BusinessDirectory.DashBoard_Database
|
||||
Select Case _MobileListDashboards.BusinessDirectory.SQLType
|
||||
Case eSQLType.MSSQL
|
||||
GLOBAL_DASHBOARD_XML_SQLType = "MSSQL"
|
||||
Case eSQLType.MySQL
|
||||
GLOBAL_DASHBOARD_XML_SQLType = "MYSQL"
|
||||
Case eSQLType.PostgreSQL
|
||||
GLOBAL_DASHBOARD_XML_SQLType = "PSQL"
|
||||
End Select
|
||||
|
||||
DevExpress.ExpressApp.Web.WebWindow.CurrentRequestWindow.RegisterStartupScript("ShowCustomFormScriptKey", String.Format("window.open('{0}');", "Controls/DashboardViewer.aspx"))
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,242 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Application>
|
||||
<ActionDesign>
|
||||
<Actions>
|
||||
<Action Id="aInstallationDocumentations_OpenDashboardWithViewer" Caption="Műszerfal megnyitása" />
|
||||
<Action Id="aOperationaLog_CreateNewSupportLog" Caption="Új" />
|
||||
<Action Id="aResetView" ConfirmationMessage="Biztosan visszaállítja a táblázat eredeti beállításait ? A művelet NEM vonható vissza !" Caption="Nézet visszaállítása" />
|
||||
<Action Id="aSubcontractorDocuments_OpenDashboardWithViewer" Caption="Műszerfal megnyitása" />
|
||||
<Action Id="aSubcontractorNavigationDisable" Caption="Tiltás" />
|
||||
<Action Id="aSubcontractorNavigationEnable" Caption="Engedélyezés" />
|
||||
<Action Id="Edit" Caption="Szerkesztés" />
|
||||
<Action Id="Logoff" Caption="Kijelentkezés" />
|
||||
<Action Id="SwitchToEditMode" Caption="Szerkesztés" />
|
||||
</Actions>
|
||||
</ActionDesign>
|
||||
<BOModel>
|
||||
<Class Name="DevExpress.Persistent.BaseImpl.SimpleUser">
|
||||
<OwnMembers>
|
||||
<Member Name="ChangePasswordOnFirstLogon" Caption="Jelszó módosítása az első bejelentkezéskor" />
|
||||
</OwnMembers>
|
||||
</Class>
|
||||
<Class Name="DevExpress.Persistent.BaseImpl.User">
|
||||
<OwnMembers>
|
||||
<Member Name="ChangePasswordOnFirstLogon" Caption="Jelszó módosítása az első bejelentkezéskor" />
|
||||
</OwnMembers>
|
||||
</Class>
|
||||
</BOModel>
|
||||
<Localization>
|
||||
<LocalizationGroup Name="ASPxImagePropertyEditor">
|
||||
<LocalizationItem Name="Edit" Value="Szerkesztés" />
|
||||
</LocalizationGroup>
|
||||
</Localization>
|
||||
<Views>
|
||||
<DetailView Id="ChangeLogon_DetailView">
|
||||
<Items>
|
||||
<StaticText Id="@LoginText" Caption="Üdvözöljük ! Kérem adja meg a bejelentkezési információkat !" Text="Üdvözöljük ! Kérem adja meg a bejelentkezési információkat !" />
|
||||
</Items>
|
||||
<Layout>
|
||||
<LayoutGroup Id="Main" Caption="Main">
|
||||
<LayoutGroup Id="SimpleEditors" Caption="SimpleEditors">
|
||||
<LayoutGroup Id="ChangeLogon_col1" Caption="ChangeLogon_col1">
|
||||
<LayoutGroup Id="Autoc2fb7b9b-3e68-4263-9f5a-471722b3ce27" Caption="Autoc2fb7b9b-3e68-4263-9f5a-471722b3ce27(5)">
|
||||
<LayoutGroup Id="Autobae83a43-4484-4365-b52f-b2e53db5fe55" Caption="Autobae83a43-4484-4365-b52f-b2e53db5fe55(5)" />
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
</Layout>
|
||||
</DetailView>
|
||||
<DetailView Id="ChangePasswordOnLogonParameters_DetailView" Caption="Jelszó módosítása az első bejelentkezéskor">
|
||||
<Items>
|
||||
<StaticText Id="ChangePasswordText" Text="Biztonsági okokból most meg kell adnia a saját jelszavát. Kérjük adja meg új jelszavát az alábbi két szöveges mezőben, és győződjön meg arról, hogy nem használta ezt már korábban." />
|
||||
</Items>
|
||||
</DetailView>
|
||||
<DetailView Id="CloseWorkSheet_SubcontractorpopUp_DetailView">
|
||||
<Items>
|
||||
<PropertyEditor Id="Description" Caption="Leírás" />
|
||||
<PropertyEditor Id="DateClosed" Caption="Lezárás dátuma" />
|
||||
</Items>
|
||||
</DetailView>
|
||||
<DetailView Id="Dashboard_DetailView">
|
||||
<Layout>
|
||||
<LayoutGroup Id="Main" Caption="Main">
|
||||
<LayoutGroup Id="SizeableEditors" Caption="Műszerfal file">
|
||||
<LayoutGroup Id="Item1" Caption="Műszerfal" />
|
||||
</LayoutGroup>
|
||||
<LayoutGroup Id="SimpleEditors" Caption="SimpleEditors" />
|
||||
</LayoutGroup>
|
||||
</Layout>
|
||||
</DetailView>
|
||||
<ListView Id="GLReport_GLReportRows_ListView">
|
||||
<Variants>
|
||||
<Variant Id="@PivotView" Caption="Pivot" />
|
||||
</Variants>
|
||||
</ListView>
|
||||
<DetailView Id="InvoiceHeader_DetailView">
|
||||
<Layout>
|
||||
<LayoutGroup Id="Main" Caption="Main">
|
||||
<LayoutGroup Id="SimpleEditors" Caption="SimpleEditors">
|
||||
<TabbedGroup Id="Item1">
|
||||
<LayoutGroup Id="InvoiceHeader_Group" Caption="Fejléc adatok">
|
||||
<LayoutGroup Id="InvoiceHeader_Group_col1" Caption="InvoiceHeader_Group_col1">
|
||||
<LayoutGroup Id="Item4" Caption="Általános adatok">
|
||||
<LayoutGroup Id="9dcc028e-2970-4557-95ff-80ebf8970369" Caption="9dcc028e-2970-4557-95ff-80ebf8970369(7)">
|
||||
<LayoutGroup Id="65ffee3a-01ab-4963-be90-26fb0071ff61" Caption="65ffee3a-01ab-4963-be90-26fb0071ff61(11)">
|
||||
<LayoutGroup Id="ec9f662a-907d-4338-8254-3644ec196960" Caption="ec9f662a-907d-4338-8254-3644ec196960(12)" />
|
||||
<LayoutGroup Id="6bb0915f-0782-4931-a372-0c5bbad1bd42" Caption="6bb0915f-0782-4931-a372-0c5bbad1bd42(15)" />
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
<LayoutGroup Id="Item2" Caption="Fizetési és egyéb opciók">
|
||||
<LayoutGroup Id="9988ace7-c06e-4fb4-a2ca-350fddfaba5f" Caption="9988ace7-c06e-4fb4-a2ca-350fddfaba5f(18)" />
|
||||
<LayoutGroup Id="ce6bd2fc-1f89-4059-bd99-6f1f7d917d59" Caption="ce6bd2fc-1f89-4059-bd99-6f1f7d917d59(21)">
|
||||
<LayoutGroup Id="ca8db8cd-1451-4d33-91a6-5bd92a3daf97" Caption="ca8db8cd-1451-4d33-91a6-5bd92a3daf97(22)" />
|
||||
<LayoutGroup Id="467ce52b-35e9-4af1-9e3d-58c18df69481" Caption="467ce52b-35e9-4af1-9e3d-58c18df69481(25)" />
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
<LayoutGroup Id="ea36f56d-5d12-4b51-94a6-a383d36760a7" Caption="ea36f56d-5d12-4b51-94a6-a383d36760a7(32)">
|
||||
<LayoutGroup Id="f5941ad9-84d6-4067-8c6e-cd8a487449ca" Caption="f5941ad9-84d6-4067-8c6e-cd8a487449ca(33)" />
|
||||
<LayoutGroup Id="79b8e349-30b8-442d-a480-18bb7dc2a997" Caption="79b8e349-30b8-442d-a480-18bb7dc2a997(36)" />
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
<LayoutGroup Id="Item2" Caption="Számla sorok">
|
||||
<LayoutGroup Id="Item5" Caption="Sor adatok">
|
||||
<LayoutGroup Id="4b7c5d72-fab7-46ce-897a-51b2a6c141a8" Caption="4b7c5d72-fab7-46ce-897a-51b2a6c141a8(39)">
|
||||
<LayoutGroup Id="8c021349-ad2f-4259-852d-79c99825ade3" Caption="8c021349-ad2f-4259-852d-79c99825ade3(40)">
|
||||
<LayoutGroup Id="e4e9f7ce-b255-4bf7-90d2-40f88d0faf5f" Caption="e4e9f7ce-b255-4bf7-90d2-40f88d0faf5f(41)">
|
||||
<LayoutGroup Id="61b3f44a-1c6f-408b-9f90-14c7d467ddc0" Caption="61b3f44a-1c6f-408b-9f90-14c7d467ddc0(36)">
|
||||
<LayoutGroup Id="Autof6654a4d-528d-4cb5-bbb0-da5c3c648919" Caption="Autof6654a4d-528d-4cb5-bbb0-da5c3c648919(46)" />
|
||||
</LayoutGroup>
|
||||
<LayoutGroup Id="21bc6e8b-b980-4230-aedb-6646a39afd09" Caption="21bc6e8b-b980-4230-aedb-6646a39afd09(38)">
|
||||
<LayoutGroup Id="412d4063-869a-46a8-8aa6-34db03bff364" Caption="412d4063-869a-46a8-8aa6-34db03bff364(39)" />
|
||||
<LayoutGroup Id="3bea0aa0-0ab0-4e00-9a64-e6389cf3ebc8" Caption="3bea0aa0-0ab0-4e00-9a64-e6389cf3ebc8(42)" />
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
<LayoutGroup Id="0d190f0c-db25-4bf4-b15a-b6e85b3b6080" Caption="0d190f0c-db25-4bf4-b15a-b6e85b3b6080(49)" />
|
||||
</LayoutGroup>
|
||||
<LayoutGroup Id="Item6" Caption="Jelölő adatok">
|
||||
<LayoutGroup Id="d1bb7f31-6287-42be-876b-3fa5c3526afa" Caption="d1bb7f31-6287-42be-876b-3fa5c3526afa(53)">
|
||||
<LayoutGroup Id="700fbaf0-0ed7-4e15-a35e-bb1307b16c5e" Caption="700fbaf0-0ed7-4e15-a35e-bb1307b16c5e(59)" />
|
||||
</LayoutGroup>
|
||||
<LayoutGroup Id="09f19879-24cc-4a21-91a1-5a84ff5a8493" Caption="09f19879-24cc-4a21-91a1-5a84ff5a8493(57)" />
|
||||
</LayoutGroup>
|
||||
<LayoutGroup Id="28d79384-f2b1-439c-b522-05a25c677602" Caption="28d79384-f2b1-439c-b522-05a25c677602(57)" />
|
||||
</LayoutGroup>
|
||||
</TabbedGroup>
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
</Layout>
|
||||
</DetailView>
|
||||
<ListView Id="ModelNavigation_ListView">
|
||||
<Columns>
|
||||
<ColumnInfo Id="ImageDeny" Caption="." />
|
||||
<ColumnInfo Id="Image1" Caption="Kép" />
|
||||
<ColumnInfo Id="Navigation_Caption" Caption="Megnevezés" />
|
||||
</Columns>
|
||||
</ListView>
|
||||
<DetailView Id="OpenWorkSheet_SubcontractorPopUp_DetailView">
|
||||
<Layout>
|
||||
<LayoutGroup Id="Main" Caption="Main">
|
||||
<LayoutGroup Id="SimpleEditors" Caption="SimpleEditors">
|
||||
<LayoutGroup Id="OpenWorkSheet_SubcontractorPopUp_col1" Caption="OpenWorkSheet_SubcontractorPopUp_col1" />
|
||||
</LayoutGroup>
|
||||
<LayoutGroup Id="SizeableEditors" Caption="Leírás" />
|
||||
</LayoutGroup>
|
||||
</Layout>
|
||||
</DetailView>
|
||||
<DetailView Id="OperationalLog_DetailView_Support">
|
||||
<Layout>
|
||||
<LayoutGroup Id="Main" Caption="Main">
|
||||
<LayoutGroup Id="SimpleEditors" Caption="SimpleEditors">
|
||||
<LayoutGroup Id="OperationalLog_col1" Caption="OperationalLog_col1" />
|
||||
<LayoutGroup Id="OperationalLog_col2" Caption="OperationalLog_col2" />
|
||||
</LayoutGroup>
|
||||
<LayoutGroup Id="SizeableEditors" Caption="SizeableEditors" />
|
||||
</LayoutGroup>
|
||||
</Layout>
|
||||
</DetailView>
|
||||
<ListView Id="OperationalLog_ListView_Subconractor_HFR" Caption="Hő és füstelvezetési rendszer napló" />
|
||||
<ListView Id="OperationalLog_ListView_Support_HFR" Caption="Hő és füstelvezetési rendszer napló" />
|
||||
<DetailView Id="Question_DetailView">
|
||||
<Layout>
|
||||
<LayoutGroup Id="Main" Caption="Main">
|
||||
<LayoutGroup Id="SimpleEditors" Caption="SimpleEditors" />
|
||||
<LayoutGroup Id="SizeableEditors" Caption="SizeableEditors" />
|
||||
</LayoutGroup>
|
||||
</Layout>
|
||||
</DetailView>
|
||||
<DetailView Id="Question_DetailView_Info">
|
||||
<Layout>
|
||||
<LayoutGroup Id="Main" Caption="Main">
|
||||
<LayoutGroup Id="SimpleEditors" Caption="SimpleEditors" />
|
||||
<LayoutGroup Id="SizeableEditors" Caption="SizeableEditors" />
|
||||
</LayoutGroup>
|
||||
</Layout>
|
||||
</DetailView>
|
||||
<DetailView Id="RegistryHeader_DetailView">
|
||||
<Layout>
|
||||
<LayoutGroup Id="Main" Caption="Main">
|
||||
<LayoutGroup Id="SimpleEditors" Caption="SimpleEditors">
|
||||
<LayoutGroup Id="Item1" Caption="Visszaküldési adatok" />
|
||||
<LayoutGroup Id="Item3" Caption="Iktatási adatok">
|
||||
<LayoutGroup Id="d858aa8b-11c1-4902-846b-91c5d636811e" Caption="d858aa8b-11c1-4902-846b-91c5d636811e(7)" />
|
||||
<LayoutGroup Id="d7397954-22c4-42be-9c37-6e01e949eaa7" Caption="d7397954-22c4-42be-9c37-6e01e949eaa7(12)" />
|
||||
</LayoutGroup>
|
||||
<LayoutGroup Id="RegistryHeader" Caption="Fejléc adatok">
|
||||
<LayoutGroup Id="RegistryHeader_col1" Caption="RegistryHeader_col1">
|
||||
<LayoutGroup Id="e48d888b-98e7-4463-b429-2e3a1301f9ed" Caption="e48d888b-98e7-4463-b429-2e3a1301f9ed(19)">
|
||||
<LayoutGroup Id="750fe3b4-e622-4e2e-a173-844475659a79" Caption="750fe3b4-e622-4e2e-a173-844475659a79(24)">
|
||||
<LayoutGroup Id="fcba7688-20e6-4774-a64e-6c2deaecb14f" Caption="fcba7688-20e6-4774-a64e-6c2deaecb14f(25)" />
|
||||
<LayoutGroup Id="943dea97-0466-4d8c-993e-af07680c64ce" Caption="943dea97-0466-4d8c-993e-af07680c64ce(25)" />
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
<LayoutGroup Id="Item2" Caption="Számla adatok">
|
||||
<LayoutGroup Id="4ccd48cc-322c-4db4-936c-081eaaef0598" Caption="4ccd48cc-322c-4db4-936c-081eaaef0598(28)" />
|
||||
<LayoutGroup Id="93a2e658-dfaa-466f-9232-656bfc1fcde5" Caption="93a2e658-dfaa-466f-9232-656bfc1fcde5(32)">
|
||||
<LayoutGroup Id="84e5c2e8-eda2-4bbb-8914-20baf53ffc11" Caption="84e5c2e8-eda2-4bbb-8914-20baf53ffc11(33)" />
|
||||
<LayoutGroup Id="e61d41ea-fcb4-43d7-9746-a5ef5471e977" Caption="e61d41ea-fcb4-43d7-9746-a5ef5471e977(36)">
|
||||
<LayoutGroup Id="f36f026d-8d17-4311-be5c-2a83ed0c3ba7" Caption="f36f026d-8d17-4311-be5c-2a83ed0c3ba7(37)">
|
||||
<LayoutGroup Id="cf9afb68-a2c2-4d84-8f40-370276a82d65" Caption="cf9afb68-a2c2-4d84-8f40-370276a82d65(41)" />
|
||||
<LayoutGroup Id="fb8a235b-ac43-44f7-8972-8f74def4cf30" Caption="fb8a235b-ac43-44f7-8972-8f74def4cf30(44)" />
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
<TabbedGroup Id="Tabs">
|
||||
<LayoutGroup Id="TabRegistryRowsFinancial">
|
||||
<LayoutGroup Id="Auto8e6883da-3024-4a94-88f1-c78b9642f740" Caption="Auto8e6883da-3024-4a94-88f1-c78b9642f740(48)" />
|
||||
<LayoutGroup Id="Auto2e393559-db28-4206-9fff-f7cd0d5c097a" Caption="Auto2e393559-db28-4206-9fff-f7cd0d5c097a(52)" />
|
||||
</LayoutGroup>
|
||||
<LayoutGroup Id="RegistryRowsFinancialControlling" Caption="Számlaigazolás">
|
||||
<LayoutGroup Id="576502e4-a6cb-4304-a2cd-a2778a437f30" Caption="576502e4-a6cb-4304-a2cd-a2778a437f30(54)">
|
||||
<LayoutGroup Id="200a79e9-1076-4439-a14c-1444a73976ac" Caption="200a79e9-1076-4439-a14c-1444a73976ac(55)" />
|
||||
<LayoutGroup Id="e9044293-4949-4312-b603-6474bcbd697f" Caption="e9044293-4949-4312-b603-6474bcbd697f(59)" />
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
<LayoutGroup Id="RegistryBankTransfer" Caption="Banki csomagok" />
|
||||
<LayoutGroup Id="RegistryTasks" Caption="Feladatok" />
|
||||
<LayoutGroup Id="WorkFlowCollection" Caption="Folyamat lépések" />
|
||||
<LayoutGroup Id="RegistryFileData" Caption="Csatolt fájlok" />
|
||||
<LayoutGroup Id="PCIDetail" Caption="P.Ü. info" />
|
||||
</TabbedGroup>
|
||||
</LayoutGroup>
|
||||
</Layout>
|
||||
</DetailView>
|
||||
<DetailView Id="Reply_DetailView">
|
||||
<Layout>
|
||||
<LayoutGroup Id="Main" Caption="Main">
|
||||
<LayoutGroup Id="SimpleEditors" Caption="SimpleEditors">
|
||||
<LayoutGroup Id="Reply" Caption="Reply" />
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
</Layout>
|
||||
</DetailView>
|
||||
</Views>
|
||||
</Application>
|
||||
File diff suppressed because one or more lines are too long
@@ -0,0 +1,13 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.1
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>false</MySubMain>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<ApplicationType>1</ApplicationType>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
@@ -0,0 +1,32 @@
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' General Information about an assembly is controlled through the following
|
||||
' set of attributes. Change these attribute values to modify the information
|
||||
' associated with an assembly.
|
||||
|
||||
' Review the values of the assembly attributes
|
||||
|
||||
<Assembly: AssemblyTitle("SISBusiness.Module.Web")>
|
||||
<Assembly: AssemblyDescription("SIS Business ERP system WEB module")>
|
||||
<Assembly: AssemblyCompany("SIS-Rendszerház Kft")>
|
||||
<Assembly: AssemblyProduct("SISBusiness.Module.WEB")>
|
||||
<Assembly: AssemblyCopyright("Copyright © - 2014")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
' Version information for an assembly consists of the following four values:
|
||||
'
|
||||
' Major Version
|
||||
' Minor Version
|
||||
' Build Number
|
||||
' Revision
|
||||
'
|
||||
' You can specify all the values or you can default the Build and Revision Numbers
|
||||
' by using the '*' as shown below:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("15.2.5.1001")>
|
||||
|
||||
@@ -0,0 +1,63 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.1
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||
'class via a tool like ResGen or Visual Studio.
|
||||
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||
'with the /str option, or rebuild your VS project.
|
||||
'''<summary>
|
||||
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
'''<summary>
|
||||
''' Returns the cached ResourceManager instance used by this class.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||
Get
|
||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("SISBusiness.Module.Web.Resources", GetType(Resources).Assembly)
|
||||
resourceMan = temp
|
||||
End If
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Overrides the current thread's CurrentUICulture property for all
|
||||
''' resource lookups using this strongly typed resource class.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,117 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0"></xsd:element>
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string"></xsd:attribute>
|
||||
<xsd:attribute name="type" type="xsd:string"></xsd:attribute>
|
||||
<xsd:attribute name="mimetype" type="xsd:string"></xsd:attribute>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string"></xsd:attribute>
|
||||
<xsd:attribute name="name" type="xsd:string"></xsd:attribute>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1"></xsd:element>
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2"></xsd:element>
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1"></xsd:attribute>
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3"></xsd:attribute>
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4"></xsd:attribute>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1"></xsd:element>
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required"></xsd:attribute>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.1
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||
|
||||
#Region "My.Settings Auto-Save Functionality"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global.SISBusiness.[Module].Web.My.MySettings
|
||||
Get
|
||||
Return Global.SISBusiness.[Module].Web.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,7 @@
|
||||
<?xml version='1.0' encoding='utf-8'?>
|
||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||
<Profiles>
|
||||
<Profile Name="(Default)" />
|
||||
</Profiles>
|
||||
<Settings />
|
||||
</SettingsFile>
|
||||
@@ -0,0 +1,3 @@
|
||||
|
||||
|
||||
DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class QuickCreate
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,28 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
|
||||
|
||||
Public Class QuickCreate
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
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 DevExpress.ExpressApp.Web.SystemModule.WebNewObjectViewController).QuickCreateAction.Active.SetItemValue("", False)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -0,0 +1,524 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProductVersion>9.0.30729</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{B87EACCF-FA6C-4043-AA73-800C77D8DF11}</ProjectGuid>
|
||||
<OutputType>Library</OutputType>
|
||||
<RootNamespace>SISBusiness.Module.Web</RootNamespace>
|
||||
<AssemblyName>SISBusiness.Module.Web</AssemblyName>
|
||||
<MyType>Windows</MyType>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
<SccProjectName>SAK</SccProjectName>
|
||||
<SccLocalPath>SAK</SccLocalPath>
|
||||
<SccAuxPath>SAK</SccAuxPath>
|
||||
<SccProvider>SAK</SccProvider>
|
||||
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<OldToolsVersion>4.0</OldToolsVersion>
|
||||
<UpgradeBackupLocation />
|
||||
<IsWebBootstrapper>true</IsWebBootstrapper>
|
||||
<PublishUrl>http://localhost/SISBusiness.Module.Web/</PublishUrl>
|
||||
<Install>true</Install>
|
||||
<InstallFrom>Web</InstallFrom>
|
||||
<UpdateEnabled>true</UpdateEnabled>
|
||||
<UpdateMode>Foreground</UpdateMode>
|
||||
<UpdateInterval>7</UpdateInterval>
|
||||
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
|
||||
<UpdatePeriodically>false</UpdatePeriodically>
|
||||
<UpdateRequired>false</UpdateRequired>
|
||||
<MapFileExtensions>true</MapFileExtensions>
|
||||
<ApplicationRevision>0</ApplicationRevision>
|
||||
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
|
||||
<UseApplicationTrust>false</UseApplicationTrust>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
<TargetFrameworkProfile>
|
||||
</TargetFrameworkProfile>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>
|
||||
</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
|
||||
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
|
||||
<PlatformTarget>x86</PlatformTarget>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugType>None</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>
|
||||
</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
|
||||
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'EasyTest|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\EasyTest\</OutputPath>
|
||||
<DocumentationFile>
|
||||
</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
|
||||
<DebugType>full</DebugType>
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DefineConstants>EASYTEST</DefineConstants>
|
||||
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'R64|AnyCPU'">
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\R64\</OutputPath>
|
||||
<DocumentationFile>
|
||||
</DocumentationFile>
|
||||
<Optimize>true</Optimize>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
|
||||
<DebugType>None</DebugType>
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="DevExpress.DataAccess.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.DataAccess.v15.2.UI, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Dashboard.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.ExpressApp.TreeListEditors.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.ExpressApp.TreeListEditors.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.Printing.v15.2.Core">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Data.v15.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.ExpressApp.AuditTrail.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.Chart.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.ExpressApp.Chart.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.CloneObject.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.ConditionalAppearance.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.FileAttachment.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.HtmlPropertyEditor.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.Kpi.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.PivotChart.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.ExpressApp.PivotChart.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.PivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.ExpressApp.PivotGrid.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.Reports.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.Reports.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.Scheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.ExpressApp.Scheduler.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.Xpo.v15.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.ExpressApp.v15.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.ExpressApp.Images.v15.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.ExpressApp.Objects.v15.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.ExpressApp.Security.v15.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.ExpressApp.Validation.v15.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.ExpressApp.ViewVariantsModule.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.Web.v15.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Persistent.Base.v15.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Persistent.BaseImpl.v15.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.Utils.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.Office.v15.2.Core">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.RichEdit.v15.2.Core">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Web.v15.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Xpo.v15.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Charts.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.XtraCharts.v15.2.Wizard, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.Dashboard.v15.2.Win, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Dashboard.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.XtraPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.XtraPrinting.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.Utils.v15.2.UI, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.Sparkline.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.XtraReports.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.XtraReports.v15.2.Extensions, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.XtraScheduler.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="FarPoint.Win, Version=5.0.3518.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
|
||||
<Reference Include="FarPoint.Win.Spread, Version=5.0.3522.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\..\..\Program Files (x86)\GrapeCity\Spread.WinForms.5.dotNet35\v5.0.3518\Bin\FarPoint.Win.Spread.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System">
|
||||
<Private>False</Private>
|
||||
</Reference>
|
||||
<Reference Include="System.Data">
|
||||
<Private>False</Private>
|
||||
</Reference>
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Web" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml">
|
||||
<Private>False</Private>
|
||||
</Reference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Collections.Generic" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="BusinessObjects\Business\Products\InstallationVC.Designer.vb">
|
||||
<DependentUpon>InstallationVC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Business\Products\InstallationVC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Business\Subcontractor\SubcontractorVC.Designer.vb">
|
||||
<DependentUpon>SubcontractorVC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Business\Subcontractor\SubcontractorVC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\PCIGroupVC.Designer.vb">
|
||||
<DependentUpon>PCIGroupVC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\PCIGroupVC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\GeneralObjects\HRPersonEventVC.Designer.vb">
|
||||
<DependentUpon>HRPersonEventVC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\GeneralObjects\HRPersonEventVC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\GeneralObjects\OperationalLog\OperationalLog_VC.Designer.vb">
|
||||
<DependentUpon>OperationalLog_VC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\GeneralObjects\OperationalLog\OperationalLog_VC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\GeneralObjects\RTFDocumentHandler\BusinessDirectory_VC.Designer.vb">
|
||||
<DependentUpon>BusinessDirectory_VC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\GeneralObjects\RTFDocumentHandler\BusinessDirectory_VC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\AboutInfoCustomizationVC.Designer.vb">
|
||||
<DependentUpon>AboutInfoCustomizationVC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\AboutInfoCustomizationVC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\ASPxGridViewVC.Designer.vb">
|
||||
<DependentUpon>ASPxGridViewVC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\ASPxGridViewVC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Business\BusinessTransactions\Worksheet\WorkSheet_VC.Designer.vb">
|
||||
<DependentUpon>WorkSheet_VC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Business\BusinessTransactions\Worksheet\WorkSheet_VC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLAccountsVC.Designer.vb">
|
||||
<DependentUpon>GLAccountsVC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLAccountsVC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLBankVC.Designer.vb">
|
||||
<DependentUpon>GLBankVC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLBankVC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLCassaVC.Designer.vb">
|
||||
<DependentUpon>GLCassaVC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLCassaVC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLCompensationVC.Designer.vb">
|
||||
<DependentUpon>GLCompensationVC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLCompensationVC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLMixedVC.Designer.vb">
|
||||
<DependentUpon>GLMixedVC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLMixedVC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\DashboardViewerVC.Designer.vb">
|
||||
<DependentUpon>DashboardViewerVC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\DashboardViewerVC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\HTMLEditorVC.Designer.vb">
|
||||
<DependentUpon>HTMLEditorVC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\HTMLEditorVC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\ListViewProcessVC.Designer.vb">
|
||||
<DependentUpon>ListViewProcessVC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\ListViewProcessVC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\LogonWC.Designer.vb">
|
||||
<DependentUpon>LogonWC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\LogonWC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\OpenObjectController.Designer.vb">
|
||||
<DependentUpon>OpenObjectController.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\OpenObjectController.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\ResetSettingsVC.Designer.vb">
|
||||
<DependentUpon>ResetSettingsVC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\ResetSettingsVC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Editor\DashboardViewerPropertyEditor.vb" />
|
||||
<Compile Include="Editor\DashboardViewerUserControl.Designer.vb">
|
||||
<DependentUpon>DashboardViewerUserControl.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Editor\DashboardViewerUserControl.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Mobile\MobileListDashboardVC.Designer.vb">
|
||||
<DependentUpon>MobileListDashboardVC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Mobile\MobileListDashboardVC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\QuickCreateVC.Designer.vb">
|
||||
<DependentUpon>QuickCreateVC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\QuickCreateVC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Business\Support\QuestionVC.Designer.vb">
|
||||
<DependentUpon>QuestionVC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Business\Support\QuestionVC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Business\ToDoObjects\MySchedule_VC.Designer.vb">
|
||||
<DependentUpon>MySchedule_VC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="BusinessObjects\Business\ToDoObjects\MySchedule_VC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Updater.vb" />
|
||||
<Compile Include="Controllers\ViewModeEditVC.Designer.vb">
|
||||
<DependentUpon>ViewModeEditVC.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\ViewModeEditVC.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\WebAllowSortViewController.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\WebGroupFooterViewController.Designer.vb">
|
||||
<DependentUpon>WebGroupFooterViewController.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Controllers\WebGroupFooterViewController.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="WebModule.Designer.vb">
|
||||
<DependentUpon>WebModule.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="WebModule.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="BusinessObjects\Business\BusinessTransactions\Worksheet\WorkSheet_VC.resx">
|
||||
<DependentUpon>WorkSheet_VC.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="BusinessObjects\Business\Products\InstallationVC.resx">
|
||||
<DependentUpon>InstallationVC.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="BusinessObjects\Business\Subcontractor\SubcontractorVC.resx">
|
||||
<DependentUpon>SubcontractorVC.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLAccountsVC.resx">
|
||||
<DependentUpon>GLAccountsVC.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\PCIGroupVC.resx">
|
||||
<DependentUpon>PCIGroupVC.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="BusinessObjects\GeneralObjects\OperationalLog\OperationalLog_VC.resx">
|
||||
<DependentUpon>OperationalLog_VC.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="BusinessObjects\GeneralObjects\RTFDocumentHandler\BusinessDirectory_VC.resx">
|
||||
<DependentUpon>BusinessDirectory_VC.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Controllers\ResetSettingsVC.resx">
|
||||
<DependentUpon>ResetSettingsVC.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Editor\DashboardViewerUserControl.resx">
|
||||
<DependentUpon>DashboardViewerUserControl.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Mobile\MobileListDashboardVC.resx">
|
||||
<DependentUpon>MobileListDashboardVC.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="BusinessObjects\Business\Support\QuestionVC.resx">
|
||||
<DependentUpon>QuestionVC.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="WebModule.resx">
|
||||
<DependentUpon>WebModule.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="Model.DesignedDiffs.xafml">
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Model.DesignedDiffs.Localization.hu.xafml">
|
||||
<DependentUpon>Model.DesignedDiffs.xafml</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<None Include="BusinessObjects\Business\Support\vssver.scc" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5 SP1</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>Windows Installer 3.1</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<ProjectReference Include="..\SISBusiness.Module\SISBusiness.Module.vbproj">
|
||||
<Project>{60bf693f-7dea-4cf6-85bd-ea96829d79dd}</Project>
|
||||
<Name>SISBusiness.Module</Name>
|
||||
</ProjectReference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="UnusableNodes.xml">
|
||||
<DependentUpon>Model.DesignedDiffs.xafml</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="UnusableNodes1.xml">
|
||||
<DependentUpon>Model.DesignedDiffs.xafml</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="UnusableNodes_hu.xml">
|
||||
<DependentUpon>Model.DesignedDiffs.xafml</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup />
|
||||
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
</Target>
|
||||
<Target Name="AfterBuild">
|
||||
</Target>
|
||||
-->
|
||||
</Project>
|
||||
@@ -0,0 +1,10 @@
|
||||
""
|
||||
{
|
||||
"FILE_VERSION" = "9237"
|
||||
"ENLISTMENT_CHOICE" = "NEVER"
|
||||
"PROJECT_FILE_RELATIVE_PATH" = ""
|
||||
"NUMBER_OF_EXCLUDED_FILES" = "0"
|
||||
"ORIGINAL_PROJECT_FILE_PATH" = ""
|
||||
"NUMBER_OF_NESTED_PROJECTS" = "0"
|
||||
"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER"
|
||||
}
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Application>
|
||||
<Views Id="Views">
|
||||
<ListView Id="GLReportCashflowHeader_GLReportCashflowRows_ListView_Pivot">
|
||||
<Columns Id="Columns">
|
||||
<ColumnInfo Id="Controlling" Width="30" />
|
||||
</Columns>
|
||||
</ListView>
|
||||
</Views>
|
||||
</Application>
|
||||
@@ -0,0 +1,28 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Application>
|
||||
<Views Id="Views">
|
||||
<DetailView Id="ChangeLogon_DetailView">
|
||||
<Layout Id="Layout">
|
||||
<LayoutGroup Id="Main">
|
||||
<LayoutGroup Id="SimpleEditors">
|
||||
<LayoutGroup Id="ChangeLogon" Caption="Change Logon" RelativeSize="100" Removed="True">
|
||||
<LayoutGroup Id="ChangeLogon_col1" RelativeSize="48">
|
||||
<LayoutGroup Id="Auto41d6a7c0-75d1-4492-a03c-4564b833b484" ShowCaption="False" Direction="Horizontal" Index="0" RelativeSize="3">
|
||||
<LayoutItem Id="UserName" ViewItem="UserName" SizeConstraintsType="Default" Index="0" RelativeSize="49" />
|
||||
<LayoutItem Id="DBConnection" ViewItem="DBConnection" SizeConstraintsType="Default" Index="1" RelativeSize="50" />
|
||||
</LayoutGroup>
|
||||
<LayoutItem Id="DBConnection" ViewItem="DBConnection" Removed="True" />
|
||||
<LayoutItem Id="SQLServer" SizeConstraintsType="Default" RelativeSize="2" ViewItem="SQLServer" />
|
||||
<LayoutItem Id="SQLType" SizeConstraintsType="Default" RelativeSize="93" ViewItem="SQLType" />
|
||||
</LayoutGroup>
|
||||
<LayoutGroup Id="ChangeLogon_col2" RelativeSize="48">
|
||||
<LayoutItem Id="Password" SizeConstraintsType="Default" Index="0" RelativeSize="100" ViewItem="Password" />
|
||||
<LayoutItem Id="UserName" ViewItem="UserName" Removed="True" />
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
</Layout>
|
||||
</DetailView>
|
||||
</Views>
|
||||
</Application>
|
||||
@@ -0,0 +1,19 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Application>
|
||||
<Views Id="Views">
|
||||
<DetailView Id="ChangeLogon_DetailView">
|
||||
<Layout Id="Layout">
|
||||
<LayoutGroup Id="Main">
|
||||
<LayoutGroup Id="SimpleEditors">
|
||||
<LayoutGroup Id="ChangeLogon" Caption="Change Logon">
|
||||
<LayoutGroup Id="ChangeLogon_col1" Caption="ChangeLogon_col1">
|
||||
<LayoutGroup Id="Auto41d6a7c0-75d1-4492-a03c-4564b833b484" Caption="" />
|
||||
</LayoutGroup>
|
||||
<LayoutGroup Id="ChangeLogon_col2" Caption="ChangeLogon_col2" />
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
</LayoutGroup>
|
||||
</Layout>
|
||||
</DetailView>
|
||||
</Views>
|
||||
</Application>
|
||||
@@ -0,0 +1,23 @@
|
||||
Imports System
|
||||
Imports System.Security.Principal
|
||||
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Base.Security
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Security
|
||||
Imports DevExpress.ExpressApp.Updating
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Public Class Updater
|
||||
Inherits ModuleUpdater
|
||||
|
||||
Public Sub New(ByVal ObjectSpace As IObjectSpace, ByVal currentDBVersion As Version)
|
||||
MyBase.New(ObjectSpace, currentDBVersion)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub UpdateDatabaseAfterUpdateSchema()
|
||||
MyBase.UpdateDatabaseAfterUpdateSchema()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+53
@@ -0,0 +1,53 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System
|
||||
|
||||
Partial Public Class SISBusinessAspNetModule
|
||||
''' <summary>
|
||||
''' Required designer variable.
|
||||
''' </summary>
|
||||
Private components As System.ComponentModel.IContainer = Nothing
|
||||
|
||||
''' <summary>
|
||||
''' Clean up any resources being used.
|
||||
''' </summary>
|
||||
''' <param name="disposing">true if managed resources should be disposed; otherwise, false.</param>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso (Not components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
#Region "Component Designer generated code"
|
||||
|
||||
''' <summary>
|
||||
''' Required method for Designer support - do not modify
|
||||
''' the contents of this method with the code editor.
|
||||
''' </summary>
|
||||
Private Sub InitializeComponent()
|
||||
'
|
||||
'SISBusinessAspNetModule
|
||||
'
|
||||
Me.RequiredModuleTypes.Add(GetType(SISBusiness.[Module].SISBusinessModule))
|
||||
Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Web.SystemModule.SystemAspNetModule))
|
||||
Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.AuditTrail.AuditTrailModule))
|
||||
Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule))
|
||||
Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Chart.Web.ChartAspNetModule))
|
||||
Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.CloneObject.CloneObjectModule))
|
||||
Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule))
|
||||
Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.FileAttachments.Web.FileAttachmentsAspNetModule))
|
||||
Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Kpi.KpiModule))
|
||||
Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.PivotChart.Web.PivotChartAspNetModule))
|
||||
Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.PivotGrid.Web.PivotGridAspNetModule))
|
||||
Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Reports.Web.ReportsAspNetModule))
|
||||
Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Validation.ValidationModule))
|
||||
Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule))
|
||||
Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Scheduler.Web.SchedulerAspNetModule))
|
||||
Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Security.SecurityModule))
|
||||
Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.TreeListEditors.Web.TreeListEditorsAspNetModule))
|
||||
Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.HtmlPropertyEditor.Web.HtmlPropertyEditorAspNetModule))
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
End Class
|
||||
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
@@ -0,0 +1,15 @@
|
||||
Imports System
|
||||
Imports System.Text
|
||||
Imports System.Collections.Generic
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
|
||||
<ToolboxItemFilter("Xaf.Platform.Web")> _
|
||||
Partial Public NotInheritable Class [SISBusinessAspNetModule]
|
||||
Inherits ModuleBase
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
BIN
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user