First create solution
This commit is contained in:
Generated
+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 Nuvolar.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 Nuvolar.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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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
|
||||
@@ -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 Nuvolar.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 Nuvolar.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(Nuvolar.[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(Nuvolar.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(Nuvolar.[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(Nuvolar.[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 Nuvolar.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(Nuvolar.[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,43 @@
|
||||
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)
|
||||
'Frame.GetController(Of ListViewController).InlineEditAction.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)
|
||||
'Frame.GetController(Of ListViewController).InlineEditAction.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
+31
@@ -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 NuvolarAction As SingleChoiceAction
|
||||
Public Const DBName As String = "Gatya; Zokni"
|
||||
Public Sub New()
|
||||
Me.TargetWindowType = WindowType.Main
|
||||
|
||||
'If WebApplication.OldStyleLayout Then
|
||||
' NuvolarAction = New SingleChoiceAction(Me, "Nuvolar", "Tools")
|
||||
'Else
|
||||
' NuvolarAction = New SingleChoiceAction(Me, "Nuvolar", "Security")
|
||||
'End If
|
||||
'For Each databaseName As String In DBName.Split(";"c)
|
||||
' NuvolarAction.Items.Add(New ChoiceActionItem(databaseName, databaseName))
|
||||
'Next databaseName
|
||||
'AddHandler NuvolarAction.Execute, AddressOf NuvolarAction_Execute
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
'For Each item As ChoiceActionItem In NuvolarAction.Items
|
||||
' If Application.ConnectionString.Contains(CStr(item.Data)) Then
|
||||
' NuvolarAction.SelectedItem = item
|
||||
' Exit For
|
||||
' End If
|
||||
'Next item
|
||||
End Sub
|
||||
Private Sub NuvolarAction_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 Nuvolar.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,252 @@
|
||||
<?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="InvoiceHeader_InvoiceRows_ListView">
|
||||
<Columns>
|
||||
<ColumnInfo Id="RowIndex" DisplayFormat="{0:#,##0}" EditMask="" />
|
||||
<ColumnInfo Id="QTT" EditMask="" />
|
||||
<ColumnInfo Id="ListPriceHUF" EditMask="" />
|
||||
<ColumnInfo Id="SumPriceHUF" EditMask="" />
|
||||
<ColumnInfo Id="SumPriceVATHUF" EditMask="" />
|
||||
<ColumnInfo Id="SumPriceBruttoHUF" EditMask="" />
|
||||
</Columns>
|
||||
</ListView>
|
||||
<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("Nuvolar.Module.Web")>
|
||||
<Assembly: AssemblyDescription("SIS Business ERP system WEB module")>
|
||||
<Assembly: AssemblyCompany("SIS-Rendszerház Kft")>
|
||||
<Assembly: AssemblyProduct("Nuvolar.Module.WEB")>
|
||||
<Assembly: AssemblyCopyright("Copyright © - 2006-2016")>
|
||||
<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("16.2.3.1010")>
|
||||
|
||||
+63
@@ -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("Nuvolar.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>
|
||||
+73
@@ -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.Nuvolar.[Module].Web.My.MySettings
|
||||
Get
|
||||
Return Global.Nuvolar.[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,582 @@
|
||||
<?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>Nuvolar.Module.Web</RootNamespace>
|
||||
<AssemblyName>Nuvolar.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/Nuvolar.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>
|
||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\x64\Debug\</OutputPath>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
|
||||
<DebugType>full</DebugType>
|
||||
<PlatformTarget>x64</PlatformTarget>
|
||||
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\x64\Release\</OutputPath>
|
||||
<Optimize>true</Optimize>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
|
||||
<DebugType>None</DebugType>
|
||||
<PlatformTarget>x64</PlatformTarget>
|
||||
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'EasyTest|x64'">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\x64\EasyTest\</OutputPath>
|
||||
<DefineConstants>EASYTEST</DefineConstants>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
|
||||
<DebugType>full</DebugType>
|
||||
<PlatformTarget>x64</PlatformTarget>
|
||||
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'R64|x64'">
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\x64\R64\</OutputPath>
|
||||
<Optimize>true</Optimize>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
|
||||
<DebugType>None</DebugType>
|
||||
<PlatformTarget>x64</PlatformTarget>
|
||||
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="DevExpress.DataAccess.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.DataAccess.v16.2.UI, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.TreeMap.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.XtraTreeMap.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Dashboard.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.ExpressApp.TreeListEditors.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.ExpressApp.TreeListEditors.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.Pdf.v16.2.Core">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Printing.v16.2.Core">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Data.v16.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.ExpressApp.AuditTrail.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.Chart.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.ExpressApp.Chart.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.CloneObject.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.ConditionalAppearance.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.FileAttachment.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.HtmlPropertyEditor.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.Kpi.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.PivotChart.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.ExpressApp.PivotChart.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.PivotGrid.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.ExpressApp.PivotGrid.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.Reports.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.Reports.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.Scheduler.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.ExpressApp.Scheduler.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.Xpo.v16.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.ExpressApp.v16.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.ExpressApp.Images.v16.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.ExpressApp.Objects.v16.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.ExpressApp.Security.v16.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.ExpressApp.Validation.v16.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.ExpressApp.ViewVariantsModule.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.ExpressApp.Web.v16.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Persistent.Base.v16.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Persistent.BaseImpl.v16.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.PivotGrid.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.Utils.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.Web.ASPxHtmlEditor.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.Web.ASPxPivotGrid.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.Web.ASPxScheduler.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.Web.ASPxSpellChecker.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.Web.ASPxTreeList.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.Office.v16.2.Core">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.RichEdit.v16.2.Core">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Web.v16.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Xpo.v16.2">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Charts.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.XtraCharts.v16.2.Wizard, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.XtraCharts.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.XtraCharts.v16.2.Web, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.Dashboard.v16.2.Win, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Web.Resources.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Dashboard.v16.2.Web, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.XtraEditors.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.XtraPivotGrid.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.XtraPrinting.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.Utils.v16.2.UI, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.Sparkline.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.CodeParser.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.XtraReports.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.XtraReports.v16.2.Extensions, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
|
||||
<Reference Include="DevExpress.XtraReports.v16.2.Web, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Reference Include="DevExpress.XtraScheduler.v16.2.Core, Version=16.2.3.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>
|
||||
<Compile Include="XAFHelpers\XAFPrintHelperWeb.vb" />
|
||||
</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="..\Nuvolar.Module\Nuvolar.Module.vbproj">
|
||||
<Project>{60bf693f-7dea-4cf6-85bd-ea96829d79dd}</Project>
|
||||
<Name>Nuvolar.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>
|
||||
<None Include="UnusableNodes2.xml">
|
||||
<DependentUpon>Model.DesignedDiffs.xafml</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</None>
|
||||
</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>
|
||||
+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,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,23 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Application>
|
||||
<Views Id="Views">
|
||||
<ListView Id="OrderInHeader_InvoiceRows_ListView">
|
||||
<Columns Id="Columns">
|
||||
<ColumnInfo Id="DeliveryNoteOutRows" Removed="True" />
|
||||
<ColumnInfo Id="InvoiceRowMainType" Removed="True" />
|
||||
<ColumnInfo Id="Products" Removed="True" />
|
||||
<ColumnInfo Id="QTT_Will" Removed="True" />
|
||||
<ColumnInfo Id="Services" Removed="True" />
|
||||
<ColumnInfo Id="SumAveragePriceDEV" Removed="True" />
|
||||
<ColumnInfo Id="SumAveragePriceHUF" Removed="True" />
|
||||
<ColumnInfo Id="SumBallanceDEV" Removed="True" />
|
||||
<ColumnInfo Id="SumBallanceHUF" Removed="True" />
|
||||
<ColumnInfo Id="SumGrossMarginDEV" Removed="True" />
|
||||
<ColumnInfo Id="SumGrossMarginHUF" Removed="True" />
|
||||
<ColumnInfo Id="SumGrossMarginOriginalHUF" Removed="True" />
|
||||
<ColumnInfo Id="SumPriceOriginalHUF" Removed="True" />
|
||||
<ColumnInfo Id="Weight_NAV" Removed="True" />
|
||||
</Columns>
|
||||
</ListView>
|
||||
</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
|
||||
Generated
+53
@@ -0,0 +1,53 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System
|
||||
|
||||
Partial Public Class NuvolarAspNetModule
|
||||
''' <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()
|
||||
'
|
||||
'NuvolarAspNetModule
|
||||
'
|
||||
Me.RequiredModuleTypes.Add(GetType(Nuvolar.[Module].NuvolarModule))
|
||||
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,20 @@
|
||||
Imports System
|
||||
Imports System.Text
|
||||
Imports System.Collections.Generic
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Model
|
||||
|
||||
<ToolboxItemFilter("Xaf.Platform.Web")>
|
||||
Partial Public NotInheritable Class [NuvolarAspNetModule]
|
||||
Inherits ModuleBase
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
End Sub
|
||||
Public Overrides Sub ExtendModelInterfaces(extenders As ModelInterfaceExtenders)
|
||||
MyBase.ExtendModelInterfaces(extenders)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -0,0 +1,13 @@
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Xpo
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
|
||||
Public Class XAFPrintHelperWeb
|
||||
Inherits Nuvolar.Module.XAFPrintHelper
|
||||
|
||||
Public Sub New(XPOObjectSpace As XPObjectSpace, Frame As Frame, ReportData As ReportDataV2, CriteriaOperator As CriteriaOperator)
|
||||
MyBase.New(XPOObjectSpace, Frame, ReportData, CriteriaOperator)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user